locations/Cheatmenu_din.qsrc

@@ -521,8 +521,8 @@ $cheatmenu['looks3'] = {
 	if hairgrowcht = 1:pl'<a href="exec:hairgrowcht = 0 & dynamic $cheatmenu[''looks3'']">Allow hair growth</a>'
 	nl
 	pl'<<$glaza>>'
-	if pcs_lashes < 2:pl'<a href="exec:pcs_lashes += 1 & dynamic $cheatmenu[''looks3'']">Enlarge lashes</a>'
-	if pcs_lashes > 0:pl'<a href="exec:pcs_lashes -= 1 & dynamic $cheatmenu[''looks3'']">Shrink lashes</a>'
+	if pcs_naturallashes < 2:pl'<a href="exec:pcs_naturallashes += 1 & dynamic $cheatmenu[''looks3'']">Enlarge lashes</a>'
+	if pcs_naturallashes > 0:pl'<a href="exec:pcs_naturallashes -= 1 & dynamic $cheatmenu[''looks3'']">Shrink lashes</a>'
 	if pcs_eyesize < 3:pl'<a href="exec:pcs_eyesize += 1 & dynamic $cheatmenu[''looks3'']">Increase the size of the eye</a>'
 	if pcs_eyesize > 0:pl'<a href="exec:pcs_eyesize -= 1 & dynamic $cheatmenu[''looks3'']">Reduce the size of the eye</a>'
 	if pcs_eyecol <= 0:
@@ -580,7 +580,7 @@ $cheatmenu['vneshpara'] = {
 	nl
 	pl 'Appearance Parameters'
 	pl 'vidage = <<vidage>>'
-	pl 'pcs_lashes = <<pcs_lashes>>'
+	pl 'pcs_naturallashes = <<pcs_naturallashes>>'
 	pl 'pcs_eyesize = <<pcs_eyesize>>'
 	pl 'pcs_lip = <<pcs_lip>>'
 	pl 'pcs_apprncbase = <<pcs_apprncbase>>'
@@ -643,74 +643,156 @@ $cheatmenu['tatoo'] = {
 	if tathand >= 1:pl'<a href="exec:tattCount-=1 & tathand = 0 & dynamic $cheatmenu[''tatoo'']">Remove your hand tattoo</a>'
 }
 
+$cheatmenu['setStat'] = {
+	temp_input = input("Set your <<$ARGS[1]>> level:")
+	dynamic "
+		<<$ARGS[0]>>_lvl = temp_input
+		<<$ARGS[0]>>_lvlst = temp_input
+	"
+	killvar 'temp_input'
+	dynamic $cheatmenu['stats']
+}
+
+$cheatmenu['setAttrs'] = {
+	loop_index = 0
+	:set_attrs_loop
+		dynamic "
+			<<$att_name[loop_index]>>_lvl = <<ARGS[0]>>
+			<<$att_name[loop_index]>>_lvlst = <<ARGS[0]>>
+		"
+		loop_index += 1
+		! Magic is the last attribute, so if it's a non-magic game we'll end the loop one iteration early
+		if MagikDostup = 0 and loop_index < arrsize('$att_name'):
+			jump 'set_attrs_loop'
+		elseif loop_index < arrsize('$att_name') - 1:
+			jump 'set_attrs_loop'
+		end
+	killvar 'loop_index'
+	dynamic $cheatmenu['stats']
+}
+
+$cheatmenu['setSkills'] = {
+	loop_index = 0
+	:set_skills_loop
+		dynamic "
+			<<$skl_name[loop_index]>>_lvl = <<ARGS[0]>>
+			<<$skl_name[loop_index]>>_lvlst = <<ARGS[0]>>
+		"
+		loop_index += 1
+		! Inhibition is the last in the array, but it's not really a skill so we'll skip it by ending the loop one iteration early
+		if loop_index < arrsize('$skl_name') - 1: jump 'set_skills_loop'
+	killvar 'loop_index'
+	dynamic $cheatmenu['stats']
+}
+
+$cheatmenu['printStatLinks'] = {
+	p '<a href="exec:<<$ARGS[0]>>_lvl = 100 & <<$ARGS[0]>>_lvlst = 100 & dynamic $cheatmenu[''stats'']" >Max</a>  '
+	p '<a href="exec:<<$ARGS[0]>>_lvl += 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+1</a> '
+	p '<a href="exec:<<$ARGS[0]>>_lvl += 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+10</a> '
+	p '<a href="exec:<<$ARGS[0]>>_lvl -= 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-1</a> '
+	p '<a href="exec:<<$ARGS[0]>>_lvl -= 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-10</a>  '
+	p '<a href="exec:<<$ARGS[0]>>_lvl = 0 & <<$ARGS[0]>>_lvlst = 0 & dynamic $cheatmenu[''stats'']" >Min</a>  '
+	pl '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>''" >Set</a>'
+}
+
 $cheatmenu['stats'] = {
-	gs'stat'
+	gs 'stat'
 	clr
+	
+	!Set a floor and ceiling for all attributes and skills
+	loop_index = 0
+	:attr_trim_loop
+		dynamic "
+			if <<$att_name[loop_index]>>_lvl < 0: <<$att_name[loop_index]>>_lvl = 0
+			if <<$att_name[loop_index]>>_lvlst < 0: <<$att_name[loop_index]>>_lvlst = 0
+			if <<$att_name[loop_index]>>_lvl > 100: <<$att_name[loop_index]>>_lvl = 100
+			if <<$att_name[loop_index]>>_lvlst > 100: <<$att_name[loop_index]>>_lvlst = 100
+		"
+		loop_index += 1
+		if loop_index < arrsize('$att_name'): jump 'attr_trim_loop'
+	
+	loop_index = 0
+	:skill_trim_loop
+		dynamic "
+			if <<$skl_name[loop_index]>>_lvl < 0: <<$skl_name[loop_index]>>_lvl = 0
+			if <<$skl_name[loop_index]>>_lvlst < 0: <<$skl_name[loop_index]>>_lvlst = 0
+			if <<$skl_name[loop_index]>>_lvl > 100: <<$skl_name[loop_index]>>_lvl = 100
+			if <<$skl_name[loop_index]>>_lvlst > 100: <<$skl_name[loop_index]>>_lvlst = 100
+		"
+		loop_index += 1
+		if loop_index < arrsize('$skl_name'): jump 'skill_trim_loop'
+	killvar 'loop_index'
+
 	pl'<center><a href="exec:dynamic $cheatmenu"><b>Cheat menu</b></a></center>'
 	nl
-	pl 'Strength (<<stren_lvl>>): <a href="exec:stren_lvl += 1 & stren_lvlst = stren_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:stren_lvl += 5 & stren_lvlst = stren_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:stren_lvl += 10 & stren_lvlst = stren_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:stren_lvl -= 1 & stren_lvlst = stren_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:stren_lvl -= 5 & stren_lvlst = stren_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:stren_lvl -= 10 & stren_lvlst = stren_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Agility (<<agil_lvl>>): <a href="exec:agil_lvl += 1 & agil_lvlst = agil_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:agil_lvl += 5 & agil_lvlst = agil_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:agil_lvl += 10 & agil_lvlst = agil_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:agil_lvl -= 1 & agil_lvlst = agil_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:agil_lvl -= 5 & agil_lvlst = agil_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:agil_lvl -= 10 & agil_lvlst = agil_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Endurance (<<vital_lvl>>): <a href="exec:vital_lvl += 1 & vital_lvlst = vital_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:vital_lvl += 5 & vital_lvlst = vital_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:vital_lvl += 10 & vital_lvlst = vital_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:vital_lvl -= 1 & vital_lvlst = vital_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:vital_lvl -= 5 & vital_lvlst = vital_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:vital_lvl -= 10 & vital_lvlst = vital_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Intelligence (<<intel_lvl>>): <a href="exec:intel_lvl += 1 & intel_lvlst = intel_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:intel_lvl += 5 & intel_lvlst = intel_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:intel_lvl += 10 & intel_lvlst = intel_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:intel_lvl -= 1 & intel_lvlst = intel_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:intel_lvl -= 5 & intel_lvlst = intel_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:intel_lvl -= 10 & intel_lvlst = intel_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Mental Agility (<<react_lvl>>): <a href="exec:react_lvl += 1 & react_lvlst = react_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:react_lvl += 5 & react_lvlst = react_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:react_lvl += 10 & react_lvlst = react_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:react_lvl -= 1 & react_lvlst = react_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:react_lvl -= 5 & react_lvlst = react_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:react_lvl -= 10 & react_lvlst = react_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Sprit (<<sprt_lvl>>): <a href="exec:sprt_lvl += 1 & sprt_lvlst = sprt_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:sprt_lvl += 5 & sprt_lvlst = sprt_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:sprt_lvl += 10 & sprt_lvlst = sprt_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:sprt_lvl -= 1 & sprt_lvlst = sprt_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:sprt_lvl -= 5 & sprt_lvlst = sprt_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:sprt_lvl -= 10 & sprt_lvlst = sprt_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Charisma (<<chrsm_lvl>>): <a href="exec:chrsm_lvl += 1 & chrsm_lvlst = chrsm_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:chrsm_lvl += 5 & chrsm_lvlst = chrsm_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:chrsm_lvl += 10 & chrsm_lvlst = chrsm_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:chrsm_lvl -= 1 & chrsm_lvlst = chrsm_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:chrsm_lvl -= 5 & chrsm_lvlst = chrsm_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:chrsm_lvl -= 10 & chrsm_lvlst = chrsm_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Perception (<<prcptn_lvl>>): <a href="exec:prcptn_lvl += 1 & prcptn_lvlst = prcptn_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:prcptn_lvl += 5 & prcptn_lvlst = prcptn_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:prcptn_lvl += 10 & prcptn_lvlst = prcptn_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:prcptn_lvl -= 1 & prcptn_lvlst = prcptn_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:prcptn_lvl -= 5 & prcptn_lvlst = prcptn_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:prcptn_lvl -= 10 & prcptn_lvlst = prcptn_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	if MagikDostup = 0: pl 'Magic (<<magik_lvl>>): <a href="exec:magik_lvl += 1 & magik_lvlst = magik_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:magik_lvl += 5 & magik_lvlst = magik_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:magik_lvl += 10 & magik_lvlst = magik_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:magik_lvl -= 1 & magik_lvlst = magik_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:magik_lvl -= 5 & magik_lvlst = magik_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:magik_lvl -= 10 & magik_lvlst = magik_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	pl'<b>Attributes</b> (values 0 - 100):'
+	pl '<a href="exec:dynamic $cheatmenu[''setAttrs''], 100" >Max Attributes</a>    <a href="exec:dynamic $cheatmenu[''setAttrs''], 0" >Min Attributes</a>'
+	p 'Strength (<<stren_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'stren', 'Strength'
+	p 'Agility (<<agil_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'agil', 'Agility'
+	p 'Endurance (<<vital_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'vital', 'Endurance'
+	p 'Intelligence (<<intel_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'intel', 'Intelligence'
+	p 'Mental Agility (<<react_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'react', 'Mental Agility'
+	p 'Spirit (<<sprt_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'sprt', 'Spirit'
+	p 'Charisma (<<chrsm_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'chrsm', 'Charisma'
+	p 'Perception (<<prcptn_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'prcptn', 'Perception'
+	if MagikDostup = 0: p 'Magic (<<magik_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'magik', 'Magic'
 	nl
 	pl'<b>Sexual:</b>'
-	pl 'Inhibition level (<<100 - pcs_inhib>>): <a href="exec:inhib_lvl -= 1 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:inhib_lvl -= 5 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:inhib_lvl -= 10 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:inhib_lvl += 1 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:inhib_lvl += 5 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:inhib_lvl += 10 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	pl 'Inhibition level (<<100 - pcs_inhib>>): <a href="exec:inhib_lvl = 0 & inhib_lvlst = 0 & dynamic $cheatmenu[''stats'']" >Max</a>  <a href="exec:inhib_lvl -= 1 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:inhib_lvl -= 10 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:inhib_lvl += 1 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:inhib_lvl += 10 & inhib_lvlst = inhib_lvl & dynamic $cheatmenu[''stats'']" >-10</a>  <a href="exec:inhib_lvl = 100 & inhib_lvlst = 100 & dynamic $cheatmenu[''stats'']" >Min</a>'
 	if pcs_dom < 0 or sub < 0: pcs_dom = 0 & sub = 0
 	if pcs_dom > 100: pcs_dom = 100
 	if sub > 100: sub = 100
 	if pcs_dom >= 0 and sub = 0:
-		pl 'Dominance (<<pcs_dom>>): <a href="exec:pcs_dom += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:pcs_dom += 5 & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:pcs_dom += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:pcs_dom -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:pcs_dom -= 5 & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:pcs_dom -= 10 & dynamic $cheatmenu[''stats'']" >-10</a>'
+		pl 'Dominance (<<pcs_dom>>): <a href="exec:pcs_dom = 100 & dynamic $cheatmenu[''stats'']" >Max</a>  <a href="exec:pcs_dom += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:pcs_dom += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:pcs_dom -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:pcs_dom -= 10 & dynamic $cheatmenu[''stats'']" >-10</a>  <a href="exec:pcs_dom = 0 & dynamic $cheatmenu[''stats'']" >Min</a>'
 	else
-		pl 'Submissiveness (<<sub>>): <a href="exec:sub += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:sub += 5 & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:sub += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:sub -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:sub -= 5 & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:sub -= 10 & dynamic $cheatmenu[''stats'']" >-10</a>'
+		pl 'Submissiveness (<<sub>>): <a href="exec:sub = 100 & dynamic $cheatmenu[''stats'']" >Max</a>  <a href="exec:sub += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:sub += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:sub -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:sub -= 10 & dynamic $cheatmenu[''stats'']" >-10</a>  <a href="exec:sub = 0 & dynamic $cheatmenu[''stats'']" >Min</a>'
 	end
 	nl
+	pl'<b>Skills</b> (values 0 - 100, and adjusted by attributes):'
+	pl '<a href="exec:dynamic $cheatmenu[''setSkills''], 100" >Max Skills</a>    <a href="exec:dynamic $cheatmenu[''setSkills''], 0" >Min Skills</a>'
+	nl
 	pl'<b>Combat:</b>'
-	pl 'Jabs - Adjusted total (<<pcs_jab>>) - Skill level (<<jab_lvl>>): <a href="exec:jab_lvl += 1 & jab_lvlst = jab_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:jab_lvl += 5 & jab_lvlst = jab_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:jab_lvl += 10 & jab_lvlst = jab_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:jab_lvl -= 1 & jab_lvlst = jab_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:jab_lvl -= 5 & jab_lvlst = jab_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:jab_lvl -= 10 & jab_lvlst = jab_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Power - Strikes Adjusted total (<<pcs_punch>>) - Skill level (<<punch_lvl>>): <a href="exec:punch_lvl += 1 & punch_lvlst = punch_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:punch_lvl += 5 & punch_lvlst = punch_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:punch_lvl += 10 & punch_lvlst = punch_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:punch_lvl -= 1 & punch_lvlst = punch_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:punch_lvl -= 5 & punch_lvlst = punch_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:punch_lvl -= 10 & punch_lvlst = punch_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Kicks - Adjusted total (<<pcs_kick>>) - Skill level (<<kick_lvl>>): <a href="exec:kick_lvl += 1 & kick_lvlst = kick_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:kick_lvl += 5 & kick_lvlst = kick_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:kick_lvl += 10 & kick_lvlst = kick_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:kick_lvl -= 1 & kick_lvlst = kick_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:kick_lvl -= 5 & kick_lvlst = kick_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:kick_lvl -= 10 & kick_lvlst = kick_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Defence - Adjusted total (<<pcs_def>>) - Skill level (<<def_lvl>>): <a href="exec:def_lvl += 1 & def_lvlst = def_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:def_lvl += 5 & def_lvlst = def_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:def_lvl += 10 & def_lvlst = def_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:def_lvl -= 1 & def_lvlst = def_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:def_lvl -= 5 & def_lvlst = def_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:def_lvl -= 10 & def_lvlst = def_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Marksmanship - Adjusted total (<<pcs_shoot>>) - Skill level (<<shoot_lvl>>): <a href="exec:shoot_lvl += 1 & shoot_lvlst = shoot_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:shoot_lvl += 5 & shoot_lvlst = shoot_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:shoot_lvl += 10 & shoot_lvlst = shoot_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:shoot_lvl -= 1 & shoot_lvlst = shoot_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:shoot_lvl -= 5 & shoot_lvlst = shoot_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:shoot_lvl -= 10 & shoot_lvlst = shoot_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	p 'Jabs - Adjusted total (<<pcs_jab>>) - Skill level (<<jab_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'jab', 'Jabs'
+	p 'Power Strikes - Adjusted total (<<pcs_punch>>) - Skill level (<<punch_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'punch', 'Power Strikes'
+	p 'Kicks - Adjusted total (<<pcs_kick>>) - Skill level (<<kick_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'kick', 'Kicks'
+	p 'Defence - Adjusted total (<<pcs_def>>) - Skill level (<<def_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'def', 'Defence'
+	p 'Marksmanship - Adjusted total (<<pcs_shoot>>) - Skill level (<<shoot_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'shoot', 'Marksmanship'
 	nl
 	pl'<b>Craft:</b>'
-	pl 'Singing - Adjusted total (<<pcs_vokal>>) - Skill level (<<vokal_lvl>>): <a href="exec:vokal_lvl += 1 & vokal_lvlst = vokal_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:vokal_lvl += 5 & vokal_lvlst = vokal_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:vokal_lvl += 10 & vokal_lvlst = vokal_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:vokal_lvl -= 1 & vokal_lvlst = vokal_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:vokal_lvl -= 5 & vokal_lvlst = vokal_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:vokal_lvl -= 10 & vokal_lvlst = vokal_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Tailoring - Adjusted total (<<pcs_sewng>>) - Skill level (<<sewng_lvl>>): <a href="exec:sewng_lvl += 1 & sewng_lvlst = sewng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:sewng_lvl += 5 & sewng_lvlst = sewng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:sewng_lvl += 10 & sewng_lvlst = sewng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:sewng_lvl -= 1 & sewng_lvlst = sewng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:sewng_lvl -= 5 & sewng_lvlst = sewng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:sewng_lvl -= 10 & sewng_lvlst = sewng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Instrumental - Music Adjusted total (<<pcs_instrmusic>>) - Skill level (<<instrmusic_lvl>>): <a href="exec:instrmusic_lvl += 1 & instrmusic_lvlst = instrmusic_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:instrmusic_lvl += 5 & instrmusic_lvlst = instrmusic_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:instrmusic_lvl += 10 & instrmusic_lvlst = instrmusic_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:instrmusic_lvl -= 1 & instrmusic_lvlst = instrmusic_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:instrmusic_lvl -= 5 & instrmusic_lvlst = instrmusic_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:instrmusic_lvl -= 10 & instrmusic_lvlst = instrmusic_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Photography - Adjusted total (<<pcs_photoskl>>) - Skill level (<<photoskl_lvl>>): <a href="exec:photoskl_lvl += 1 & photoskl_lvlst = photoskl_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:photoskl_lvl += 5 & photoskl_lvlst = photoskl_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:photoskl_lvl += 10 & photoskl_lvlst = photoskl_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:photoskl_lvl -= 1 & photoskl_lvlst = photoskl_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:photoskl_lvl -= 5 & photoskl_lvlst = photoskl_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:photoskl_lvl -= 10 & photoskl_lvlst = photoskl_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Artistic - Skills Adjusted total (<<pcs_artskls>>) - Skill level (<<artskls_lvl>>): <a href="exec:artskls_lvl += 1 & artskls_lvlst = artskls_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:artskls_lvl += 5 & artskls_lvlst = artskls_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:artskls_lvl += 10 & artskls_lvlst = artskls_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:artskls_lvl -= 1 & artskls_lvlst = artskls_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:artskls_lvl -= 5 & artskls_lvlst = artskls_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:artskls_lvl -= 10 & artskls_lvlst = artskls_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	p 'Singing - Adjusted total (<<pcs_vokal>>) - Skill level (<<vokal_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'vokal', 'Singing'
+	p 'Tailoring - Adjusted total (<<pcs_sewng>>) - Skill level (<<sewng_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'sewng', 'Tailoring'
+	p 'Instrumental Music - Adjusted total (<<pcs_instrmusic>>) - Skill level (<<instrmusic_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'instrmusic', 'Instrumental Music'
+	p 'Photography - Adjusted total (<<pcs_photoskl>>) - Skill level (<<photoskl_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'photoskl', 'Photography'
+	p 'Artistic Skills - Adjusted total (<<pcs_artskls>>) - Skill level (<<artskls_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'artskls', 'Artistic Skills'
 	nl
 	pl'<b>Dance:</b>'
-	pl 'Modern Dancing - Adjusted total (<<pcs_danc>>) - Skill level (<<danc_lvl>>): <a href="exec:danc_lvl += 1 & danc_lvlst = danc_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:danc_lvl += 5 & danc_lvlst = danc_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:danc_lvl += 10 & danc_lvlst = danc_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:danc_lvl -= 1 & danc_lvlst = danc_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:danc_lvl -= 5 & danc_lvlst = danc_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:danc_lvl -= 10 & danc_lvlst = danc_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Erotic Dancing - Adjusted total (<<pcs_dancero>>) - Skill level  (<<dancero_lvl>>): <a href="exec:dancero_lvl += 1 & dancero_lvlst = dancero_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:dancero_lvl += 5 & dancero_lvlst = dancero_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:dancero_lvl += 10 & dancero_lvlst = dancero_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:dancero_lvl -= 1 & dancero_lvlst = dancero_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:dancero_lvl -= 5 & dancero_lvlst = dancero_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:dancero_lvl -= 10 & dancero_lvlst = dancero_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Pole Dancing - Adjusted total (<<pcs_dancpol>>) - Skill level  (<<dancpol_lvl>>): <a href="exec:dancpol_lvl += 1 & dancpol_lvlst = dancpol_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:dancpol_lvl += 5 & dancpol_lvlst = dancpol_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:dancpol_lvl += 10 & dancpol_lvlst = dancpol_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:dancpol_lvl -= 1 & dancpol_lvlst = dancpol_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:dancpol_lvl -= 5 & dancpol_lvlst = dancpol_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:dancpol_lvl -= 10 & dancpol_lvlst = dancpol_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	p 'Modern Dancing - Adjusted total (<<pcs_danc>>) - Skill level (<<danc_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'danc', 'Modern Dancing'
+	p 'Erotic Dancing - Adjusted total (<<pcs_dancero>>) - Skill level  (<<dancero_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'dancero', 'Erotic Dancing'
+	p 'Pole Dancing - Adjusted total (<<pcs_dancpol>>) - Skill level  (<<dancpol_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'dancpol', 'Pole Dancing'
 	nl
 	pl'<b>Sport:</b>'
-	pl 'Running - Adjusted total (<<pcs_run>>) - Skill level (<<run_lvl>>): <a href="exec:run_lvl += 1 & run_lvlst = run_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:run_lvl += 5 & run_lvlst = run_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:run_lvl += 10 & run_lvlst = run_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:run_lvl -= 1 & run_lvlst = run_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:run_lvl -= 5 & run_lvlst = run_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:run_lvl -= 10 & run_lvlst = run_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Volleyball - Adjusted total (<<pcs_vball>>) - Skill level (<<vball_lvl>>): <a href="exec:vball_lvl += 1 & vball_lvlst = vball_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:vball_lvl += 5 & vball_lvlst = vball_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:vball_lvl += 10 & vball_lvlst = vball_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:vball_lvl -= 1 & vball_lvlst = vball_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:vball_lvl -= 5 & vball_lvlst = vball_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:vball_lvl -= 10 & vball_lvlst = vball_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Ice Skating - Adjusted total (<<pcs_icesktng>>) - Skill level (<<icesktng_lvl>>): <a href="exec:icesktng_lvl += 1 & icesktng_lvlst = icesktng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:icesktng_lvl += 5 & icesktng_lvlst = icesktng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:icesktng_lvl += 10 & icesktng_lvlst = icesktng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:icesktng_lvl -= 1 & icesktng_lvlst = icesktng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:icesktng_lvl -= 5 & icesktng_lvlst = icesktng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:icesktng_lvl -= 10 & icesktng_lvlst = icesktng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Wrestling - Adjusted total (<<pcs_wrstlng>>) - Skill level (<<wrstlng_lvl>>): <a href="exec:wrstlng_lvl += 1 & wrstlng_lvlst = wrstlng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:wrstlng_lvl += 5 & wrstlng_lvlst = wrstlng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:wrstlng_lvl += 10 & wrstlng_lvlst = wrstlng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:wrstlng_lvl -= 1 & wrstlng_lvlst = wrstlng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:wrstlng_lvl -= 5 & wrstlng_lvlst = wrstlng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:wrstlng_lvl -= 10 & wrstlng_lvlst = wrstlng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Football - Adjusted total (<<pcs_ftbll>>) - Skill level (<<ftbll_lvl>>): <a href="exec:ftbll_lvl += 1 & ftbll_lvlst = ftbll_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:ftbll_lvl += 5 & ftbll_lvlst = ftbll_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:ftbll_lvl += 10 & ftbll_lvlst = ftbll_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:ftbll_lvl -= 1 & ftbll_lvlst = ftbll_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:ftbll_lvl -= 5 & ftbll_lvlst = ftbll_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:ftbll_lvl -= 10 & ftbll_lvlst = ftbll_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	p 'Running - Adjusted total (<<pcs_run>>) - Skill level (<<run_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'run', 'Running'
+	p 'Volleyball - Adjusted total (<<pcs_vball>>) - Skill level (<<vball_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'vball', 'Volleyball'
+	p 'Ice Skating - Adjusted total (<<pcs_icesktng>>) - Skill level (<<icesktng_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'icesktng', 'Ice Skating'
+	p 'Wrestling - Adjusted total (<<pcs_wrstlng>>) - Skill level (<<wrstlng_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'wrstlng', 'Wrestling'
+	p 'Football - Adjusted total (<<pcs_ftbll>>) - Skill level (<<ftbll_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'ftbll', 'Football'
 	nl
 	pl'<b>Work:</b>'
-	pl 'Serving - Adjusted total (<<pcs_servng>>) - Skill level (<<servng_lvl>>): <a href="exec:servng_lvl += 1 & servng_lvlst = servng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:servng_lvl += 5 & servng_lvlst = servng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:servng_lvl += 10 & servng_lvlst = servng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:servng_lvl -= 1 & servng_lvlst = servng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:servng_lvl -= 5 & servng_lvlst = servng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:servng_lvl -= 10 & servng_lvlst = servng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Modeling - Adjusted total (<<pcs_mdlng>>) - Skill level (<<mdlng_lvl>>): <a href="exec:mdlng_lvl += 1 & mdlng_lvlst = mdlng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:mdlng_lvl += 5 & mdlng_lvlst = mdlng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:mdlng_lvl += 10 & mdlng_lvlst = mdlng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:mdlng_lvl -= 1 & mdlng_lvlst = mdlng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:mdlng_lvl -= 5 & mdlng_lvlst = mdlng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:mdlng_lvl -= 10 & mdlng_lvlst = mdlng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Medicine - Adjusted total (<<pcs_medcn>>) - Skill level (<<medcn_lvl>>): <a href="exec:medcn_lvl += 1 & medcn_lvlst = medcn_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:medcn_lvl += 5 & medcn_lvlst = medcn_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:medcn_lvl += 10 & medcn_lvlst = medcn_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:medcn_lvl -= 1 & medcn_lvlst = medcn_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:medcn_lvl -= 5 & medcn_lvlst = medcn_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:medcn_lvl -= 10 & medcn_lvlst = medcn_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	p 'Serving - Adjusted total (<<pcs_servng>>) - Skill level (<<servng_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'servng', 'Serving'
+	p 'Modeling - Adjusted total (<<pcs_mdlng>>) - Skill level (<<mdlng_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'mdlng', 'Modeling'
+	p 'Medicine - Adjusted total (<<pcs_medcn>>) - Skill level (<<medcn_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'medcn', 'Medicine'
 	nl
 	pl'<b>Others:</b>'
-	pl 'Chess - Adjusted total (<<pcs_chess>>) - Skill level (<<chess_lvl>>): <a href="exec:chess_lvl += 1 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:chess_lvl += 5 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:chess_lvl += 10 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:chess_lvl -= 1 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:chess_lvl -= 5 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:chess_lvl -= 10 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Gaming - Adjusted total (<<pcs_gaming>>) - Skill level (<<gaming_lvl>>): <a href="exec:gaming_lvl += 1 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:gaming_lvl += 5 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:gaming_lvl += 10 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:gaming_lvl -= 1 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:gaming_lvl -= 5 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:gaming_lvl -= 10 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'People - skills Adjusted total (<<pcs_humint>>) - Skill level (<<humint_lvl>>): <a href="exec:humint_lvl += 1 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:humint_lvl += 5 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:humint_lvl += 10 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:humint_lvl -= 1 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:humint_lvl -= 5 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:humint_lvl -= 10 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Persuasion - Adjusted total (<<pcs_persuas>>) - Skill level (<<persuas_lvl>>): <a href="exec:persuas_lvl += 1 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:persuas_lvl += 5 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:persuas_lvl += 10 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:persuas_lvl -= 1 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:persuas_lvl -= 5 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:persuas_lvl -= 10 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Observation - Adjusted total (<<pcs_observ>>) - Skill level (<<observ_lvl>>): <a href="exec:observ_lvl += 1 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:observ_lvl += 5 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:observ_lvl += 10 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:observ_lvl -= 1 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:observ_lvl -= 5 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:observ_lvl -= 10 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Makeup - Adjusted total (<<pcs_makupskl>>) - Skill level (<<makupskl_lvl>>): <a href="exec:makupskl_lvl += 1 & makupskl_lvlst = makupskl_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:makupskl_lvl += 5 & makupskl_lvlst = makupskl_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:makupskl_lvl += 10 & makupskl_lvlst = makupskl_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:makupskl_lvl -= 1 & makupskl_lvlst = makupskl_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:makupskl_lvl -= 5 & makupskl_lvlst = makupskl_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:makupskl_lvl -= 10 & makupskl_lvlst = makupskl_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Computer - Skill Adjusted total (<<pcs_compskl>>) - Skill level (<<compskl_lvl>>): <a href="exec:compskl_lvl += 1 & compskl_lvlst = compskl_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:compskl_lvl += 5 & compskl_lvlst = compskl_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:compskl_lvl += 10 & compskl_lvlst = compskl_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:compskl_lvl -= 1 & compskl_lvlst = compskl_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:compskl_lvl -= 5 & compskl_lvlst = compskl_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:compskl_lvl -= 10 & compskl_lvlst = compskl_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Hacking - Adjusted total (<<pcs_comphckng>>) - Skill level (<<comphckng_lvl>>): <a href="exec:comphckng_lvl += 1 & comphckng_lvlst = comphckng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:comphckng_lvl += 5 & comphckng_lvlst = comphckng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:comphckng_lvl += 10 & comphckng_lvlst = comphckng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:comphckng_lvl -= 1 & comphckng_lvlst = comphckng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:comphckng_lvl -= 5 & comphckng_lvlst = comphckng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:comphckng_lvl -= 10 & comphckng_lvlst = comphckng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Handy-work - Adjusted total (<<pcs_hndiwrk>>) - Skill level (<<hndiwrk_lvl>>): <a href="exec:hndiwrk_lvl += 1 & hndiwrk_lvlst = hndiwrk_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:hndiwrk_lvl += 5 & hndiwrk_lvlst = hndiwrk_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:hndiwrk_lvl += 10 & hndiwrk_lvlst = hndiwrk_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:hndiwrk_lvl -= 1 & hndiwrk_lvlst = hndiwrk_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:hndiwrk_lvl -= 5 & hndiwrk_lvlst = hndiwrk_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:hndiwrk_lvl -= 10 & hndiwrk_lvlst = hndiwrk_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	if MagikDostup = 0: pl 'Spell - Casting Adjusted total (<<pcs_splcstng>>) - Skill level (<<splcstng_lvl>>): <a href="exec:splcstng_lvl += 1 & splcstng_lvlst = splcstng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:splcstng_lvl += 5 & splcstng_lvlst = splcstng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:splcstng_lvl += 10 & splcstng_lvlst = splcstng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:splcstng_lvl -= 1 & splcstng_lvlst = splcstng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:splcstng_lvl -= 5 & splcstng_lvlst = splcstng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:splcstng_lvl -= 10 & splcstng_lvlst = splcstng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	p 'Chess - Adjusted total (<<pcs_chess>>) - Skill level (<<chess_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'chess', 'Chess'
+	p 'Gaming - Adjusted total (<<pcs_gaming>>) - Skill level (<<gaming_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'gaming', 'Gaming'
+	p 'People Skills - Adjusted total (<<pcs_humint>>) - Skill level (<<humint_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'humint', 'People Skills'
+	p 'Persuasion - Adjusted total (<<pcs_persuas>>) - Skill level (<<persuas_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'persuas', 'Persuasion'
+	p 'Observation - Adjusted total (<<pcs_observ>>) - Skill level (<<observ_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'observ', 'Observation'
+	p 'Makeup - Adjusted total (<<pcs_makupskl>>) - Skill level (<<makupskl_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'makupskl', 'Makeup'
+	p 'Computer Skill - Adjusted total (<<pcs_compskl>>) - Skill level (<<compskl_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'compskl', 'Computer Skill'
+	p 'Hacking - Adjusted total (<<pcs_comphckng>>) - Skill level (<<comphckng_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'comphckng', 'Hacking'
+	p 'Handy-work - Adjusted total (<<pcs_hndiwrk>>) - Skill level (<<hndiwrk_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'hndiwrk', 'Handy-work'
+	if MagikDostup = 0: pl 'Spell - Casting Adjusted total (<<pcs_splcstng>>) - Skill level (<<splcstng_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'splcstng', 'Spellcasting'
 	nl
 	if workPTU > 1:pl'<a href="exec:teachlevel += 10 & dynamic $cheatmenu[''stats'']">Reputation teacher+10: <<teachlevel>></a>'
 	if workPTU > 1:pl'<a href="exec:teachlevel -= 10 & dynamic $cheatmenu[''stats'']">Reputation teacher-10: <<teachlevel>></a>'

locations/FedorMisc.qsrc

@@ -816,7 +816,7 @@ if $ARGS[0] =  'Outcast Intro':
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/fedorangry.jpg"></center>'
 				'You slowly step toward Fedor and say, "Look Fedor...I never meant for any of this to happen." Fedor shouts "YOU AGREED TO GO OUT WITH VIKTOR WHILE DATING ME! How can you expect me to believe that you cared for me at all... Just go away <<$pcs_firstname>>. I have nothing for you." you step away from Fedor knowing that nothing you say will console him while thinking to yourself "If only he trusted me more, then maybe he would believe that my apology is sincere."'
 
-				act 'Walk away':gt 'gskver'
+				act 'Walk away':gt 'gskver', 'start'
 			end
 			act 'Mock':
 				cls
@@ -828,7 +828,7 @@ if $ARGS[0] =  'Outcast Intro':
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/fedorangry.jpg"></center>'
 				'You grin as you reply, "Well yes. I do so love having a real man as my boyfriend and not a little cocksucker like you." Fedor immediately charges at you and pushes you on the ground. "The only thing Viktor sees in you is right between your legs." You are too shaken to speak as Fedor takes a few seconds to calm himself then walks away from you while saying "Just go <<$pcs_firstname>>. You''ve already taken everything from me. There is nothing left for you here."'
 
-				act 'Walk away':gt 'gskver'
+				act 'Walk away':gt 'gskver', 'start'
 			end
 		end
 	elseif FedorLove = 1:
@@ -867,7 +867,7 @@ if $ARGS[0] =  'Outcast Intro':
 			end
 		end
 	end
-	act 'Walk away':gt 'gskver'
+	act 'Walk away':gt 'gskver', 'start'
 end
 
 if $ARGS[0] =  'Outcast':
@@ -919,9 +919,9 @@ if $ARGS[0] =  'Outcast':
 
 				act 'Remain here':gt 'FedorMisc', 'Outcast'
 
-				act 'Return to park':gt 'gskver'
+				act 'Return to park':gt 'gskver', 'start'
 			end
-			act 'I need some time to think about it':gt 'gskver'
+			act 'I need some time to think about it':gt 'gskver', 'start'
 		end
 	elseif fedorKozlovQW = -15:
 		act 'Ask out on a date':
@@ -939,13 +939,13 @@ if $ARGS[0] =  'Outcast':
 
 			act 'Ask for a smoke':gt 'FedorMisc', 'Smoke 2'
 
-			act 'Just wanted to say hi':gt 'gskver'
+			act 'Just wanted to say hi':gt 'gskver', 'start'
 		end
 	end
 
 	act 'Ask for a smoke':gt 'FedorMisc', 'Smoke 2'
 
-	act 'Walk away':gt 'gskver'
+	act 'Walk away':gt 'gskver', 'start'
 end
 
 if $ARGS[0] =  'Fedor Vs Dimka':

locations/Gadbana.qsrc

@@ -133,6 +133,11 @@ if mira = 0:
 			act 'Finish':gt $loc, $metka
 		end
 	end
+	if breastpump > 0:
+		act 'Use breast pump':
+			gt 'lact_lib', 'bp_milking'
+		end
+	end
 	if analplug = 1 and analplugin = 1:
 		act 'Remove your butt plug (0:05)':
 			cla

locations/HotelHole.qsrc

@@ -27,7 +27,7 @@ if hour = 0 and $prevloc ! 'HotelRoom':
 	end
 	act 'Go back to the High Street':minut += 3 & gt'vokzalG'
 	exit
-end	
+end
 if hour = 0 and $prevloc = 'HotelRoom':
 	if resepseen = 1:
 	hotresepQW = 3
@@ -50,7 +50,7 @@ if hour = 0 and $prevloc = 'HotelRoom':
 		'"Oh Mister Leonidovich," she says pouting like a little girl, "I am so sorry, I have been bad daddy."'
 		'At that moment you figure out they are just playing a game and being caught flashing was all part of their weird little roleplay.'
 		act 'Continue':
-			
+
 			*clr
 			cls
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/sex/resep_event9.jpg"></center>'
@@ -64,7 +64,7 @@ if hour = 0 and $prevloc = 'HotelRoom':
 			 'All of a sudden, she moves the dick between her breasts and starts fucking it through the space between them.'
 			'"Miss Tanich, you should slow down, I don''t want to blow my load before I get to try that sweet little pussy of yours."'
 			act 'Continue':
-				
+
 				*clr
 				cls
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/sex/resep_event5.jpg"></center>'
@@ -89,8 +89,8 @@ if hour = 0 and $prevloc = 'HotelRoom':
 					'"Thank you Miss Tanich, I believe your monthly bonus is again very much deserved"'
 					'Miss Tanich just smiled at him while showing off her pussy and cum stained buttocks.'
 					'You have seen enough and quietly go back to your room'
-						
-						
+
+
 					act 'Continue':
 						if hotelroom = 1:gt'hotelroom','normal'
 						if hotelroom = 2:gt'hotelroom','better'
@@ -166,22 +166,13 @@ if HotelRoom > 0:
 		if hotelroom = 3:gt'hotelroom','best'
 	end
 end
-act 'Kill some time in the hotel lobby ':
 
-	waiting = input ("How long do you want to sit down? (No more than 120 minutes) default = 30 minutes")
-	if waiting <= 0 or waiting > 120:
-				minut += 30
-	elseif waiting > 0 and waiting <= 120:
-				minut += waiting
-				pcs_mood += 10
-				pcs_willpwr += 10
-			
-	end
-	cls
-	gs'stat'
+act 'Kill some time in the hotel lobby ':
+	gs 'obj_din', 'rest'
 	hotwait = 1
 	gt 'hotelhole'
 end
+
 act 'Leave the hotel':minut += 3 & gt'vokzalG'
 
 if $ARGS[0] = 'Pavlin' :
@@ -199,7 +190,7 @@ if $ARGS[0] = 'Pavlin' :
 				cls
 				cla
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/Pavlin/Pavlin.jpg"></center>'
-				minut += 10	
+				minut += 10
 				if pavchat ! daystart:npc_rel['A217'] += 2
 				pavchat = daystart
 				talkrand = RAND(0,6)
@@ -218,13 +209,13 @@ if $ARGS[0] = 'Pavlin' :
 					'It looks like you really hit a nerve there. You wonder what that''s about.'
 				end
 				if talkrand = 2:
-					'Pavlin tells you a story from his childhood.'					
+					'Pavlin tells you a story from his childhood.'
 					'"My father used to beat me everyday. One day when I was 12 after another savage beating I asked my mother to do something about it. The bitch started giving me another beating and then locked me out in my underpants on the balcony for 2 hours."'
 					'"This was in the middle of January, so I got lucky I didn''t freeze to death that day."'
 					'It seems he had a very rough childhood.'
 				end
 				if talkrand = 3:
-					'Pavlin tells you a story from his childhood.'					
+					'Pavlin tells you a story from his childhood.'
 					'"My father frequently brought working girls to the house for punishment. If they were lucky he just beat them up. If their mistake was worse he would involve my mother and she ..."'
 					'"Let''s just say that these girls would never go against my father''s wishes again once my mother was done with them."'
 					'"I always felt sorry for these girls at the time and did not want to watch, but they always forced me."'
@@ -246,7 +237,7 @@ if $ARGS[0] = 'Pavlin' :
 					'It seems he had a very rough childhood.'
 				end
 				if talkrand = 6:
-					'It looks like Pavlin is drunk.' 
+					'It looks like Pavlin is drunk.'
 					'"You will never disobey me? right <<$pcs_firstname>> ? "'
 					'"Your face is so pretty, I really don''t want to mess that up"'
 					'"What are you saying Pavlin? stop that , you are scaring me."'
@@ -269,7 +260,7 @@ if $ARGS[0] = 'Pavlin' :
 			act 'No thanks':
 				cla
 				'"No, thanks. I''ll just take a regular customer today"'
-				'"No problem, one regular john, coming right up. You can go ahead to the usual room."' 
+				'"No problem, one regular john, coming right up. You can go ahead to the usual room."'
 				act 'Perform your duty':gt 'hotel_resep', 'pavgenpros'
 			end
 			act 'Sure, sounds like fun':
@@ -279,7 +270,7 @@ if $ARGS[0] = 'Pavlin' :
 				'Pavlin gives you the key for the hotelroom.'
 				act 'Go to room 312':gt 'HotelHole','clown'
 			end
-			
+
 		end
 	end
 	if npc_rel['A217'] > 19 and proshotelday ! daystart and storyline = 1 and TwinQW ! 3:
@@ -324,7 +315,7 @@ if $ARGS[0] = 'Pavlin' :
 					'"You are lucky we are in a public place right now or I would fucking murder you!"'
 				end
 					'"Go away <<$pcs_firstname>>, I am too angry right now, we can discuss this later"'
-				
+
 				pavldaystart2 = daystart
 			elseif pavtalk = 0:
 				PavlinQW = 6
@@ -373,7 +364,7 @@ if $ARGS[0] = 'Pavlin' :
 				'You feel anger towards Pavlin rising up inside you. "Do you ever pay attention to me? Can''t you see I am pregnant?" You ask, gesturing at your obviously swollen belly.'
 				'"Of course I know that!" Pavlin''s brows furrow, letting you know he''s getting mad. Butterflies flutter in your stomach, fear trying to match up with the anger.'
 				'His expression softens a little before continuing. "This customer has some pretty weird requests, are you up for it?"'
-				
+
 				act 'Not really, let''s stick with vanilla for now': gt 'HotelHole','Pavlin'
 				act 'What kind of weird requests?':
 					'"He told me he is really in to pissing pregnant chicks." You cringe at the idea.'
@@ -388,15 +379,15 @@ if $ARGS[0] = 'Pavlin' :
 				act 'Ok': gt 'HotelHole','Pavlin'
 			end
 			if knowpreg = 0:
-			
+
 				'Pavlin looks at your body and you know what he is thinking.'
 				'"Yeah that''s definitly tough, good luck with that." You say before quickly leaving'
 				cla
 				act 'Back to lobby': gt 'HotelHole'
 			end
-				
+
 		end
-	
+
 	end
 	act '<B>Move away</B>':gt'HotelHole','skip_resepevent'
 end
@@ -443,13 +434,13 @@ if $ARGS[0] = 'PregBDSM' :
 		'.....WHISHP....'
 		'"<<$pitfs>>Fuck this hurts, but I can''t let it show!<<$pitfe>>" Again you refuse to scream out, not wanting to give your torturer the satisfaction.'
 		'But then...'
-		'.....WHOOSH....'    
+		'.....WHOOSH....'
 		'.....WHAP....'
 		'The whip snaps across each breast before you see it coming.'
 		'You finally scream out involuntarily, the unexpected spike in pain proving too much to ignore.'
 		'"<<$pitfs>>Damn it, I shouldn''t show any weakness! Who knows how far he will take this!<<$pitfe>>" You admonish yourself, but it is too late.'
 		'"Well, well, it looks like the little bitch can feel pain after all." The cruel pervert says, a smile plastered across his vile face.'
-		'.....WHIP....'     
+		'.....WHIP....'
 		'.....SNAP....'
 		'Two more hits slice sharply across your sensitive nipples, eliciting one big scream after another.'
 		'The torment continues for what feels like an eternity. The client alternates randomly between striking yours breasts, back, and buttocks. But the worst by far is when he zeroes in on your quivering pussy. As the instrument slaps viciously across your labia you scream and beg, tears streaming down your tortured face, mascara straining your cheeks. When the whip lands directly on your clit you feel like passing out and vomiting at the same time, your stomach twisting in agony.'
@@ -460,7 +451,7 @@ if $ARGS[0] = 'PregBDSM' :
 			*clr & cla
 			gs 'arousal', 'bj', 30, 'rough','sub','humiliation'
 			gs 'arousal','end'
-			if pcs_dom => 5: 
+			if pcs_dom => 5:
 				pcs_dom -5
 			else
 				sub = sub + 5 - pcs_dom
@@ -510,7 +501,7 @@ if $ARGS[0] = 'PregBDSM' :
 				act 'Swallow your last bit of pride and take a sip':
 					*clr & cla
 					pcs_hydra += 20
-					if pcs_dom => 20: 
+					if pcs_dom => 20:
 						pcs_dom -20
 					else
 						sub = sub + 20 - pcs_dom
@@ -549,7 +540,7 @@ if $ARGS[0] = 'PregBDSM' :
 						preghumdone = 1
 						npc_rel['A217'] += 20
 						act 'Back to lobby':gt 'HotelHole'
-					end	
+					end
 				end
 				act 'No, I can''t do this, let me go':
 					*clr & cla
@@ -583,7 +574,7 @@ if $ARGS[0] = 'PregBDSM' :
 							cla
 							:faintbegin
 							if faintcounter < 9:
-								
+
 								minut += 180
 								wait 1000
 								'.....................................'
@@ -592,10 +583,10 @@ if $ARGS[0] = 'PregBDSM' :
 								if faintcounter = 7:'"<<$pitfs>>What happened?<<$pitfe>>"'
 								faintcounter +=1
 								jump 'faintbegin'
-							else	
+							else
 								act 'Wake up':
 									killvar 'faintcounter'
-									
+
 									*clr & cla
 									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/locations/shared/clinic/wakeup.jpg"></center>'
@@ -653,7 +644,7 @@ if $ARGS[0] = 'PregBDSM' :
 										'The doctor tries to console you, telling you that she''s sorry but nothing could be done. She says that it could''ve been much worse; you could have died, or could have needed a hysterectomy. But they were able to save you from those fates.'
 										'<br>'
 										act 'Continue':
-										
+
 											*clr & cla
 											'<center><img <<$set_imgh>> src="images/characters/pavlovsk/Pavlin/pavlin_policewoman.jpg"></center>'
 											' '
@@ -668,7 +659,7 @@ if $ARGS[0] = 'PregBDSM' :
 											'She slides you a big wad of cash. It''s at least 20,000 <b>₽</b>.'
 											'"Besides, who would believe a whore over our legitimate businessman friend." She says, smirking.'
 											'"<<$pitfs>>So that''s it? 20 000 <b>₽</b> for the life of my child. And that monster just gets away with it?<<$pitfe>>" You can barely form thoughts as the rage, pain, and desperation overwhelm you.'
-											
+
 											act 'Sign the document':
 												money += 20000
 												*clr & cla
@@ -688,7 +679,7 @@ if $ARGS[0] = 'PregBDSM' :
 												killvar 'dailyhealthimprov'
 												npc_rel['A217'] = -1
 												PavlinQW = 9
-												
+
 												act 'Leave':gt 'gpoli'
 											end
 										end
@@ -768,13 +759,13 @@ if $ARGS[0] = 'Twins' :
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/twins6.jpg"></center>'
 				'The man suddenly pushes Anya off the couch and says, "Your sister is a great fuck, indeed. But I think you should go ahead and start doing some work too."'
 				'The client continues to slam into your sensitive pussy with all his might while Anya begins to lick and massage his balls.'
-				
+
 				act 'Continue':
 					*clr & cla
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/twins7.jpg"></center>'
 					'After a few minutes, the man pushes you off of him. His coarse, calloused hands manipulate your body until you are laying stomach down on the couch.'
-					'"Get up." He says gruffly to Anya. You stay in your place while looking back to see what they''re doing.' 
+					'"Get up." He says gruffly to Anya. You stay in your place while looking back to see what they''re doing.'
 					' '
 					'By the time he''s satisfied, he has your sister stacked on top of you, her twat just above yours. The client takes a moment to admire his masterpiece before he thrusts his dick into Anya''s waiting pussy. Your sister cries out in pleasure as the stranger buries himself inside of her.'
 					'You are glad that your pussy is getting some rest after the furious pounding it received, but the relief doesn''t last long. Soon enough he pulls out of Anya and plunges into your depths once again. You scream out in surprise, not expecting the sudden penetration, as new waves of pleasure ripple through your body.'
@@ -792,7 +783,7 @@ if $ARGS[0] = 'Twins' :
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/twins9.jpg"></center>'
 						'You position yourself with your head resting on a pillow sitting on the couch and your butt high in the air. You wiggle your ass at the client enticingly. "Your anal slut is waiting." You say, a mischievous grin on your face.'
-						'"God, I love an eager whore."<<$boydesc>> says as he comes up behind you and starts rubbing his dick against your little star.' 
+						'"God, I love an eager whore."<<$boydesc>> says as he comes up behind you and starts rubbing his dick against your little star.'
 						'He starts to slowly push it in and you can''t stop a groan from escaping your mouth as your butthole resists the invasion.'
 						'"Just relax girl, it will go a lot easier." The man says.'
 						'"Yeah <<$pcs_nickname>>, just relax. I know this is not the first dick you have had in your ass." Anya agrees, mockingly, unable to hide a giggle that follows her words.'
@@ -805,7 +796,7 @@ if $ARGS[0] = 'Twins' :
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/twins11.jpg"></center>'
 						'The pleasure quickly builds to a crescendo before exploding. While being stimulated in 3 erogenous zones at once you feel an earth-shattering orgasm like you''ve never experienced before.'
 						'Your whole body begins shaking uncontrollably as you cum and, if you sister hadn''t jumped up to hold you, you would have fallen off the couch.'
-						$orgasm_or = 'yes' 
+						$orgasm_or = 'yes'
 						gs 'arousal','anal',10,'prostitution'
 						'<<$boydesc>> laughs. "Ok woman, you had your release. Now it is my turn."'
 							act 'Continue':
@@ -851,7 +842,7 @@ if $ARGS[0] = 'Twins' :
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/twins12.jpg"></center>'
 							'<<$boydesc>> pulls out of your sister''s ass and motions for you to come closer.'
 							'You kneel down next to your sister and move your head close to hers. You both open your mouths while <<$boydesc>> starts jerking his dick quickly, awaiting your prize.'
-							'"Here it comes girls, now you play nice and share my gift." He immediately starts spraying cum while adjusting his aim between you and your sister.' 
+							'"Here it comes girls, now you play nice and share my gift." He immediately starts spraying cum while adjusting his aim between you and your sister.'
 							'You each catch some of his seed in you mouths while the rest splatters across your faces. You turn to you sister and you both start licking the cum from each other''s faces before swapping the load back and forth with a kiss. Anya ends up swallowing most of it while you smile.'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/twins13.jpg"></center>'
 							'"Since your sister was a real champ by taking it in the ass, you can be on cleaning duty." <<$boydesc>> says while pushing his cum-soaked dick between your lips.'
@@ -864,7 +855,7 @@ if $ARGS[0] = 'Twins' :
 					end
 				end
 			end
-		end	
+		end
 	end
 end
 if $ARGS[0] = 'twinhome':
@@ -945,7 +936,7 @@ if $ARGS[0] = 'clown':
 			cla
 			cls
 			gs 'stat'
-			
+
 			'<center><video autoplay loop src="images/characters/pavlovsk/Pavlin/clown3.mp4"></video></center>'
 			'You remove your clothes and move towards the quibbling clowns.'
 			'You grab them by the crotch.'
@@ -969,7 +960,7 @@ if $ARGS[0] = 'clown':
 			gs 'npcgeneratec', 1, 'Clown Popov', rand(18,45)
 			gs 'boyStat', $npclastgenerated
 			gs 'arousal', 'bj', 15, 'prostitution'
-			
+
 			act 'Continue':
 				cla
 				cls
@@ -978,7 +969,7 @@ if $ARGS[0] = 'clown':
 				'Popav starts licking your pussy while Popov places his balls over your mouth.'
 				'"Let''s go girl, these balls aren''t going to lick themself."'
 				'You take the hint and put the balls in your mouth.'
-				gs 'arousal', 'cuni', 15, 'prostitution' 
+				gs 'arousal', 'cuni', 15, 'prostitution'
 				'After a minute Popav stops licking and asks: "Are you ready for some cock?"'
 				'"Ow yeah, give it to me you silly clown"'
 				'<center><video autoplay loop src="images/characters/pavlovsk/Pavlin/clown7.mp4"></video></center>'
@@ -1006,9 +997,9 @@ if $ARGS[0] = 'clown':
 					'"Because you could easily fit another pair of tits in there."'
 					'Again you groan at the stupid joke and can''t hide the fact that your are tired of these 2 clowns.'
 					'"Ok girl, now we will give you one last present before we go, just sit up on the bed and look at me."'
-					
+
 					gs 'cum_call','breasts', $npclastgenerated, 1
-					gs 'npcgeneratec', 1, 'Clown Popav', rand(18,45) 
+					gs 'npcgeneratec', 1, 'Clown Popav', rand(18,45)
 					gs 'cum_call','breasts', $npclastgenerated, 1
 					gs 'arousal','end'
 					guy += 2
@@ -1040,7 +1031,7 @@ if $ARGS[0] = 'clown':
 							'Not at all, this was one of the weirdest things I ever encountered in my life.'
 							'Just give me my money so I can go on and try to wash away this pie and try to forget this ever happened.'
 							'Ha ha , no problem <<$pcs_firstname>>. Here is your money, enjoy it. '
-							'He hands you 2000 <b>₽</b>.' 
+							'He hands you 2000 <b>₽</b>.'
 							'You think this experience traumatised you for life and you would never look at another clown the same way again.'
 							act 'Back to the hotel lobby':gt 'HotelHole'
 						end

locations/MartinTalk.qsrc

@@ -945,7 +945,7 @@ if $ARGS[0] = 'MartinTalkApartment':
 		*nl
 		$OpenInnerThought+'He wouldn''t be Martin if he didn''t tell me to "watch out" at least once a day,'+$CloseInnerThought+' you think and roll your eyes, but still smile and say "I always do" before he has to get back to work.'
 	
-	elseif StoryLine = 1 and ParHomeBlock = 0:
+	elseif StoryLine = 1 and home_owned[2] = 1:
 		'"I still live with my parents, in Pavlovsk," you admit.'
 		*nl
 		'"Oh, well, that can''t be easy at your age."'

locations/NewCloShop.qsrc

@@ -25,13 +25,13 @@ if $ARGS[0] = 'start':
 		gt 'torgcentr'
 	end
 	
-	act 'View Clothing': minut += 1 & gt 'NewCloShop', 'clothes'
+	act 'View Clothing': minut += 5 & gt 'NewCloShop', 'clothes'
 
-	act 'View panties': minut += 1 & gt 'NewCloShop', 'panties'
+	act 'View panties': minut += 5 & gt 'NewCloShop', 'panties'
 
-	act 'View bras': minut += 1 & gt 'NewCloShop', 'bras'
+	act 'View bras': minut += 5 & gt 'NewCloShop', 'bras'
 
-	act 'View purses': minut += 1 & gt 'NewCloShop', 'purses'
+	act 'View purses': minut += 5 & gt 'NewCloShop', 'purses'
 end
 
 if $ARGS[0] = 'clothes':
@@ -46,7 +46,7 @@ if $ARGS[0] = 'clothes':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'NewCloShop', 'start'
 	end
 	
@@ -84,7 +84,7 @@ if $ARGS[0] = 'panties':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'NewCloShop', 'start'
 	end
 
@@ -116,7 +116,7 @@ if $ARGS[0] = 'bras':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'NewCloShop', 'start'
 	end
 
@@ -147,7 +147,7 @@ if $ARGS[0] = 'purses':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'NewCloShop', 'start'
 	end
 

locations/Nord.qsrc

@@ -44,18 +44,8 @@ if $ARGS[0] = '':
 
 	act 'Walk to the main road to Pavlovsk (0:15)': minut += 15 & nroad = 0 & gt'road'
 	act 'Visit the Red Light District (0:05)': minut += 5 & gt 'Nord', 'redlight'
-	act 'Wait':
-		cla
-		waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-		if waiting <= 0 or waiting > 120:
-			minut += 15
-		elseif waiting > 0 and waiting <= 120:
-			minut += waiting
-		end
 
-		act 'Take a look at the clock':gt curloc
-	end
+	act 'Wait':gs 'obj_din', 'wait'
 
 	gs 'taxi'
 
@@ -69,7 +59,7 @@ if $ARGS[0] = '':
 
 	'<a href="exec:minut += 15 & gt ''vokzal''">Train Station</a> to get to the small Town.'
 
-	if week = 3 or hour < 16: 
+	if week = 3 or hour < 16:
 		'The Bar "Rabotnik" is here, but it seems to be closed. A sign by the door tells you that it''s open every day (except Wednesday) between 16:00 and 24:00.'
 	else
 		'The <a href="exec: minut += 5 & gt ''qwBarPolet''">Bar "Rabotnik"</a> seems to be open.'
@@ -119,25 +109,14 @@ if $ARGS[0] = 'redlight':
 	gs 'stat'
 	'<center><h2>St. Petersburg</h2></center>'
 	'<center><b>Red Light District</b></center>'
-	if hour >= 15 or hour <= 2:'The <a href="exec:gt ''stripclub'', ''start''">Strip Clubs</a> red lights, attracting men from all over the city.'
+	'The <a href="exec:gt ''stripclub'', ''start''">Strip Clubs</a> red lights, attracting men from all over the city.'
 	if pornstudio >= 1 and hour >= 10 and hour < 22:'At the <a href="exec:gt ''pornstudio'', ''start''">Porn Studio</a>, where a variety of naughty movies are created'
 	'A shop for <a href="exec:gt ''sexshop'', ''start''">sex toys</a> is open for perverts from all around the city.'
 	if bordel > 0 and hour >= 20 or bordel > 0 and hour <= 3:'Inside the courtyard is the entrance to the <a href="exec:gt ''bordel''">brothel</a>.'
 
 	act 'Return to the Industrial Region (0:05)': minut += 5 & gt 'Nord'
-	
-		act 'Wait':
-		cla
-		waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-		if waiting <= 0 or waiting > 120:
-			minut += 15
-		elseif waiting > 0 and waiting <= 120:
-			minut += waiting
-		end
 
-		act 'Take a look at the clock': gt 'Nord', 'redlight'
-	end
+	act 'Wait':gs 'obj_din', 'wait'
 end
 
 

locations/ParChurch.qsrc

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

locations/_attributes_exercise.qsrc

@@ -6,244 +6,244 @@ if ARGS[1] = 1:
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 2:
 	CloQuality = 3
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 3:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 4:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 4
 	CloPantsShortness = 4
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 5:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 6:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 7:
 	CloQuality = 5
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 4
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 8:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 2
 	CloPantsShortness = 5
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 9:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
 	CloPantsShortness = 2
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 10:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 11:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 3
 	CloPantsShortness = 4
-	CloExhibit = 20
+	CloInhibit = 20
 elseif ARGS[1] = 12:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
 	CloPantsShortness = 5
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 13:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 14:
 	CloQuality = 5
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 15:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 4
 	CloPantsShortness = 5
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 16:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 17:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 18:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 2
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 19:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 20:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 5
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 21:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 5
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 22:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 23:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 24:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 25:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 26:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 2
 	CloPantsShortness = 6
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 27:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 1
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 28:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 29:
 	CloQuality = 5
 	CloThinness = 2
 	CloTopCut = 1
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 30:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 3
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 30
+	CloInhibit = 30
 elseif ARGS[1] = 31:
 	CloQuality = 3
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 5
-	CloExhibit = 25
+	CloInhibit = 25
 elseif ARGS[1] = 32:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 33:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 1
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 34:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 35:
 	CloQuality = 4
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 36:
 	CloQuality = 5
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 37:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 38:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 39:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 40:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 	CloBimbo = 1
 	CloBra = 1
@@ -251,256 +251,256 @@ elseif ARGS[1] = 41:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 	CloBimbo = 1
 elseif ARGS[1] = 42:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 43:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 44:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 45:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 2
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 46:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 47:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 4
 elseif ARGS[1] = 48:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 49:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 50:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 2
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 51:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 52:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 53:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 54:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 55:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 56:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 57:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 58:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 elseif ARGS[1] = 59:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 60:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 2
 elseif ARGS[1] = 61:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 	CloBimbo = 1
 elseif ARGS[1] = 62:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 2
 elseif ARGS[1] = 63:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 64:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 65:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 2
 elseif ARGS[1] = 66:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 67:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 elseif ARGS[1] = 68:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 69:
 	CloQuality = 4
 	CloThinness = 3
 	CloTopCut = 1
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 5
 elseif ARGS[1] = 70:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 elseif ARGS[1] = 71:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 6
 	CloOnePiece = 1
 elseif ARGS[1] = 72:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 2
 elseif ARGS[1] = 73:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 2
 elseif ARGS[1] = 74:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 75:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 76:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 77:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 78:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 79:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 80:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 81:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 82:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 25
+	CloInhibit = 25
 	CloPantsShortness = 5
 	CloBimbo = 1
 	CloBra = 1
@@ -508,187 +508,187 @@ elseif ARGS[1] = 83:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 84:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 85:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 1
 elseif ARGS[1] = 86:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 87:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 88:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 89:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 90:
 	CloQuality = 4
 	CloThinness = 2
 	CloTopCut = 1
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 4
 elseif ARGS[1] = 91:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 92:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 93:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 94:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 95:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 96:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 97:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 98:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 3
 elseif ARGS[1] = 99:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 100:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 101:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 102:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 103:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 104:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 105:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 106:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 107:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 108:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 109:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 110:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 111:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 112:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 113:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 
 end

locations/abduction.qsrc

@@ -255,6 +255,13 @@ if $ARGS[0] = 'abdBrokenGiveTools':
 	'"Aren''t you glad, whore? These dildos are here for you to train on, so you can perform better later in a "live" situation."'
 	'"Uhmm... thank you, Master."'
 	'He puts the stuff down next to your bed and leaves without saying another word.'
+	if lactate > 0:
+		if breastpump = 0:breastpump = 1
+		'In the bottom of the box, under the various dildos, you also found a working breast pump.'
+		if lact_engorgement > 3:
+		 'You are relieved, that you can now empty your painfully full breasts'
+		end
+	end
 	act 'Continue':gt 'abduction', 'abdRoom'
 end
 
@@ -511,7 +518,9 @@ if $ARGS[0] = 'abdEscapeWindow3':
 end
 
 if $ARGS[0] = 'abdFood':
+	$loc = 'abduction'
 	$locM = 'abduction'
+	$metka = 'abdFood'
 	$metkaM = 'abdFood'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/basement2.jpg"></center>'
@@ -566,6 +575,9 @@ if $ARGS[0] = 'abdFood':
 
 	if abdTools = 1:
 		act 'Train with dildos':gt 'abduction', 'abdTrainDildos'
+		if breastpump > 0:
+			act 'Use breast pump':gt 'lact_lib', 'bp_milking'
+		end
 	end
 
 	if vitamin > 0:
@@ -598,7 +610,6 @@ if $ARGS[0] = 'abdFood':
 
 	act 'Look in the mirror': gt 'mirror', 'start'
 	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
-
 	act 'Take a cold shower (0:15)':
 		cumspclnt = 1
 		gs 'cum_cleanup'
@@ -650,7 +661,7 @@ if $ARGS[0] = 'abdRape':
 	if broken < 10:pcs_mood = 5
 
 	if rapeType = 1:
-		pain['mouth'] += 2
+		pain['mouth'] += 3
 		gs 'cum_call', 'mouth', 'torturer'
 		i = rand(1, 4)
 		gifornot = rand (1, 100)
@@ -722,7 +733,7 @@ if $ARGS[0] = 'abdRape':
 		act 'Continue':gt 'abduction', 'abdRoom'
 	else
 		pcs_throat += 1
-		pain['mouth'] += 2
+		pain['mouth'] += 5
 		gs 'cum_call', 'mouth', 'Torturer'
 
 		i = rand(1, 4)
@@ -793,7 +804,7 @@ end
 
 if $ARGS[0] = 'abdTortureA3':
 	cls
-	pain['asshole'] += 2
+	pain['asshole'] += 5
 	pcs_ass += 1
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/torturea3.jpg"></center>'
 	'After a while the tormentor comes back and brings a dildo attached to a longer stick.'
@@ -952,8 +963,8 @@ end
 
 if $ARGS[0] = 'abdTortureD5':
 	cls
-	pain['asshole'] += 2
-	pain['vaginal'] += 2
+	pain['asshole'] += 5
+	pain['vaginal'] += 5
 	pcs_vag += 1
 	pcs_ass += 1
 	gs 'cum_call', 'mouth', 'Torturer'
@@ -1648,10 +1659,10 @@ if $ARGS[0] = 'abdTrainDildosMouthBigUse':
 end
 
 if $ARGS[0] = 'abdTrainDildosMouthHorse':
-	if pcs_throat >= dildoHorse:
+	if pcs_throat >= 35:
 		'You feel that your throat can accomodate this dildo easily.'
 		act 'Use it':gt 'abduction', 'abdTrainDildosMouthHorseUse'
-	elseif pcs_throat <= dildoHorse and pcs_throat > dildoBig:
+	elseif pcs_throat <= 35 and pcs_throat > dildoBig:
 		'You feel that this dildo will stretch your throat, making it a bit deeper.'
 		act 'Use it':gt 'abduction', 'abdTrainDildosMouthHorseUse'
 	else
@@ -1662,10 +1673,11 @@ if $ARGS[0] = 'abdTrainDildosMouthHorse':
 end
 
 if $ARGS[0] = 'abdTrainDildosMouthHorseUse':
-	dick = 40
-	if pcs_throat > dildoHorse:
+	dick = 35
+	if pcs_throat > 35:
 		'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoredildosmouthhorse.mp4"></video></center>'
 		'You start sucking the dildo with ease, your throat swallows it whole without any problem.'
+		gs 'stat'
 		gs 'arousal', 'deepthroat', 60
 	else
 		'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoredildosmouthhorsehurt.mp4"></video></center>'

locations/andrey.qsrc

@@ -8,7 +8,9 @@ if $ARGS[0] = '':
 		'You knock on Mr. Sobulyagin''s office door and when he sees you enter, his expression hardens. "What do you want?" he asks with a scowl.'
 	end
 
-	if (hour >= 18 and (week ! 5 or young_shop_salary = 0)) or hour > 18:
+	if (young_shop_work = 1 and week = 5 and hour = 20) or (young_shop_work1 = 1 and week = 7 and hour = 15) or (young_shop_work2 = 1 and week = 5 and hour = 15):
+		gs 'andrey', 'regular'
+	elseif hour >= 20 or (week > 4 and hour >= 16):
 		msg '<center>Andrew M. Sobulyagin says goodbye and leaves. His workday has ended.</center>'
 		gt 'young_shop', 'start'
 	end

locations/arturend.qsrc

@@ -34,6 +34,9 @@ act 'Brush up':
 			'Arthur looks away guiltily and says "Uh, so I did not have time to look for a gift for you. But here is some money. Buy what do you like, sweet girl."'
 		end
 	elseif bag = 0:
+		cheap_purses[13] = 1
+		$currentpursetype = 'cheap'
+		currentpursenumber = 13
 		bag = 1
 		if menu_option = 1:dynamic $menu_addoldmenu
 		if menu_option = 0:gs 'obj_din', 'new'

locations/bed1.qsrc

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

locations/body.qsrc

@@ -1111,6 +1111,7 @@ else
 	$pcdesc_lipglossinsertive = ''
 	$pcdesc_lipglossed = 'softened'
 	$pcdesc_lipglosswordy = 'soft'
+	$lip = 'You have <<$pcdesc_lipswordy>> lips. <<$pirsB>> <<$pirsA>>'
 end
 
 !! A pair of ready-made lip strings for writers to use if they are unsure how to construct them themselves. Again, these are not great and should preferably not be relied on, but they are here.

locations/brother.qsrc

@@ -59,10 +59,13 @@ if $ARGS[0] = 'start':
 	elseif npc_rel['A34'] >= 60 and npc_rel['A34'] < 80:
 		'You have a good relationship with your brother.'
 	elseif npc_rel['A34'] >= 80:
-		'You have a great relationship with your brother.'
+		'Your brother is practically one of your closest friends.'
 	end
+	
+	act 'Move away':gt $loc, $metka
+	
 	*nl
-	if hour >= 7 and hour < 21:
+	if hour >= 7 and hour < 23:
 		! WD: Fix old nude variable
 		if (cumloc[1] > 0 or cumloc[4] > 0 or cumloc[8] > 0 or cumloc[9] > 0 or cumloc[10] > 0 or cumloc[14] > 0 or cumloc[15] > 0) and $clothingworntype = 'nude':
 			if $pantyworntype = 'none' and cumloc[1] = 1:
@@ -274,6 +277,9 @@ if $ARGS[0] = 'start':
 
 					act 'Move away':gt $loc, $metka
 				end
+				!if brotherSex >= 5:
+				!	act'Ask him if he wants to sneak off to fool around':
+				!end
 			end
 		end
 	end
@@ -282,8 +288,16 @@ if $ARGS[0] = 'start':
 
 		gs 'brother', 'pregreact'
 		gs 'brother', 'brotherSexCount'
+		
+		if hour >= 7 and hour < 23:
+			act'Chat with him':gt'brother2','chat'
+		end
+		
+		!if father_go = 1 and hour >= 7:
+		!	act'Play video games with him':gt'video_games','brother'
+		!end
 
-		if indorf = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and father_go = 1 and npc_rel['A34'] > 85 and hour >= 18 and hour < 21 and pirsF > 0:
+		if indorf = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and father_go = 1 and npc_rel['A34'] > 85 and hour >= 18 and hour < 23 and pirsF > 0:
 			act 'Show off your nipple piercings ':
 				cls
 				gs 'stat'
@@ -322,14 +336,14 @@ if $ARGS[0] = 'start':
 					exit
 				end
 			else
-				if father_go = 1 and hour >= 18 and hour < 21:
+				if father_go = 1 and hour >= 18 and hour < 23:
 					'"How lovely." Kolka plays with your pierced nipples'
 					npc_rel['A34'] += 3
 					brothersawpirsF = 1
 					pcs_horny += 10
 					act '<B>Move away</B>':gt 'sitrPar'
 					exit
-				elseif father_go = 0 and hour >= 18 and hour < 21:
+				elseif father_go = 0 and hour >= 18 and hour < 23:
 					'"Beautiful." Kolka gently cups your breasts and strokes your pierced nipples.'
 					npc_rel['A34'] += 3
 					brothersawpirsF=1
@@ -348,12 +362,22 @@ if $ARGS[0] = 'start':
 				if brotherRand < 5:'As you look, you can also clearly see the outline of his morning wood pitching a tent under the blanket.'
 				if week < 6 and kanikuli = 0:
 					act'Wake him up for breakfast':gt'brother2','wakeup'
+					if brotherwakeup >= 10:
+						if brotherSex >= 5:
+							act'Wake him up with a handjob':gt'brother2','morninghj'
+						end
+						if brotherSex >= 6:
+							act'Wake him up with a blowjob':gt'brother2','morningbj'
+						end
+					end
 				end
 			elseif hour < 7 and brotherMorningSex = daystart:
-				'Your brother is busying himself getting ready for school.'
+				'Your brother is busy getting ready for school.'
+			elseif hour < 23 and father_go = 1:
+				'Your brother is playing video games.'
 			end
 
-			if hour >= 21 and hour < 24 and brotherSex > 4 and brotherNightSex ! daystart:
+			if hour >= 23 and hour < 24 and brotherSex > 4 and brotherNightSex ! daystart:
 				'When you get close, he suddenly opens his eyes and says,:'
 				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
 					'"<<$pcs_nickname>>, help me sleep." Then he throws back the blanket, revealing his erection.'
@@ -374,7 +398,7 @@ if $ARGS[0] = 'start':
 						gs 'brother', 'brotherSexStart'
 					end
 					act 'He''s on his own there':
-						'"You''ve got 2 perfectly good hands, I mean eww...", You turn around and leave.'
+						'"You''ve got 2 perfectly good hands to do that yourself. I mean, <i>eww...</i>", You turn around and leave.'
 						cla
 						act '<B>Move away</B>':gt 'sitrPar'
 						exit
@@ -382,7 +406,7 @@ if $ARGS[0] = 'start':
 				end
 			end
 
-			if father_go = 1 and hour >= 18 and hour < 21 and brotherSex > 0 and brotherEvSex ! daystart:
+			if father_go = 1 and hour >= 18 and hour < 23 and brotherSex > 0 and brotherEvSex ! daystart:
 				'When you get close, He turns to you and says,:'
 				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
 					gs 'boyStat', 'A34'
@@ -434,8 +458,6 @@ if $ARGS[0] = 'start':
 			act'Offer help with homework': gt 'brother_lessons', 'homework'
 		end
 	end
-
-	act 'Move away':gt $loc, $metka
 end
 
 if $ARGS[0] = 'sleepsexcum':
@@ -580,6 +602,7 @@ if $ARGS[0] = 'brotherSexStart':
 		cls
 		minut += 5
 		stat['hj'] += 1
+		npc_rel['A34'] += 2
 		if brotherSex < 5:brotherSex = 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj1.jpg"></center>'
@@ -594,7 +617,8 @@ if $ARGS[0] = 'brotherSexStart':
 			cls
 			minut += 5
 			pcs_horny += 10
-			brotherfuck += 1
+			brotherbj += 1
+			npc_rel['A34'] += 5
 			stat['bj'] += 1
 			if brotherSex < 6:brotherSex = 6
 			gs 'stat'
@@ -629,6 +653,7 @@ if $ARGS[0] = 'brotherSexStart':
 				minut += 5
 				pcs_horny += 10
 				brotherfuck += 1
+				npc_rel['A34'] += 5
 				gs 'boyStat', 'A34'
 				spafinloc = 11
 				sexpartkno = 1
@@ -648,6 +673,7 @@ if $ARGS[0] = 'brotherSexStart':
 					minut += 5
 					pcs_horny += 10
 					brotherfuck += 1
+					npc_rel['A34'] += 5
 					gs 'boyStat', 'A34'
 
 					gs 'stat'
@@ -668,6 +694,7 @@ if $ARGS[0] = 'brotherSexStart':
 					cls
 					minut += 5
 					pcs_horny += 10
+					npc_rel['A34'] += 5
 					brotherfuck += 1
 					if brotherSex < 8:brotherSex = 8
 					gs 'boyStat', 'A34'
@@ -688,6 +715,7 @@ if $ARGS[0] = 'brotherSexStart':
 	if brotherSex >= 6:
 		act 'Give yourself to your brother':
 			brotherfuck += 1
+			npc_rel['A34'] += 5
 			if brotherSex < 7:brotherSex = 7
 			cls
 			minut += 5
@@ -710,6 +738,7 @@ if $ARGS[0] = 'brotherSexStart':
 	if brotherSex >= 7:
 		act 'Offer your ass to your brother':
 			brotherfuck += 1
+			npc_rel['A34'] += 5
 			cls
 			minut += 5
 			pcs_horny += 10
@@ -730,13 +759,18 @@ end
 
 if $ARGS[0] = 'brotherSexEnd':
 	if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
-		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 21:
+		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
 			minut += 15
 
 			gs 'stat'
 
 			'Kolka catches his breath, then says, "Nice one <<$pcs_nickname>>, good job. Just remember this is our little secret!" He continues to go about his business.'
 			act 'Leave': gt 'sitrPar'
+		elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
+			minut += 15
+			gs 'stat'
+			'"Thanks <<$pcs_nickname>>," he yawns, tucking his member back into his pants. Mumbling, "You''re the best..." he curls back up underneath his blanket and begins to doze off.'
+			act 'Leave': gt 'sitrPar'
 		elseif $loc = 'sitrPar':
 			minut += 15
 			gs 'stat'
@@ -748,11 +782,16 @@ if $ARGS[0] = 'brotherSexEnd':
 			act 'Continue':gt $loc, $metka
 		end
 	else
-		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 21:
+		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
 			minut += 15
 			gs 'stat'
 			'Kolka catches his breath, then says, "Many thanks, <<$pcs_nickname>>, you helped me a lot." He continues to go about his business.'
 			act 'Leave': gt 'sitrPar'
+		elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
+			minut += 15
+			gs 'stat'
+			'"Thanks <<$pcs_nickname>>," he yawns, tucking his member back into his pants. Mumbling, "You''re the best..." he curls back up underneath his blanket and begins to doze off.'
+			act 'Leave': gt 'sitrPar'
 		elseif $loc = 'sitrPar':
 			minut += 15
 			gs 'stat'

locations/brother2.qsrc

@@ -1,5 +1,86 @@
 # brother2
 
+if $ARGS[0] = 'chat':
+	'<center><b><font color="maroon">Kolka</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+	'You casually talk to him about whatever topics come up.'
+	*nl
+	brotherchat = rand(1,8)
+	if brotherchat = 1:
+		'"... so, yeah. Mom wants me to clean up my stuff on the couch, but if I''m going to sleep there anyways, why does it matter?" he asks, snapping you out of your idle thoughts and bringing you back to the room.'
+		*nl
+		if npc_rel['A29'] >= 40:
+			'"I know it seems pointless but you should listen to mom. You''ll get in trouble otherwise," you admonish him.'
+		elseif npc_rel['A29'] < 40:
+			'"Ugh, I know! Mom is always nagging me about everything! She can be such a pain in the ass sometimes!" you '
+		end
+
+	elseif brotherchat = 2:
+		'"... and dad asked me if I want to help him work on the Gazelle but I don''t know. I''d rather go play football with Zhendos and Mishan," he finishes, snapping you out of your idle thoughts and bringing you back to the room.'
+		*nl
+		'"It''s good to have fun with your friends but it might also be good to work with dad. It''s a good life skill. Besides, there''s nothing girls love more than a man who knows how to work a car!" you wink at him.'
+	
+	elseif brotherchat = 3:
+		'"I hate math so much!" he moans. "Math sucks! It can go die in a hole!"'
+		*nl
+		if pcs_grades >= 50:
+			'"Oh Kolka, you shouldn''t think like that. Math is important!"'
+		elseif pcs_grades < 50:
+			'"Blegh! Yeah, you''re right. Math sucks!" you grumble in agreement.'
+		end
+	
+	elseif brotherchat = 4:
+		'Kolka starts telling you a story about him and his friends. As it goes on longer and all over the place, you find yourself zoning out and not really paying attention to what he''s saying.'
+		'"... and then he ripped his pants!" he giggles, snapping you out of your idle thoughts and bringing you back to the room. "Isn''t that hilarious?"'
+		*nl
+		'"Uhh, yeah! That''s pretty funny!" you fake laugh as best you can.'
+
+	elseif brotherchat = 5 and brothersexed >= 1:
+		'"... so I''m enjoying science a lot more," he says, snapping you out of your idle thoughts and bringing you back to the room. "My grades have gotten better since you started helping me with my homework but I''m still not sure I completely get it..." He hesitates. "Could you maybe... give me another anatomy lesson? Like you did before?" he says, looking at you meaningfully.'
+		*nl
+		'"I''m thinking about it..." you say slyly.'
+	elseif brotherchat = 5:
+		'"... so science class is alright," he says. "I''m really having trouble with my anatomy homework though. The diagrams in the book aren''t very good, I don''t understand it."'
+		*nl
+		'"Hmm. Well maybe I could help you with it sometime? Do something to help you understand it better?"'
+		anatomyhomeworkhelp = 1
+
+	elseif brotherchat = 6:
+		'... and then he sprayed milk all over his locker!" he says with a burst of laughter "It was <i>so</i> funny!"'
+		*nl
+		'"I bet it was," you say.'
+		'<i>What weird kids he and his friends are...</i> you think to yourself.'
+
+	elseif brotherchat = 7:
+		'"... so the plan is while he''s showering to take his underwear and replace them with girls panties," he says. "Zhendos says that I should just steal some of yours out of your drawer but-" he stops dead with wide eyes and the realization of what he just said.'
+		*nl
+		if npc_rel['A34'] < 80:
+			'"<i>Excuse me?</i> You were planning to do <i>what</i> with my underwear??" you say, sternly staring at him while he twiddles his thumbs and tries to pretend he didn''t say anything.'
+		else
+			'"Woah woah woah!" you say. "Hold up! I love you Kolka, but I am not about to let you put my panties on some juvenile boy!"'
+		end
+
+	elseif brotherchat = 8:
+		'"... I just want more time to play football with Zhendos and Mishan though," he moans. "I can''t do anything with them when mom is dragging us to boring old Gadyukino every other weekend."'
+		*nl
+		if seepornofut = 0:
+			'"It''s okay Kolka," you console him. "Just enjoy the time you have with them. In a couple years mom might not force you to go anymore but you all might end up too busy to hang out."'
+		elseif seepornofut >= 1:
+			'"Pfft! More like you want more time to watch porn with them!" you laugh scoffingly.'
+			*nl
+			if pornMagazine = 0:
+				'	"We play football too!" Kolka protests while you tease him with a silly face and fake jerk off motions.'
+			elseif pornMagazine > 0:
+				'	"We play football too!" Kolka protests while you tease him with silly face and fake jerk off motions. "Hrmph! You''re one to talk anyways," he grumbles. "I know about that magazine you hide under your bed."'
+				*nl
+				'	"I don''t know what you''re talking about," you say with an air of feigned innocence and superiority. "I have never been anything other than ladylike!"'
+				*nl
+				'	"Come on sis," he says with a look. "We were just talking about this. I watch porn. I know what girls do when no one is looking. Furiously schlicking it while biting down on your pillow <i>is</i> your version of ladylike."'
+			end
+		end
+	end
+	act'Continue':gt'brother','start'
+end
 
 if $ARGS[0] = 'wakeup':
 	cla & *clr
@@ -211,8 +292,10 @@ if $ARGS[0] = 'wakeup':
 	
 	if brotherSex >= 5 or pcs_inhib >= 50 or npc_rel['A34'] >= 85:
 		act'Tell him you''ll give him a handjob':
+			npc_rel['A34'] += 5
 			cla
 			brotherMorningSex = daystart
+			brotherwakeup += 1
 			'"I''ll tell you what Kolka, if you get up now, I''ll help you deal with your morning wood before mom and dad come out of their room."'
 			'His eye cracks open to look at you, seemingly intrigued.'
 			'"How?"'
@@ -236,6 +319,8 @@ if $ARGS[0] = 'wakeup':
 		act'Tell him you''ll give him a blowjob':
 			cla
 			brotherMorningSex = daystart
+			brotherwakeup += 1
+			npc_rel['A34'] += 5
 			'"Okay Kolka, if you get up now, before mom and dad come out of their room, I''ll give you a blowjob."'
 			'His eye cracks open to look at you, seemingly intrigued.'
 			'"How does that sound?"'
@@ -245,6 +330,7 @@ if $ARGS[0] = 'wakeup':
 				gs 'arousal', 'hj', 5
 				gs 'cum_call','mouth', $boy
 				swallow += 1
+				brotherbj += 1
 				if brotherSex < 6:brotherSex = 6
 				if $clothingworntype = 'nude' and $braworntype = 'none':
 					'<center><video src="images/characters/pavlovsk/resident/kolka/bj1.mp4"></center>'
@@ -262,5 +348,46 @@ if $ARGS[0] = 'wakeup':
 	end
 end
 
+if $ARGS[0] = 'morninghj':
+	cla & *clr
+	gs 'arousal', 'hj', 5
+	gs 'cum_call','hands', $boy
+	npc_rel['A34'] += 5
+	if brotherSex < 5:brotherSex = 5
+	'<center><img <<$set_imgh>> src="images/shared/sex/handjob/kotovhj.jpg"></center>'
+	'Kneeling down next to the sofa, you carefully pull back his blanket to see his morning erection sticking through his pants. Slipping his cock out, you wrap your hand around it and begin to gently work it up and down, feeling it harden even more under your grip.'
+	'Kolka starts to stir and blearily opens his eyes in confusion to see you giving him head.'
+	'"Whaa-? What''s happening? What are you doing?"'
+	'"I thought that would be obvious. I''m giving you a handjob to wake you up!" You smile at him, not for a moment stopping your jerking hand. "This little guy got up even earlier than you did."'
+	'Your brother sighs in satisfaction, your hand continuing to work his cock. After several minutes he orgasms, his sticky cum spilling all over your hand.'
+	'As you think about what you should do to clean it off, you hear him saying, "Handjobs are great and everything, but do you think you could try a blowjob next time instead?"'
+	'"I''ll think about it," you say, rolling your eyes in amusement as you walk away, your brother automatically beginning to get ready for school.'
+	act'Move away':gt $loc, $metka
+end
+
+if $ARGS[0] = 'morningbj':
+	brotherwakeup += 1
+	cla & *clr
+	gs 'arousal', 'hj', 5
+	gs 'cum_call','mouth', $boy
+	swallow += 1
+	brotherbj += 1
+	npc_rel['A34'] += 10
+	if brotherSex < 6:brotherSex = 6
+	if $clothingworntype = 'nude' and $braworntype = 'none':
+		'<center><video src="images/characters/pavlovsk/resident/kolka/bj1.mp4"></center>'
+	else
+		'<center><video src="images/characters/pavlovsk/resident/kolka/bj2.mp4"></center>'
+	end
+	'Kneeling down, you carefully pull back his blanket to see his morning erection sticking through his pants. Slipping his cock out, you wrap your lips around it and begin to suck gently.'
+	'Kolka starts to stir and blearily opens his eyes in confusion to see you giving him head.'
+	'"Whaa-? What''s happening? What are you doing?"'
+	'"What''s it look like I''m doing?" you say after removing his cock from your mouth so you can speak. "I''m giving you your morning blowjob so you can get up in time for school."'
+	'With no further explanations, you get back to blowing your brother. A few more minutes go by and you hear Kolka groan as his hot cum shoots into your mouth.'
+	'"You''re the best sister ever..."'
+	'Swallowing his cum, you flash him a toothy grin. "I know. Now up an at''em kiddo! I don''t do this just so you can go back to sleep."'
+	'Having been given sufficient positive reinforcement, he obediently gets up and starts going about tidying the sofa and getting ready to go to school.'
+	act'Move away':gt $loc, $metka
+end
 --- brother2 ---------------------------------
 

locations/brother_lessons.qsrc

@@ -370,8 +370,24 @@ if $ARGS[0] = 'anatomylesson3':
 
 			elseif pcs_vag > 0 and guy > 0:
 				if pcs_vag <= 25:
-					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag3.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag1.jpg"></center>'
+					'	"The next part I can''t actually show you, but I might as well show you where it should be," you say. You spread your pussy lips apart and let him look inside. "Normally, there''s something called a ''hymen'' here. You can see a diagram of it in your textbook. Every girl is born with one and will have it until it gets torn."'
+					'	"How does it get torn?" Kolka quickly asks while continuing to stare at yours in wonder.'
+					'	"Well, it can get torn in a number of ways but the most common is when a girl loses her virginity. We''ll talk about this more next time, but when a boy and a girl have sex, the boy sticks his penis inside the girl''s vagina. The only way to get the penis all the way inside is to push through the hymen and break it. It usually causes a small amount of bleeding. That''s why they call it ''popping a cherry,''" you smile.'
+					'	He takes note of your clear lack of a hymen and asks, "So... does this mean you''ve... you know...?"'
+					'	"That I''ve had sex? Yeah. Someone already took my v-card," You say somewhat proudly. "But don''t tell mom!"'
+					'	He nods in acknowledgement while writing down some more notes.'
+					'	After a couple more questions, you continue on with the lesson.'
+					act'Continue':gt'brother_lessons', 'anatomylesson4'
+					
 				elseif pcs_vag > 25 and pcs_vag <= 35:
+					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag2.jpg"></center>'
+					'	"The next part I can''t actually show you, but I might as well show you where it should be," you say. You spread your pussy lips apart and let him look inside. "Normally, there''s something called a ''hymen'' here. You can see a diagram of it in your textbook. Every girl is born with one and will have it until it gets torn."'
+					'	"How does it get torn?" Kolka quickly asks while continuing to stare at yours in wonder.'
+					'	"Well, it can get torn in a number of ways but the most common is when a girl loses her virginity. We''ll talk about this more next time, but when a boy and a girl have sex, the boy sticks his penis inside the girl''s vagina. The only way to get the penis all the way inside is to push through the hymen and break it. It usually causes a small amount of bleeding. That''s why they call it ''popping a cherry,''" you smile.'
+					'	He takes note of your clear lack of a hymen and asks, "So... does this mean you''ve... you know...?"'
+					'	"That I''ve had sex? Yeah. Someone already took my v-card," You say somewhat proudly. "But don''t tell mom!"'
+					'	He nods in acknowledgement while writing down some more notes.'
 					'	"Is it supposed to look this loose?" he asks, causing you to blush hard.'
 					act'"I''ve had a lot of sex"':
 						cla
@@ -388,9 +404,8 @@ if $ARGS[0] = 'anatomylesson3':
 						'	After a couple more questions, you continue on with the lesson.'
 						act'Continue':gt'brother_lessons', 'anatomylesson4'
 					end
-					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag4.jpg"></center>'
 				elseif pcs_vag > 35:
-					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag5.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag3.jpg"></center>'
 					'	"The next part I can''t actually show you, but I might as well show you where it should be," you say. You spread your pussy lips apart and let him look inside. "Normally, there''s something called a ''hymen'' here. You can see a diagram of it in your textbook. Every girl is born with one and will have it until it gets torn."'
 					'	"How does it get torn?" Kolka quickly asks while continuing to stare at yours in wonder.'
 					'	"Well, it can get torn in a number of ways but the most common is when a girl loses her virginity. We''ll talk about this more next time, but when a boy and a girl have sex, the boy sticks his penis inside the girl''s vagina. The only way to get the penis all the way inside is to push through the hymen and break it. It usually causes a small amount of bleeding. That''s why they call it ''popping a cherry,''" you smile.'
@@ -420,15 +435,27 @@ if $ARGS[0] = 'anatomylesson3':
 				end
 			else
 				if pcs_vag <= 25:
-					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag3.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag1.jpg"></center>'
+					'	"The next part I can''t actually show you, but I might as well show you where it should be," you say. You spread your pussy lips apart and let him look inside. "Normally, there''s something called a ''hymen'' here. You can see a diagram of it in your textbook. Every girl is born with one and will have it until it gets torn."'
+					'	"How does it get torn?" Kolka quickly asks while continuing to stare at yours in wonder.'
+					'	"Well, it can get torn in a number of ways but the most common is when a girl loses her virginity. We''ll talk about this more next time, but when a boy and a girl have sex, the boy sticks his penis inside the girl''s vagina. The only way to get the penis all the way inside is to push through the hymen and break it. It usually causes a small amount of bleeding. That''s why they call it ''popping a cherry,''" you smile.'
+					'	He takes note of your clear lack of a hymen and asks, "So... does this mean you''ve... you know...?"'
+					'	"That I''ve had sex? No actually. I actually broke mine-" You stop and blush with the realization of what you''re about to admit. "... mastur...bating..."'
+					'	After a couple more questions, you continue on with the lesson.'
+					act'Continue':gt'brother_lessons', 'anatomylesson4'
 				elseif pcs_vag > 25 and pcs_vag <= 35:
-					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag4.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag2.jpg"></center>'
+					'	"The next part I can''t actually show you, but I might as well show you where it should be," you say. You spread your pussy lips apart and let him look inside. "Normally, there''s something called a ''hymen'' here. You can see a diagram of it in your textbook. Every girl is born with one and will have it until it gets torn."'
+					'	"How does it get torn?" Kolka quickly asks while continuing to stare at yours in wonder.'
+					'	"Well, it can get torn in a number of ways but the most common is when a girl loses her virginity. We''ll talk about this more next time, but when a boy and a girl have sex, the boy sticks his penis inside the girl''s vagina. The only way to get the penis all the way inside is to push through the hymen and break it. It usually causes a small amount of bleeding. That''s why they call it ''popping a cherry,''" you smile.'
+					'	He takes note of your clear lack of a hymen and asks, "So... does this mean you''ve... you know...?"'
+					'	"That I''ve had sex? No actually. I actually broke mine-" You stop and blush with the realization of what you''re about to admit. "... mastur...bating..."'
 					'	"Is it supposed to look this loose?" he asks again. You blush even harder.'
 					'	"I masturbate a lot..."'
 					'	After a couple more questions, you continue on with the lesson.'
 					act'Continue':gt'brother_lessons', 'anatomylesson4'
 				elseif pcs_vag > 35:
-					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag5.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/pc/body/pussy/vag3.jpg"></center>'
 					'	"The next part I can''t actually show you, but I might as well show you where it should be," you say. You spread your pussy lips apart and let him look inside. "Normally, there''s something called a ''hymen'' here. You can see a diagram of it in your textbook. Every girl is born with one and will have it until it gets torn."'
 					'	"How does it get torn?" Kolka quickly asks while continuing to stare at yours in wonder.'
 					'	"Well, it can get torn in a number of ways but the most common is when a girl loses her virginity. We''ll talk about this more next time, but when a boy and a girl have sex, the boy sticks his penis inside the girl''s vagina. The only way to get the penis all the way inside is to push through the hymen and break it. It usually causes a small amount of bleeding. That''s why they call it ''popping a cherry,''" you smile.'

locations/brother_voyeur.qsrc

@@ -69,10 +69,8 @@ if $ARGS[0] = 'showertalk1':
 				bro_ass_compliment = rand(1,3)
 				if bro_ass_compliment = 1:
 					act'Continue':gt'brother_voyeur','ass_compliment'
-				elseif pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
 				else
-					act'Continue':gt'brother_voyeur','dryoff'
+					act'Continue':gt'brother_voyeur','shave'
 				end
 			end
 		end
@@ -82,7 +80,7 @@ if $ARGS[0] = 'showertalk1':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			'	You casually talk to him about his day while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
 			if pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Look at your legs':gt'brother_voyeur','shave'
+				act'Continue':gt'brother_voyeur','shave'
 			else
 				act'Finish showering':gt'brother_voyeur','dryoff'
 			end
@@ -93,7 +91,7 @@ if $ARGS[0] = 'showertalk1':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			'	You casually chat with him about how he''s doing in school while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
 			if pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Look at your legs':gt'brother_voyeur','shave'
+				act'Continue':gt'brother_voyeur','shave'
 			else
 				act'Finish showering':gt'brother_voyeur','dryoff'
 			end
@@ -104,7 +102,7 @@ if $ARGS[0] = 'showertalk1':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			'	You chat with him about his friends and what he does for fun with them while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
 			if pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Look at your legs':gt'brother_voyeur','shave'
+				act'Continue':gt'brother_voyeur','shave'
 			else
 				act'Finish showering':gt'brother_voyeur','dryoff'
 			end
@@ -156,10 +154,8 @@ if $ARGS[0] = 'showertalk2':
 			'	<i>Boys will be boys after all...</i> you muse to yourself, a smile subconsciously turning the corners of your own lips.'
 			if bro_ass_compliment = 1:
 				act'Continue':gt'brother_voyeur','ass_compliment'
-			elseif pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Continue':gt'brother_voyeur','shave'
 			else
-				act'Continue':gt'brother_voyeur','dryoff'
+				act'Continue':gt'brother_voyeur','shave'
 			end
 		end
 
@@ -168,11 +164,7 @@ if $ARGS[0] = 'showertalk2':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			if brothershowertalk <= 5:
 				'	You casually talk to him about his day while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
-				else
-					act'Continue':gt'brother_voyeur','dryoff'
-				end
+				act'Continue':gt'brother_voyeur','shave'
 
 			elseif brothershowertalk > 5:
 				'	He happily talks to you about his day, though he still sits on the toilet facing away. He also still takes a few looks at you now and again but they aren''t as sneaky and they mostly seem to be glances to see your face. <i>Not that his eyes don''t wander downward anyways...</i> you notice with a smile.'
@@ -182,11 +174,7 @@ if $ARGS[0] = 'showertalk2':
 					'	"... but, yeah. It was a pretty good day overall," he finishes, snapping you out of your idle thoughts and bringing you back to the room.'
 					*nl
 					'	"That''s always good to hear!" you reply.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerdaytalk = 2:
 					'	"... so, yeah. Mom wants me to clean up my stuff on the couch, but if I''m going to sleep there anyways, why does it matter?" he asks, snapping you out of your idle thoughts and bringing you back to the room.'
@@ -196,21 +184,13 @@ if $ARGS[0] = 'showertalk2':
 					elseif npc_rel['A29'] < 40:
 						'	"Ugh, I know! Mom is always nagging me about everything! She can be such a pain in the ass sometimes!" you '
 					end
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerdaytalk = 3:
 					'	"... and dad asked me if I want to help him work on the Gazelle but I don''t know. I''d rather go play football with Zhendos and Mishan," he finishes, snapping you out of your idle thoughts and bringing you back to the room.'
 					*nl
 					'	"It''s good to have fun with your friends but it might also be good to work with dad. It''s a good life skill. Besides, girls love nothing more than a man who knows how to work a car!" you wink at him.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 				end
 			end
 		end
@@ -220,12 +200,8 @@ if $ARGS[0] = 'showertalk2':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			if brothershowertalk <= 5:
 				'	You casually chat with him about how he''s doing in school while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
-				else
-					act'Continue':gt'brother_voyeur','dryoff'
-				end
-
+				act'Continue':gt'brother_voyeur','shave'
+				
 			elseif brothershowertalk > 5:
 				'	He energetically talks to you about school and how it''s going for him, though he still sits on the toilet facing away. He also still takes a few looks at you now and again but they aren''t as sneaky and they mostly seem to be glances to see your face. <i>Not that his eyes don''t wander downward anyways...</i> you notice with a smile.'
 				brothershowerschooltalk = rand(1,3)
@@ -238,42 +214,27 @@ if $ARGS[0] = 'showertalk2':
 					elseif pcs_grades < 50:
 						'	"Blegh! Yeah, you''re right. Math sucks!" you grumble in agreement.'
 					end
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerschooltalk = 2:
 					'	"... and then he ripped his pants!" he giggles, snapping you out of your idle thoughts and bringing you back to the room. "Isn''t that hilarious?"'
 					*nl
 					'	"Uhh, yeah! That''s pretty funny!" you fake laugh as best you can.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerschooltalk = 3 and brothersexed < 1:
 					'	"... so science class is alright," he says, snapping you out of your idle thoughts and bringing you back to the room. "I''m really having trouble with my anatomy homework though. The diagrams in the book aren''t very good, I don''t understand it."'
 					*nl
 					'	"Hmm. Well maybe I could help you with it sometime? Do something to help you understand it better?"'
 					anatomyhomeworkhelp = 1
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerschooltalk = 3 and brothersexed >= 1:
 					'	"... so I''m enjoying science a lot more," he says, snapping you out of your idle thoughts and bringing you back to the room. "My grades have gotten better since you started helping me with my homework but I''m still not sure I completely get it..." He hesitates. "Could you maybe... give me another anatomy lesson? Like you did before?" he says, looking at you meaningfully.'
 					*nl
 					'	"I''ll think about it..." you say slyly.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 				end
 			end
 		end
@@ -283,11 +244,7 @@ if $ARGS[0] = 'showertalk2':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			if brothershowertalk <= 5:
 				'	You chat with him about his friends and what he does for fun with them while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
-				else
-					act'Continue':gt'brother_voyeur','dryoff'
-				end
+				act'Continue':gt'brother_voyeur','shave'
 
 			elseif brothershowertalk > 5:
 				'	He cheerfully talks to you about him and his friends and what they get up to together, though he still sits on the toilet facing away. He also still takes a few looks at you now and again but they aren''t as sneaky and they mostly seem to be glances to see your face. <i>Not that his eyes don''t wander downward anyways...</i> you notice with a smile.'
@@ -297,41 +254,25 @@ if $ARGS[0] = 'showertalk2':
 					'	... and then he sprayed milk all over his locker!" he says with a burst of laughter, snapping you out of your idle thoughts and bringing you back to the room. "It was <i>so</i> funny! Hey, are you listening?"'
 					*nl
 					'	"Uhmm, yeah! Of course!" you say, trying to maintain your poker face as best you can while he frowns at you suspiciously.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerfriendtalk = 2:
 					'	"... so the plan is while he''s showering to take his underwear and replace them with girls panties," he says, snapping you out of your idle thoughts and bringing you back into the room. "Zhendos says that I should just steal some of yours out of your drawer but-" he stops dead with wide eyes and the realization of what he just said.'
 					*nl
 					'	"<i>Excuse me?</i> You were planning to do <i>what</i> with my underwear??" you say, sternly staring at him while he twiddles his thumbs and tries to pretend he didn''t say anything.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerfriendtalk = 3:
 					'	"... I wish I had more time to play football with Zhendos and Mishan though," he says, snapping you out of your idle thoughts and bringing you back to the room. "I can''t do anything with them when mom is dragging us to Gadyukino every other weekend."'
 					*nl
 					if seepornofut = 0:
 						'	"It''s okay Kolka," you console him. "Just enjoy the time you have with them. In a couple years mom might not force you to go anymore but you all might end up too busy to hang out."'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:
-							act'Continue':gt'brother_voyeur','shave'
-						else
-							act'Continue':gt'brother_voyeur','dryoff'
-						end
+						act'Continue':gt'brother_voyeur','shave'
 					elseif seepornofut >= 1:
 						'	"Pfft! More like you want more time to watch porn with them!" you laugh scoffingly.'
 						*nl
 						'	"We play football too!" Kolka turns to cry out in protest while you tease him with a silly face and fake jerk off motions. He blushes deeply and quickly turns back to face the wall.'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:
-							act'Continue':gt'brother_voyeur','shave'
-						else
-							act'Continue':gt'brother_voyeur','dryoff'
-						end
+						act'Continue':gt'brother_voyeur','shave'
 					end
 				end
 			end
@@ -374,9 +315,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"That''s always good to hear!" you reply.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerdaytalk = 2:
@@ -386,9 +329,11 @@ if $ARGS[0] = 'brothershowerlook':
 			if npc_rel['A29'] < 40:'	"Ugh, I know! Mom is always nagging me about everything! She can be such a pain in the ass sometimes!" you grumble in agreement.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerdaytalk = 3:
@@ -397,9 +342,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"It''s good to have fun with your friends but it might also be good to work with dad. It''s a good life skill. Besides, girls love nothing more than a man who knows how to work a car!" you wink at him. "It just makes them want to..." you trail off, grabbing your breast with one hand and putting the other between your legs with an open mouth in a silent moan, pretending to masturbate. After a couple seconds of gyrating your hips in the motion, you spread your hands out over your hips and say, "Sploosh." He laughs at your act and gives you a golf clap while you bow in appreciation.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 		end
 	end
@@ -421,9 +368,11 @@ if $ARGS[0] = 'brothershowerlook':
 			if pcs_grades < 50:'	"Blegh! Yeah, you''re right. Math sucks!" you grumble in agreement.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerschooltalk = 2:
@@ -432,9 +381,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"Uhh, yeah! That''s pretty funny!" you fake laugh as best you can.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerschooltalk = 3 and brothersexed = 0:
@@ -444,9 +395,11 @@ if $ARGS[0] = 'brothershowerlook':
 			anatomyhomeworkhelp = 1
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerschooltalk = 3 and brothersexed >= 1:
@@ -455,9 +408,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"I''ll think about it..." you say slyly.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 		end
 	end
@@ -478,9 +433,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"Uhmm, yeah! Of course!" you say, trying to maintain your poker face as best you can while he frowns at you suspiciously.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerfriendtalk = 2:
@@ -489,9 +446,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"<i>Excuse me?</i> You were planning to do <i>what</i> with my underwear??" you say, staring at him sternly while he twiddles his thumbs and tries to pretend he didn''t say anything.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerfriendtalk = 3:
@@ -501,9 +460,11 @@ if $ARGS[0] = 'brothershowerlook':
 				'	"It''s okay Kolka," you console him. "Just enjoy the time you have with them. In a couple years mom might not force you to go anymore but you all might end up too busy to hang out."'
 				act'Continue':
 					bro_ass_compliment = rand(1,3)
-					if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-					if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+					if bro_ass_compliment = 1:
+						gt'brother_voyeur','ass_compliment'
+					else
+						gt'brother_voyeur','shave'
+					end
 				end
 
 			elseif seepornofut >= 1:
@@ -513,9 +474,11 @@ if $ARGS[0] = 'brothershowerlook':
 					'	"We play football too!" Kolka protests while you tease him with a silly face and fake jerk off motions.'
 					act'Continue':
 						bro_ass_compliment = rand(1,3)
-						if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-						if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+						if bro_ass_compliment = 1:
+							gt'brother_voyeur','ass_compliment'
+						else
+							gt'brother_voyeur','shave'
+						end
 					end
 				elseif pornMagazine > 0:
 					'	"We play football too!" Kolka protests while you tease him with silly face and fake jerk off motions. "Hrmph! You''re one to talk anyways," he grumbles. "I know about that magazine you hide under your bed."'
@@ -527,9 +490,11 @@ if $ARGS[0] = 'brothershowerlook':
 					'	The two of you continue to playfully sling accusations and lewd gestures at each other for the rest of your shower, giggling the whole time.'
 					act'Continue':
 						bro_ass_compliment = rand(1,3)
-						if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-						if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+						if bro_ass_compliment = 1:
+							gt'brother_voyeur','ass_compliment'
+						else
+							gt'brother_voyeur','shave'
+						end
 					end
 				end
 			end
@@ -621,6 +586,7 @@ end
 if $ARGS[0] = 'brother_shower_together':
 	brothergrope = rand(0,1)
 	inhib_exp += rand(1,3)
+	brother_shower_times += 1
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershower.jpg"></center>'
 	'	Kolka clambers into the shower with you, doing his best to get under the water. The bath tub isn''t very big and it''s a tight squeeze for both of you to be in there.'
@@ -734,7 +700,7 @@ if $ARGS[0] = 'brother_shower_together':
 				if brotherbj < 1 and brotherfuck < 1:
 					'	"Hey Kolka, want to see something cool?"'
 					'	"Huh?" He asks, confused. "What is it?"'
-					'	His eyes go wide when you grab him by the cock. Slightly panicked, he looks back at you when you start to kneel.'
+					'	His eyes go wide when as your hand slips up his leg and grips his member. Slightly panicked, he looks back at you when you start to kneel.'
 					'	"It''s my mouth around your cock!"'
 					act'Blow him':gt'brother_voyeur','brother_shower_bj'
 				else
@@ -804,7 +770,7 @@ if $ARGS[0] = 'brother_wash':
 				if brothersex > 0 or brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 					act'Have some fun':
 						cla & *clr
-						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
 						act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -823,7 +789,7 @@ if $ARGS[0] = 'brother_wash':
 				if brothersex > 0 or brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 					act'Have some fun':
 						cla & *clr
-						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
 						act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -842,7 +808,7 @@ if $ARGS[0] = 'brother_wash':
 				if brothersex > 0 or brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 					act'Have some fun':
 						cla & *clr
-						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
 						act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1926,23 +1892,7 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 			'	"It''s okay Kolka. I''m not mad. Let''s get you into the club. Why don''t I show you the <b>member only</b> entrance?"'
 			'	"Don''t you mean member<b>s</b> only entrance sis?" he asks, confused.'
 			'	"That''s not what I said," you whisper, pushing your hips back and swallowing him straight to the hilt.'
-			act'Continue':
-				guy += 1
-				gs 'arousal', 'vaginal', rand(5,10)
-				gs 'stat'
-				eff_contra = iif(argc > 1,ARGS[1],sexcontra)
-				tmp = func('pregriskeval',eff_contra)
-				cla & *clr
-				'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
-				'	Barely giving him any time at all to recover from your sudden start, you immediately break into a hard rhythm, thrusting your hips back and giving it your all. He''s your little brother after all. You should try to make his first time special. Soon enough, you start giving him tips.'
-				'	"Hold my hips so you have more control."'
-				'	"Grab my boobs if you like. Boobs are meant to be grabbed during sex.'
-				'	"Don''t worry if you feel like you''re going to cum. It''s your first time so just let me kn-OW-OW-WOAH!"'
-				'	Kolka''s really getting into it. He pumps in and out you, member slick with your juices. His hands come up to grab your breasts and you gasp when they''re used as leverage to fuck you harder, his cock reaching even deeper inside you. His cock! Oh god! It''s driving you insane! Even though it''s his first time, he''s actually pretty good! Fuck! You should have jumped on his dick ages ago!'
-				'	Several minutes go by with you unable to think about anything except how good fucking your brother feels.'
-				'	Suddenly, you feel him urgently tapping you on the shoulder.'
-				act'Continue':gt'brother_voyeur','brother_fuck_cum'
-			end
+			act'Continue':gt'brother_voyeur','brother_shower_fuck_first3'
 		end
 		act'This doesn''t make you''re special':
 			cla
@@ -1951,24 +1901,8 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 			'	"What do you mean?" he asks, grin disappearing.'
 			'	"There''s been a lot of members in that club." You position his tip at your entrance, lining him up for what you''re about to do next.'
 			'	"A <b>lot.</b> Of <b>members.</b>" On your emphasized words, you thrust your hips backward to take his entire cock inside you in one go, causing your brother to gasp and grab you by the hips to steady himself.'
-			'	"Inside. <b>my ''club.''</b>" you whisper into his ear.'
-			act'Continue':
-				guy += 1
-				gs 'arousal', 'vaginal', rand(5,10)
-				gs 'stat'
-				eff_contra = iif(argc > 1,ARGS[1],sexcontra)
-				tmp = func('pregriskeval',eff_contra)
-				cla & *clr
-				'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
-				'	Barely giving him any time at all to recover from your sudden start, you immediately break into a hard rhythm, thrusting your hips back and giving it your all. He''s your little brother after all. You should try to make his first time special. Soon enough, you start giving him tips.'
-				'	"Hold my hips so you have more control."'
-				'	"Grab my boobs if you like. Boobs are meant to be grabbed during sex.'
-				'	"Don''t worry if you feel like you''re going to cum. It''s your first time so just let me kn-OW-OW-WOAH!"'
-				'	Kolka''s really getting into it. He pumps in and out you, member slick with your juices. His hands come up to grab your breasts and you gasp when they''re used as leverage to fuck you harder, his cock reaching even deeper inside you. His cock! Oh god! It''s driving you insane! Even though it''s his first time, he''s actually pretty good! Fuck! You should have jumped on his dick ages ago!'
-				'	Several minutes go by with you unable to think about anything except how good fucking your brother feels.'
-				'	Suddenly, you feel him urgently tapping you on the shoulder.'
-				act'Continue':gt'brother_voyeur','brother_fuck_cum'
-			end
+			'	"Inside. <i>My. <b>''Club.''</i></b>" you whisper into his ear.'
+			act'Continue':gt'brother_voyeur','brother_shower_fuck_first3'
 		end
 	else
 		brotherfuck += 1
@@ -2010,9 +1944,10 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 
 			act'No, I''m a slut':
 				cla
+				brother_knows_not_virgin = 1
 				'	"Nope!" You smile at him. "Sorry to disappoint, but yours is just going to be one more of many different dicks that have been inside my pussy little brother."'
-				'	You''re not really sure why you''re telling him about this, especially with the implication that you''re a huge slut, but there''s no time to think about that as you push your ass towards him and swallow his cock with your pussy.'
-				act'Continue':gt'brother_voyeur','brother_shower_fuck_first2'
+				'	You''re not really sure why you''re telling him about this, especially with the implication that you''re a huge slut, but there''s no time to think about that as you thrust your hips backward to take his entire length inside you in one go. Your brother gasps at the rush of having his cock entirely swallowed by your pussy, grabbing you by the hips to steady himself.'
+				act'Continue':gt'brother_voyeur','brother_shower_fuck_first3'
 			end
 
 			act'Yes, you''re my first time (lie)':
@@ -2079,7 +2014,23 @@ if $ARGS[0] = 'brother_shower_fuck_first2':
 		end
 	end
 end
-
+if $ARGS[0] = 'brother_shower_fuck_first3':
+	guy += 1
+	gs 'arousal', 'vaginal', rand(5,10)
+	gs 'stat'
+	eff_contra = iif(argc > 1,ARGS[1],sexcontra)
+	tmp = func('pregriskeval',eff_contra)
+	cla & *clr
+	'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
+	'	Barely giving him any time at all to recover from your sudden start, you immediately break into a hard rhythm, thrusting your hips back and giving it your all. He''s your little brother after all. You should try to make his first time special. Soon enough, you start giving him tips.'
+	'	"Hold my hips so you have more control."'
+	'	"Grab my boobs if you like. Boobs are meant to be grabbed during sex.'
+	'	"Don''t worry if you feel like you''re going to cum. It''s your first time so just let me kn-OW-OW-WOAH!"'
+	'	Kolka''s really getting into it. He pumps in and out you, member slick with your juices. His hands come up to grab your breasts and you gasp when they''re used as leverage to fuck you harder, his cock reaching even deeper inside you. His cock! Oh god! It''s driving you insane! Even though it''s his first time, he''s actually pretty good! Fuck! You should have jumped on his dick ages ago!'
+	'	Several minutes go by with you unable to think about anything except how good fucking your brother feels.'
+	'	Suddenly, you feel him urgently tapping you on the shoulder.'
+	act'Continue':gt'brother_voyeur','brother_fuck_cum'
+end
 
 if $ARGS[0] = 'brother_shower_fuck':
 	broshowerfuck = daystart
@@ -2375,6 +2326,7 @@ end
 if $ARGS[0] = 'brother_shower_fuck_end':
 	cla & *clr
 	dynamic $showerdin
+	brother_shower_times += 1
 	minut += 2
 	gs 'arousal','end'
 	if brotherfuck = 1 and brother_knows_not_virgin >= 1:
@@ -2495,7 +2447,6 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 						'	A sly smile on your face, you step forward to grab him by the cock.'
 						'	"Until next time little brother," you murmur into his ear, giving his dick a hard squeeze. Then, you slap his ass and push him towards the door. "Now, shoo! Before someone catches us in here together."'
 						'	Startled, he does as you say, picking up his clothes and peeking into the hallway to make sure no one is there before slipping out the door.'
-						brotherSex += 1
 						brothervirginlie = 0
 						act'Finish drying off':mirror_steam = hour & gt $loc
 					end
@@ -2531,6 +2482,7 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 				'	"Pfft~! It''s not like I''m gonna marry you or anything like that. You''re still my sister. And I''m still gonna fuck lots of other girls once they start looking my way! But..." he trails off again.'
 				'	"... now we have a bond that other siblings don''t have," you finish. "And no matter what else happens, we''ll carry each other''s virginities for the rest of our lives." He nods.'
 				act'Continue':
+					brotherSex = 9
 					minut += 5
 					gs 'stat'
 					cla & *clr
@@ -2588,7 +2540,6 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 
 				act'Until next time (grab his cock)':
 					cla
-					brotherSex += 1
 					brothervirginlie = 0
 					'	A sly smile on your face, you step forward to grab him by the cock.'
 					'	"Until next time little brother," you murmur into his ear, giving his dick a hard squeeze. Then, you slap his ass and push him towards the door. "Now, shoo! Before someone catches us in here together."'
@@ -2628,16 +2579,11 @@ if $ARGS[0] = 'ass_compliment':
 	'	"Hmm? Sure, what is it Kolka?"'
 	'	"You have a great ass!"'
 	'	Feeling his smile radiating from behind you, you look over your shoulder and give him a grin and a little shake of your ass to show your appreciation for his compliment.'
-	act'Continue':
-		if pcs_pubes >= 4 or pcs_leghair >= 4:
-			gt'brother_voyeur','shave'
-		else
-			gt'brother_voyeur','dryoff'
-		end
-	end
+	act'Continue':gt'brother_voyeur','shave'
 end
 
 if $ARGS[0] = 'shave':
+	if pcs_pubes < 4 or pcs_leghair < 4:gt'brother_voyeur','dryoff'
 	cla & *clr
 	if brothershowerlook = 1:
 		if pcs_leghair > 0 or pcs_pubes > 0:
@@ -2645,7 +2591,7 @@ if $ARGS[0] = 'shave':
 		'	You''re rinsing off when you notice Kolka staring at your legs and what''s between them.'
 		'	"Excuse me?" you ask him pointedly. "Can I help you with something?"'
 		elseif pcs_pubes < 11 and pcs_leghair > 3:
-			'	His lips twisted in thought, he says, "You''re looking kind of stubbly down there." You follow his gaze to look at your legs and pussy. "Aren''t you going to shave?"'
+			'	His lips twisted in thought, he says, "You''re looking kind of stubbly down there." You follow his gaze to Continue and pussy. "Aren''t you going to shave?"'
 		elseif pcs_pubes >= 11 and pcs_pubes < 21 and pcs_leghair > 3:
 			'	His lips twisted in thought, he says, "You''re growing a bit of a bush down there." You follow his gaze to look at your <<$pcdesc_legs>> legs and your trimmed pussy hair. "Looks like your legs are growing grass to match. Aren''t you going to shave?"'
 		elseif pcs_pubes >= 21 and pcs_leghair > 3:
@@ -2811,10 +2757,10 @@ if $ARGS[0] = 'shave':
 					inhib_exp += 1
 					gs 'stat'
 					'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
-					if pcs_pubes < 11:
+					if pcs_pubes =< 10:
 						'<br>	"Hmm." You think to yourself for a moment. "Maybe you''re right after all," you say and start lathering up your crotch.'
 						'<br>	Kolka stares at you intensely as you carefully remove the bits of stubble from around your pussy.'
-					elseif pcs_pubes > 10:
+					elseif pcs_pubes >= 11:
 						'<br>	"Hmm." You think to yourself for a moment. "Yeah, you''re right. Maybe it''s time to get rid of this bush," you say and start lathering up your crotch.'
 						'<br>	Kolka stares at you intensely as you carefully remove the hair from around your pussy.'
 						'<br>	"Enjoying the show?" you say teasingly. He doesn''t say anything except nod, not looking away for a second. You have to admit, it''s a little bit exciting having someone watch you do this. You might be enjoying this almost as much as your brother is.'

locations/budgetclothes.qsrc

@@ -36,22 +36,22 @@ if $ARGS[0] = 'start':
 		act 'Return':gt 'budgetclothes', 'start'
 		
 		act 'View cheap clothing':
-			minut += 1
+			minut += 5
 			gt 'budgetclothes', 'clothes'
 		end
 		
 		act 'View office wear':
-			minut += 1
+			minut += 5
 			gt 'budgetclothes', 'office'
 		end
 
 		act 'View uniforms':
-			minut += 1
+			minut += 5
 			gt 'budgetclothes', 'uniform'
 		end
 
 		act 'View school uniforms':
-			minut += 1
+			minut += 5
 			gt 'budgetclothes', 'school'
 		end
 	end
@@ -62,33 +62,33 @@ if $ARGS[0] = 'start':
 		act 'Return':gt 'budgetclothes', 'start'
 		
 		act 'Look at regular shoes':
-			minut += 1
+			minut += 5
 			gt 'budgetclothes', 'shoes'
 		end
 
 		act 'Look at exercise shoes':
-			minut += 1
+			minut += 5
 			gt 'budgetclothes', 'trainers'
 		end
 	end
 
 	act 'View coats':
-		minut += 1
+		minut += 5
 		gt 'budgetclothes', 'coats'
 	end
 
 	act 'View purses':
-		minut += 1
+		minut += 5
 		gt 'budgetclothes', 'purses'
 	end
 
 	act 'View panties':
-		minut += 1
+		minut += 5
 		gt 'budgetclothes', 'panties'
 	end
 
 	act 'View bras':
-		minut += 1
+		minut += 5
 		gt 'budgetclothes', 'bras'
 	end
 end
@@ -105,7 +105,7 @@ if $ARGS[0] = 'clothes':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -157,7 +157,7 @@ if $ARGS[0] = 'office':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -203,7 +203,7 @@ if $ARGS[0] = 'uniform':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -249,7 +249,7 @@ if $ARGS[0] = 'school':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -292,7 +292,7 @@ if $ARGS[0] = 'shoes':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -321,7 +321,7 @@ if $ARGS[0] = 'trainers':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -348,7 +348,7 @@ if $ARGS[0] = 'coats':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -381,7 +381,7 @@ if $ARGS[0] = 'purses':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -402,7 +402,7 @@ if $ARGS[0] = 'panties':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 
@@ -425,7 +425,7 @@ if $ARGS[0] = 'bras':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'budgetclothes', 'start'
 	end
 

locations/buklinik.qsrc

@@ -1,4 +1,5 @@
 # buklinik
+
 if $ARGS[0] = 'start':
 	cla
 	clr
@@ -388,5 +389,6 @@ if $ARGS[0] = 'olga2':
 
 	act 'In the corridor':gt 'buklinik', 'holl'
 end
+
 --- buklinik ---------------------------------
 

locations/buklinik_event.qsrc

@@ -1,4 +1,4 @@
-# buklinik_event
+# buklinik_event
 
 if $ARGS[0] = 'pos1':
 	cla

locations/burger.qsrc

@@ -188,9 +188,9 @@ if $ARGS[0] = 'dishes':
 						swallow += 1
 						spafinloc = 12
 						gs 'cum_manage'
-						dress[24] = 1
-						dressH[24] = 160
-						dressB[24] = pcs_hips
+						average[23] = 1
+						averageH[23] = 160
+						averageB[23] = pcs_hips
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj.jpg"></center>'
 						'You squat down in front of Anatoly, he unbuttons his pants and pulls out his penis. You lean over his hard cock and kiss it, feeling its warmth. You run your tongue along his cock finally putting it in your big wet mouth and start to suck his dick.'

locations/butik.qsrc

@@ -57,15 +57,15 @@ if $ARGS[0] = 'start':
 		gt 'torgcentr'
 	end
 	
-	act 'Browse the clothing': minut += 1 & gt 'butik', 'clothes'
+	act 'Browse the clothing': minut += 5 & gt 'butik', 'clothes'
 
-	act 'Browse the panties': minut += 1 & gt 'butik', 'panties'
+	act 'Browse the panties': minut += 5 & gt 'butik', 'panties'
 
-	act 'Browse the bras': minut += 1 & gt 'butik', 'bras'
+	act 'Browse the bras': minut += 5 & gt 'butik', 'bras'
 
-	act 'Browse the shoes': minut += 1 & gt 'butik', 'shoes'
+	act 'Browse the shoes': minut += 5 & gt 'butik', 'shoes'
 
-	act 'Browse the handbags': minut += 1 & gt 'butik', 'purses'
+	act 'Browse the handbags': minut += 5 & gt 'butik', 'purses'
 
 	if money >= 50000:
 		if coat[9] < 1:
@@ -90,7 +90,7 @@ if $ARGS[0] = 'clothes':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'butik', 'start'
 	end
 
@@ -131,7 +131,7 @@ if $ARGS[0] = 'panties':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'butik', 'start'
 	end
 
@@ -163,7 +163,7 @@ if $ARGS[0] = 'bras':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'butik', 'start'
 	end
 
@@ -195,7 +195,7 @@ if $ARGS[0] = 'shoes':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'butik', 'start'
 	end
 
@@ -221,7 +221,7 @@ if $ARGS[0] = 'purses':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'butik', 'start'
 	end
 

locations/cafe_parco.qsrc

@@ -10,7 +10,7 @@ if $args[0]= 'start':
 	if hour >= 14 and hour < 21:
 		act 'Enter': gt 'cafe_parco', 'inner'
 	end
-	act 'Go back to the square': gt 'gskver'
+	act 'Go back to the square': gt 'gskver', 'start'
 end
 
 if $args[0]= 'inner':
@@ -21,7 +21,7 @@ if $args[0]= 'inner':
 	act 'Order food':gs 'food_menu', 'cafe'
 	act 'Order drinks':gs 'beverage_menu', 'cafe'
 	
-	act 'Go back outside': gt 'gskver'
+	act 'Go back outside': gt 'gskver', 'start'
 	
 	gs 'family'
 

locations/cikl.qsrc

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

locations/clothing_attributes.qsrc

@@ -115,7 +115,7 @@ elseif $ARGS[0] = 'alternative':
 	*P FUNC('$attributes_alternative', $ARGS[0], ARGS[1])
 end
 
-if $ARGS[0] ! 'swimwear' or $ARGS[0] ! 'coat' or $ARGS[0] ! 'exercise':
+if $ARGS[0] ! 'swimwear' and $ARGS[0] ! 'coat' and $ARGS[0] ! 'exercise':
 	if CloSkirtShortness = 6:
 		CloInhibit = 35
 	elseif CloSkirtShortness = 5 or CloPantsShortness = 6:

locations/din_van.qsrc

@@ -207,40 +207,49 @@ $bath = {
 
 $brit = {
 	'Your razor blade looks in good enough shape for <b><<stanok>></b> more shaves.'
-
+	!pubestyle
 	if pcs_leghair > 3 and pcs_pubes > 3 and stanok > 1:
-		act 'Shave your legs and pussy (0:15)':
-			cla
-			*clr
-			minut += 15
-			pcs_leghair = 0
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 2
+		if pubestyle > 1 or pubestyle = 0:
+			act 'Shave your legs and pussy (0:15)':
+				cla
+				*clr
+				minut += 15
+				pcs_leghair = 0
+				if pubestyle = 3 or pubestyle = 0:
+					pcs_pubes = 0
+				elseif pubestyle = 2 and pcs_pubes > 11:
+					pcs_pubes = 11
+				end
+				pcs_horny += 5
+				stanok -= 2
 
-			if obdysh = 1 and rand(0, 5) = 0:gt 'vann', 'brit1'
+				if obdysh = 1 and rand(0, 5) = 0:gt 'vann', 'brit1'
 
-			if $loc ='Gadbana':
-				'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
-			end
+				if $loc ='Gadbana':
+					'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
+				else
+					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				end
 
-			*nl
-			if daystart < 10 and StoryLine = 0 and ntstart = 0:
-				'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
-				'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
-			elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
-				pcs_mood += 10
-				'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
-			else
-				'You lather up your legs and crotch and then start carefully shaving them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
-			end
+				*nl
+				if daystart < 10 and StoryLine = 0 and ntstart = 0:
+					'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
+					'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
+				elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
+					pcs_mood += 10
+					'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
+				elseif pubestyle = 2:
+					'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your bush as well.'
+				else
+					'You lather up your legs and crotch and carefully shave them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
+				end
 
-			dynamic $dryOff
+				dynamic $dryOff
+			end
 		end
 	end
-
+	
+	
 	if pcs_leghair > 3 and stanok > 0:
 		act 'Shave your legs (0:10)':
 			cla
@@ -266,26 +275,42 @@ $brit = {
 	end
 
 	if pcs_pubes > 3 and stanok > 0:
-		act 'Shave your pussy (0:10)':
-			cla
-			*clr
-			minut += 10
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 1
+		if pubestyle = 3 or pubestyle = 0:
+			act 'Shave your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 0
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+
+				if $loc ='Gadbana':
+					'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
+				else
+					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				end
 
-			if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+				*nl
+				'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
 
-			if $loc ='Gadbana':
-				'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				dynamic $dryOff
+			end
+			
+		elseif pubestyle = 2 and pcs_pubes > 15:
+			act 'Trim your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 11
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
+				*nl
+				'You spend some time trimming back your bush, not shaving it away completely but careful to make it neat and tidy.'
+				dynamic $dryOff
 			end
-
-			*nl
-			'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
-
-			dynamic $dryOff
 		end
 	end
 }
@@ -622,7 +647,13 @@ $pirManage = {
 
 if $ARGS[0] = 'private':
 	if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings.'
-
+	
+	'Pubic Shaving Style:'
+	if pubestyle = 0:'<a href="exec:pubestyle = 3 & gt $loc, $metka">Clean Shave</a> | <a href="exec:pubestyle = 2 & gt $loc, $metka">Trimmed</a> | <a href="exec:pubestyle = 1 & gt $loc, $metka">Never Shave</a> | <u>None</u>'
+	if pubestyle = 1:'<a href="exec:pubestyle = 3 & gt $loc, $metka">Clean Shave</a> | <a href="exec:pubestyle = 2 & gt $loc, $metka">Trimmed</a> | <u>Never Shave</u> | <a href="exec:pubestyle = 0 & gt $loc, $metka">None</a>'
+	if pubestyle = 2:'<a href="exec:pubestyle = 3 & gt $loc, $metka">Clean Shave</a> | <u>Trimmed</u> | <a href="exec:pubestyle = 1 & gt $loc, $metka">Never Shave</a> | <a href="exec:pubestyle = 0 & gt $loc, $metka">None</a>'
+	if pubestyle = 3:'<u>Clean Shave</u> | <a href="exec:pubestyle = 2 & gt $loc, $metka">Trimmed</a> | <a href="exec:pubestyle = 1 & gt $loc, $metka">Never Shave</a> | <a href="exec:pubestyle = 0 & gt $loc, $metka">None</a>'
+	
 	!WD: heal chafe
 	if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
 
@@ -704,29 +735,37 @@ if $ARGS[0] = 'private':
 	dynamic $basin
 
 	if pcs_leghair > 3 and pcs_pubes > 3 and stanok > 1:
-		act 'Shave your legs and pussy (0:15)':
-			cla
-			*clr
-			minut += 15
-			pcs_leghair = 0
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 2
-			if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+		if pubestyle > 1 or pubestyle = 0:
+			act 'Shave your legs and pussy (0:15)':
+				cla
+				*clr
+				minut += 15
+				pcs_leghair = 0
+				if pubestyle = 3 or pubestyle = 0:
+					pcs_pubes = 0
+				elseif pubestyle = 2 and pcs_pubes > 11:
+					pcs_pubes = 11
+				end
+				pcs_horny += 5
+				stanok -= 2
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
 
-			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
-			*nl
-			if daystart < 10 and StoryLine = 0 and ntstart = 0:
-				'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
-				'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
-			elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
-				pcs_mood += 10
-				'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
-			else
-				'You lather up your legs and crotch and then start carefully shaving them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
-			end
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				*nl
+				if daystart < 10 and StoryLine = 0 and ntstart = 0:
+					'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
+					'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
+				elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
+					pcs_mood += 10
+					'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
+				elseif pubestyle = 2:
+					'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your bush as well.'
+				else
+					'You lather up your legs and crotch and carefully shave them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
+				end
 
-			act 'Return to showering':gt $loc, $metka
+				act 'Return to showering':gt $loc, $metka
+			end
 		end
 	end
 
@@ -747,20 +786,38 @@ if $ARGS[0] = 'private':
 	end
 
 	if pcs_pubes > 3 and stanok > 0:
-		act 'Shave your pussy (0:10)':
-			cla
-			*clr
-			minut += 10
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 1
-			if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+		if pubestyle = 3 or pubestyle = 0:
+			act 'Shave your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 0
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
 
-			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
-			*nl
-			'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				*nl
+				'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
 
-			act 'Return to showering':gt $loc, $metka
+				act 'Return to showering':gt $loc, $metka
+			end
+		elseif pubestyle = 2 and pcs_pubes > 15:
+			act 'Trim your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 11
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
+				*nl
+				'You spend some time trimming back your bush, not shaving it away completely but careful to make it neat and tidy.'
+
+				act 'Return to showering':gt $loc, $metka
+			end
 		end
 	end
 

locations/divan.qsrc

@@ -16,15 +16,15 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 		'<center><img <<$set_imgh>> src="images/shared/sex/mast/divmas.jpg"></center>'
 		'You lie down on the sofa and began to fondle your chest with one hand while you slide the other hand down your stomach and across your mound.'
 		'With your middle finger you start rubbing and stroking your clit, which responds to the touch by bringing a sensual warmth to your entire body.'
-		
+
 		gs 'arousal', 'masturbate', 15
 		gs 'stat'
 
 		if pcs_horny >= 100:orgasm += 1 & pcs_horny = 0 & 'Suddenly a sumptuous jolt hits your body and you delight in a powerful orgasmn.'
-	
+
 		$orgasm_or = 'yes'
 		gs 'stat'
-		
+
 		act 'Get off the couch':divanmastr = 0 & gt 'divan', 'fin'
 
 		if pcs_horny >= 75:act 'Proceed':dynamic $divmastr
@@ -36,15 +36,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	'<center><img <<$set_imgh>> src="images/shared/home/divan.jpg"></center>'
 	'You lie down on the sofa.'
 
-	act 'Chill out':
-		cla
-		waiting = input ("For how many minutes do you chill out? (No more than 120 minutes)")
-
-		if waiting <= 0 or waiting > 120:minut += 15
-		if waiting > 0 and waiting <= 120:minut += waiting
-
-		act 'Get off the couch':gt 'divan', 'fin'
-	end
+	act 'wait':gs 'obj_din', 'wait'
 
 	if TV > 0 and $loc ! 'dachain':
 		act 'Watch TV':

locations/dom_gor.qsrc

@@ -45,7 +45,7 @@ if $clothingworntype = 'exercise' and teachlevel > 20 and parkrunday ! daystart
 				'You''re running with one of your pupils'', sometimes stopping and chatting with ease.'
 				'Pupil: "Miss <<$pcs_lastname>>, you are so beautiful, and we are all very fond of you!" You: "Hmm, thank you!"'
 
-				act 'Complete run':gt 'gskver'
+				act 'Complete run':gt 'gskver', 'start'
 			end
 		elseif parkrand >4 and beguch >= 3 and beguch < 6:
 			'In the park you meet a pupil of the school who asks to go for a run with you.'
@@ -57,7 +57,7 @@ if $clothingworntype = 'exercise' and teachlevel > 20 and parkrunday ! daystart
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop2.jpg"></center>'
 				'You stop to do some stretching exercises for your muscles.'
 				'Pupil: "Ahh, if only our girls would be at least a little like you!" You: "Get to know them! You''ll find out how they really are."'
-				act 'Complete run':gt 'gskver'
+				act 'Complete run':gt 'gskver', 'start'
 			end
 		elseif parkrand >4 and beguch >= 6 and beguch < 9:
 			'In the park you meet a pupil of the school who asks to go for a run with you.'
@@ -74,11 +74,11 @@ if $clothingworntype = 'exercise' and teachlevel > 20 and parkrunday ! daystart
 				'Pupil: "Im sorry, it was a bad idea." You: "I''m just kidding! Okay, but remember to give me a copy."'
 				''
 				'You pick a background, stand in a pose and let yourself be photographed.'
-				act 'Complete run':gt 'gskver'
+				act 'Complete run':gt 'gskver', 'start'
 			end
 		end
 
-		act 'Complete run':gt 'gskver'
+		act 'Complete run':gt 'gskver', 'start'
 	end
 end
 

locations/down.qsrc

@@ -85,14 +85,14 @@ if shantpopala > 0:
 	'"Oh, she is finally awake, then the next fuck-cycle will be far more fun.", one of the men said, as he noticed you moving. Some of them are starting to get a evil grin on their face.'
 	'They got up and came back at you, barely a minute later you wished your were still knocked out, as these jackasses had their ways with. You tried to resist, but the tape hindered you from moving. Not long after, everything faded to black and you lost you consciousness again.'
 	'You feel groggy as you wake up, but it feels like someone is grapping you by the hair and shouts at you. "Let this be a lesson for you, bitch.", he shouts, then kicks you into the stomach and leaves. As you collapse on the ground holding your stomach in pain, you take a glimpse at the street and see the assholes driving away in their black jeep. The mainroad is about 200m away, you crawl most of the way there, but soon you can walk again and eventually you find your way back to one of the mainstreets.'
-	
+
 	gs 'arousal', 'bj', 60, 'sub', 'gangbang','humiliation', 'rough'
 	gs 'arousal', 'vaginal', 60, 'sub', 'gangbang', 'humiliation', 'rough'
 	gs 'arousal', 'anal', 60, 'sub', 'gangbang', 'humiliation', 'rough'
 	gs 'arousal', 'end'
 	minut -= 60
 	gs 'stat'
-	
+
 	act 'Leave':gt $curloc
 
 	exit
@@ -100,18 +100,8 @@ end
 
 if car > 0 and cardrive = 2:'In the parking stands your <a href="exec:GS ''carF'', ''start''"><<$car>></a>.'
 
-act 'Wait':
-	cla
-	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-	if waiting <= 0 or waiting > 120:
-		minut += 15
-	elseif waiting > 0 and waiting <= 120:
-		minut += waiting
-	end
 
-	act 'Take a look at the clock':gt curloc
-end
+act 'wait':gs 'obj_din', 'wait'
 
 gs 'taxi'
 

locations/etoexhib.qsrc

@@ -1624,8 +1624,8 @@ if $ARGS[0] = 'pos53':
 			cla
 			*clr
 			minut += 60
-			if inhib_exp += rand(1,3)
-			if pcs_sweat < 35 : pcs_sweat += 5
+			inhib_exp += rand(1,3)
+			if pcs_sweat < 35: pcs_sweat += 5
 			pcs_mood += 5
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/zagar1.jpg"></center>'
 

locations/events.qsrc

@@ -221,7 +221,7 @@ if $ARGS[0] = 'snkayf':
 
 	if snkz = 2:
 		hour += 2
-		gt'gskver'
+		gt 'gskver', 'start'
 	end
 
 	if snkz = 3:

locations/exhibitionism.qsrc

@@ -31,5 +31,7 @@ elseif ARGS[0] = 4:
 	if exhibitionist_lvl = 3: arousal += 80
 end
 
+if pcs_exhib > 100: pcs_exib = 100
+
 --- exhibitionism ---------------------------------
 

locations/exhibitionistshop.qsrc

@@ -6,7 +6,6 @@ if $ARGS[0] = 'start':
 	$metka = 'start'
     $location_type = 'public_indoors'
 	cls
-	minut += 5
 	if exhibitionQW = 3: exhibitionQW = 4
 	gs 'stat'
 
@@ -29,17 +28,17 @@ if $ARGS[0] = 'start':
 	end
 
 	act 'View clothing':
-		minut += 1
+		minut += 5
 		gt 'exhibitionistshop', 'clo'
 	end
 
 	act 'View panties':
-		minut += 1
+		minut += 5
 		gt 'exhibitionistshop', 'panties'
 	end
 
 	act 'View bras':
-		minut += 1
+		minut += 5
 		gt 'exhibitionistshop', 'bras'
 	end
 end
@@ -56,7 +55,7 @@ if $ARGS[0] = 'clo':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'exhibitionistshop', 'start'
 	end
 
@@ -100,7 +99,7 @@ if $ARGS[0] = 'panties':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'exhibitionistshop', 'start'
 	end
 
@@ -132,7 +131,7 @@ if $ARGS[0] = 'bras':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'exhibitionistshop', 'start'
 	end
 

locations/family.qsrc

@@ -120,7 +120,11 @@ if StoryLine = 1:
 		end
 
 		 if $loc = 'sitrPar' or ($loc = 'family' and $metka = 'sofa'):
-			if hour < 7 or hour >= 21:
+			if hour < 7 and brothemorningsex = daystart:
+				'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is getting ready for school.'
+			elseif hour < 7 and brothermorningsex ! daystart:
+				'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
+			elseif hour >= 23:
 				ocpd_room = 1
 				'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
 			end
@@ -136,15 +140,15 @@ if StoryLine = 1:
 				if hour >= 18 and hour < 20:
 					if kanikuli > 0:
 						ocpd_room = 1
-						'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
+						'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
 					else
 						ocpd_room = 1
 						'Your little brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting by the table and doing his homework.'
 					end
 				end
-				if hour = 20:
+				if hour > 20 and hour < 23:
 					ocpd_room = 1
-					'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
+					'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
 				end
 			end
 
@@ -161,7 +165,7 @@ if StoryLine = 1:
 					end
 				end
 
-				if hour >= 18 and hour <= 20:
+				if hour >= 18 and hour <= 23:
 					ocpd_room = 1
 					'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
 				end

locations/fbDormD.qsrc

@@ -265,7 +265,7 @@ $d_fbd_drunk = {
 			end
 			kol_man = rand(5, 16)
 			$kol_man_text = 'guys'
-			gt 'placer_sex'
+			gt 'placer_sex', 'meet'
 		end
 	end
 }

locations/femcyc.qsrc

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

locations/food.qsrc

@@ -1,10 +1,10 @@
 # food
-! Snacks: +20 pcs_energy, +6 fat (most cases has water available separately)
-! Fast Food: +70 pcs_energy +70 pcs_hydra, +12 fat (hamburgers, fried food, like the downtown diner)
-! Small Meal: +40 pcs_energy +40 pcs_hydra, +3 fat (soup and sandwiches, cafe light lunches, etc)
-! Medium Meal and Hotel Food: +60 pcs_energy +60 pcs_hydra, +6 fat (home cooked dinners and room service equivalent)
-! Large Meal: +100 pcs_energy +100 pcs_hydra, +50 fat (steak dinners, new years party dinner, etc)
-! Bagged Lunch: +30 pcs_energy +30 pcs_hydra, +3 fat (sandwich, cold leftovers, etc)
+! Snacks: +20 pcs_energy, +7 fat (most cases has water available separately)
+! Fast Food: +70 pcs_energy +70 pcs_hydra, +14 fat (hamburgers, fried food, like the downtown diner)
+! Small Meal: +40 pcs_energy +40 pcs_hydra, +4 fat (soup and sandwiches, cafe light lunches, etc)
+! Medium Meal and Hotel Food: +60 pcs_energy +60 pcs_hydra, +7 fat (home cooked dinners and room service equivalent)
+! Large Meal: +100 pcs_energy +100 pcs_hydra, +14 fat (steak dinners, new years party dinner, etc)
+! Bagged Lunch: +40 pcs_energy +40 pcs_hydra, +5 fat (sandwich, cold leftovers, etc)
 ! Health Meal: +50 pcs_energy +50 pcs_hydra, +1 fat (Diet food, Salads, rice cakes with peanut butter)
 
 if $ARGS[0] = 'pirosh':
@@ -351,7 +351,7 @@ if $ARGS[0] = 'vegburg':
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 20
 	mood += 10
-	fat += 6
+	fat += 8
 	pcs_energy += 60
 	if pcs_hydra >= 100:
 		pcs_hydra -= 5
@@ -429,7 +429,7 @@ if $ARGS[0] = 'cheburg':
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 20
 	mood += 20
-	fat += 12
+	fat += 14
 	pcs_energy += 120
 	if pcs_hydra >= 100:
 		pcs_hydra -= 5
@@ -474,7 +474,7 @@ if $ARGS[0] = 'f_food':
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
-	fat += 12
+	fat += 14
 	pcs_energy += 70
 	if pcs_hydra >= 100:
 		pcs_hydra += 35
@@ -499,7 +499,7 @@ if $ARGS[0] = 's_meal':
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
-	fat += 3
+	fat += 4
 	pcs_energy += 40
 	if pcs_hydra >= 100:
 		pcs_hydra += 20
@@ -524,7 +524,7 @@ if $ARGS[0] = 'm_meal':
 	minut += 30
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
-	fat += 6
+	fat += 8
 	pcs_energy += 60
 	if pcs_hydra >= 100:
 		pcs_hydra += 30
@@ -550,7 +550,7 @@ if $ARGS[0] = 'l_meal':
 	minut += 35
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
-	fat += 12
+	fat += 14
 	pcs_energy += 100
 	if pcs_hydra >= 100:
 		pcs_hydra += 50
@@ -576,12 +576,12 @@ if $ARGS[0] = 'bag_lunch':
 	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
-	fat += 3
-	pcs_energy += 30
+	fat += 5
+	pcs_energy += 40
 	if pcs_hydra >= 100:
 		pcs_hydra += 15
 	else
-		pcs_hydra += 30
+		pcs_hydra += 40
 	end
 	cumspclnt = 2
 	gs 'cum_cleanup'
@@ -601,7 +601,7 @@ if $ARGS[0] = 'h_food':
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
-	fat += 6
+	fat += 7
 	money -= 100
 	pcs_energy += 60
 	if pcs_hydra >= 100:
@@ -640,7 +640,7 @@ if $ARGS[0] = 'h_meal':
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
 	'<center><img <<$set_imgh>> src="images/shared/food/eating-salad.jpg"></center>'
-	'You enjoy a crisp salad of fresh green and<<$mtxt>>'
+	'You enjoy a crisp salad of fresh greens and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 

locations/foto.qsrc

@@ -378,12 +378,12 @@ if $ARGS[0] = 'studio':
 		if first_fame_event = 2:
 			act'Ask if there''s special work available':gt'foto_events','special'
 		end
-		if model = 1:act 'Go to the showers':gt'foto','showers'
-		if model = 1:act 'Go to your makeup station':gt'foto','makeup'
 	else
 		*nl
 		'	There is no way anyone is going to want to see pictures of you while your std is so obvious, you should see a doctor.'
 	end
+	if model = 1:act 'Go to the showers':gt'foto','showers'
+	if model = 1:act 'Go to your makeup station':gt'foto','makeup'
 end
 
 if $ARGS[0] = 'gave_passport':
@@ -405,32 +405,14 @@ end
 if $ARGS[0] = 'interview':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
-	if howoldareyou = 0:
-		'	"You want to work here? How old are you?"'
-		if age >= 18:
-			howoldareyou = 2
-			'	I''m <<age>>.'
-			'	"I see. Alright, undress. Let me take a look at you."'
-			gs 'foto', 'interview_undress'
-		elseif fakepassport = 1:
+	'	"You want to work here? How old are you?"'
+	if age >= 18:
+		act'I''m <<age>>':
 			howoldareyou = 2
-			'	"I''m 18."'
-			'	"I see. Alright, undress. Let me take a look at you."'
-			gs 'foto', 'interview_undress'
-		else
-			act 'Tell the truth':
-				age_truth = 1
-				howoldareyou = 1
-				cla
-				gs'foto','interview'
-			end
-			act 'Lie':
-				age_lie = 1
-				howoldareyou = 1
-				cla
-				gs'foto','interview'
-			end
+			gt'foto','interview2'
 		end
+	elseif fakepassport = 1:
+		act'I''m 18':gt'foto','interview2'
 	else
 		howoldareyou = 2
 		if age_truth = 1 or age >= 18:
@@ -441,11 +423,29 @@ if $ARGS[0] = 'interview':
 			'	"I''m 18."'
 			'	"I see. Alright, undress. Let me take a look at you."'
 			gs 'foto', 'interview_undress'
+		else
+			fakepassport = 2
+			'	"You look a little young, do you have any ID?"'
+			'	Not having any, you feign surprise and tell him you didn''t realise you needed it.'
+			'	"Sorry love, no ID no modelling. If it turned out you were underage I''d end up in jail."'
+			'	Now how are you going to find a way around this?'
+			act 'Continue': gt 'foto', 'start'
 		end
 	end
 end
-
-if $ARGS[0] = 'interview_undress':
+	
+if $ARGS[0] = 'interview2':
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
+	if age_truth = 1 or age >= 18:
+		*nl
+		'	"I''m <<age>>."'
+		'	"I see. Alright, undress. Let me take a look at you."'
+	elseif fakepassport = 1 or age_lie = 1:
+		*nl
+		'	"I''m 18."'
+		'	"I see. Alright, undress. Let me take a look at you."'
+	end
 	if undress_ask = 0:
 		act'What? Why?':
 			undress_ask = 1
@@ -454,7 +454,6 @@ if $ARGS[0] = 'interview_undress':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
 			'	"What?? Why?"'
 			'	"Hmm? This is a modelling studio. That means sometimes we dress our models up in skimpy clothes and lingerie. Our studio is also popular for its nude spreads. You don''t necessarily need to do shoots with nudity, but you need to have your body inspected to make sure you match the criteria for working here."'
-			gs 'foto', 'interview_undress'
 		end
 	end
 	if why_here = 0:
@@ -467,7 +466,6 @@ if $ARGS[0] = 'interview_undress':
 			'	"Might as well be here," he shrugs. "If you want to work here, we have a dress code policy for the models."'
 			'	"So? What does that have to do with me getting naked in the middle of a workplace?"'
 			'	"The policy is that models don''t wear clothes while on the premises. It makes the logistics of dressing and undressing them for shoots easier. Come on. You want to work for a modelling studio that specializes in nude spreads. Don''t get shy about showing your body to a few people here when you might be on a magazine cover showing it to the entire country. Now are you going to undress so I can do my job or are you going to keep wasting my time here?"'
-			gs 'foto', 'interview_undress'
 		end
 	end
 	if pcs_inhib >= 40:
@@ -477,7 +475,11 @@ if $ARGS[0] = 'interview_undress':
 			gs 'underwear', 'remove'
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
-			'	You take off your clothes and leave them on the floor while the photographer examines you.'
+			if undress_ask = 0 and why_here = 0:
+				'	You unquestioningly take off your clothes and leave them on the floor while the photographer examines you.'
+			else
+				'	You take off your clothes and leave them on the floor while the photographer examines you.'
+			end
 			'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
 			'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
 			act'Continue':gt'foto','job_offer'
@@ -731,7 +733,7 @@ if $ARGS[0] = 'showers':
 				gs 'exhibitionism', 1
 				'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video></center>'
 				*nl
-				'Despite the openness of the shower area, you can''t help yourself and place the shower head between your legs, massaging your pussy with powerful jets of warm water and fingers.'
+				'Despite the openness of the shower area, you can''t help yourself and place the shower head between your legs, massaging your pussy with powerful jets of warm water and fingers. '
 
 				if hypnoAddict > 0:
 					minut += 10
@@ -948,7 +950,7 @@ if $ARGS[0] = 'practicemodel':
 	'	"Hello <<$pcs_firstname>>. We''ve already done a paid shoot with you this week, so we can''t do another one. '
 	'	But would you like to get some practice in?"'
 	act '"Maybe not today"' :gt 'foto','studio'
-	act '"Yes, please."':
+	act '"Yes, please"':
 		cla
 		'	"What kind of shoot would you like to do today? With nudity or without?"'
 		*nl
@@ -969,12 +971,12 @@ if $ARGS[0] = 'practicemodel':
 					mdlng_exp += rand(3,5)
 					fashionshoot = rand(1,4)
 					gs 'stat'
-					if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2>>.mp4"></video></center>'
+					if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2)>>.mp4"></video></center>'
 					if fashionshoot >= 3 and fashionshoot < 5:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion<<rand(1,3)>>.jpg"></center>'
 					if fashionshoot < 5:'	You dress up in the latest in fashion wear and spend the next two hours sexily posing for the photographer.'
 					if fashionshoot = 5:
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion4.mp4"></video></center>'
-						'	You spend the next two hours putting on various dresses, practicing modelling for the online catalogs of retail clothing stores. Apparently for consistency they want you to have the exact same expression on your face every time, so you spend most of the time practicing that.'
+						'	You spend two hours putting on various dresses, practicing modelling for the online catalogs of retail clothing stores. Apparently for consistency they want you to have the exact same expression on your face every time, so you spend most of the time practicing that.'
 					end
 					if pcs_mdlng < 20:
 						act'Continue':
@@ -1406,7 +1408,7 @@ if $ARGS[0] = 'practicemodel':
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/model4.mp4"></video></center>'
 						'	A topless shoot without even a bikini or a loose shirt to hide your breasts... Unthinkable that you could ever do it for real! But it''s only a practice shoot right now. You''re not comfortable with it, but if you want to grow as a model, this is what you have to do.'
 						*nl
-						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend the next two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
+						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
 						if pcs_inhib < 20:
 							act'Continue':
 								cla
@@ -1443,7 +1445,7 @@ if $ARGS[0] = 'practicemodel':
 						inhib_exp += 3
 						gs 'stat'
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/model4.mp4"></video></center>'
-						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend the next two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
+						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
 						if pcs_mdlng < 20:
 							act'Continue':
 								cla
@@ -1474,38 +1476,9 @@ if $ARGS[0] = 'practicemodel':
 				end
 			end
 			
-			
-			
-				
-					cla
-					act 'Not for me':gt 'foto','studio'
-
-					act 'Agree (2:00)':
-						*clr & cla
-						minut += 120
-						modelpayfin = 0
-						mdlng_exp += rand(8,10)
-						inhib_exp += 4
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie_trans<<rand(1,3)>>.mp4"></video></center>'
-						'	You put on some very lacy, very transparent underwear and get to posing, your nipples often showing through the thin fabric.'
-						*nl
-						'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
-						*nl
-						if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
-						if pcs_mdlng >= 40 and commercial = 0:
-							act 'Leave':gt'foto','commercial'
-						else
-							act 'Leave':gt 'foto', 'end'
-						end
-					end
-				end
-			end
-			
 			act 'Transparent Lingerie':
 				cla
 				act 'Not for me':gt 'foto','studio'
-
 				if pcs_inhib < 55:
 					act 'Practice (2:00)':
 						*clr & cla
@@ -1819,12 +1792,12 @@ if $ARGS[0] = 'model':
 				pav_modelling += rand(1,city_modelling)/10
 				fashionshoot = rand(1,5)
 				gs 'stat'
-				if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2>>.mp4"></video></center>'
+				if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2)>>.mp4"></video></center>'
 				if fashionshoot >= 3 and fashionshoot < 5:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion<<rand(1,3)>>.jpg"></center>'
 				if fashionshoot < 5:'	You dress up in the latest in fashion wear and spend the next two hours sexily posing for the photographer.'
 				if fashionshoot = 5:
 					'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion3.mp4"></video></center>'
-					'	You spend the next two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
+					'	You spend two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
 				end
 				*nl
 				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
@@ -2034,7 +2007,7 @@ if $ARGS[0] = 'nude_shoot':
 				inhib_exp += 3
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/model4.mp4"></video></center>'
-				'	You put on some pants and omit a top leaving your breasts exposed. You spend the next two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
+				'	You put on some pants and omit a top leaving your breasts exposed. You spend two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
 				*nl
 				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				if pcs_mdlng >= 40 and commercial = 0:
@@ -2107,26 +2080,26 @@ if $ARGS[0] = 'nude_shoot':
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(1,3)>>.jpg"></center>'
 						'	Already naked, you step onto set and begin the shoot immediately.'
 						*nl
-						'	You spend the next two hours posing confidently for a photographer taking pictures of you that fully expose your breasts and pussy. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+						'	You spend two hours posing confidently for a photographer taking pictures of you that fully expose your breasts and pussy. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 					else
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(13,15)>>.jpg"></center>'
 						'	Already naked, you step onto set and begin the shoot immediately.'
 						*nl
-						'	You spend the next two hours posing confidently for a photographer taking pictures of you, your thick bush being used as a simple censor of your pussy and make it more "acceptable" as art while still maintaining the feeling of eroticism. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+						'	You spend two hours posing confidently for a photographer taking pictures of you, your thick bush being used as a simple censor of your pussy and make it more "acceptable" as art while still maintaining the feeling of eroticism. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 					end
 				elseif shoot_type = 2:
 					modelfoto_nip += 1
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(4,11)>>.jpg"></center>'
 					'	Already naked, you step onto set and begin the shoot immediately.'
 					*nl
-					'	You spend the next two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully shields your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+					'	You spend two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully shields your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 				else
 					city_modelling += rand(0,5)
 					pav_modelling += rand(0,2)
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude12.jpg"></center>'
 					'	Already naked, you step onto set and begin the shoot immediately.'
 					*nl
-					'	You spend the next two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully hides your pussy and nipples. These images, though incredibly provocative, are still somehow considered to be conservative enough to be allowed on the front cover of fashion, sports, and other tabloid magazines. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+					'	You spend two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully hides your pussy and nipples. These images, though incredibly provocative, are still somehow considered to be conservative enough to be allowed on the front cover of fashion, sports, and other tabloid magazines. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 				end
 				*nl
 				if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
@@ -2163,7 +2136,7 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_pussy += 1
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/vmodel.mp4"></video></center>'
-				'	You spend the next two hours posing for the photographer, changing in and out of various underwears, sexy clothings, and lingeries until you end the shoot fully striped down and dancing naked.'
+				'	You spend two hours posing for the photographer, changing in and out of various underwears, sexy clothings, and lingeries until you end the shoot fully striped down and dancing naked.'
 				*nl
 				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				if pcs_mdlng >= 40 and commercial = 0:

locations/foto_events.qsrc

@@ -202,6 +202,7 @@ if $ARGS[0] = 'underwear_steal2':
 				'	"I promise that from now I will always be completely naked in the studio unless it''s for a shoot."'
 				'	"Good. Feel free to go home now. Hope to see you again soon."'
 				'	With your underwear returned and safely covering your hips, you awkwardly make your exit.'
+				studio_underwear_steal = 0
 				act'Leave':gt 'down'
 			end
 		end
@@ -233,6 +234,7 @@ if $ARGS[0] = 're-dress':
 	gs 'underwear', 'wear'
 	gs 'stat'
 	'	Unable to do it in front of the manager, you go all the way back to the back room to completely undress and re-dress to get your underwear in place before leaving again. It takes a lot more time than you''d like but it''s at least less shameful than doing it in front of the manager...'
+	studio_underwear_steal = 0
 	act'Leave':gt 'down'
 end
 !!------------------------------------------------------------------- Special Modelling Jobs ------------------------------------------------------------------
@@ -578,7 +580,7 @@ if $ARGS[0] = 'modern_art':
 				modelfoto_nude += 1
 				mdlng_exp += rand(9,10)
 				city_modelling += rand(1,21)
-				gs 'exhibitionism', 3
+				gs 'exhibitionism', 4
 				modern_art_projet = 1
 				pcs_horny += 20
 				'	The girl has you and the other model lie down on your sides and then wrap your legs your heads, both of you grabbing the other''s foot with your hand in a way that allows you to perfectly mirror each other''s position. At the client''s insistence, you bury your face between between the other girl''s legs. The aroma of her sex fills your nostrils and you can feel her breath on your own pussy as well.'
@@ -1325,7 +1327,7 @@ if $ARGS[0] = 'wet':
 							mdlng_exp += rand(9,10)
 							city_modelling += rand(18,21)
 							pav_modelling += rand(0,city_modelling)/4
-							gs 'exhibitionism', 3
+							gs 'exhibitionism', 4
 							money += modelpayfin
 							modelfotomoney += modelpayfin
 							'	Eventually, the shoot is over and they leave you cold, shivering, and with really hard nipples. But at least you''ve also got a dry wad of cash that counts out to <<modelpayfin>> <b>₽</b>.'

locations/foto_models.qsrc

@@ -419,6 +419,11 @@ if $ARGS[0] = 'mari_chat':
 			'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading2.jpg"></center>'
 			'	"Hey Mari, how come you don''t shave your bush?"'
 			'	"The photographers actually ask me not to shave. They say it helps sell my ''farm girl'' look," she says, causing you both to giggle a little. "Besides, I tried shaving once when I still lived in Gadyukino and I hated that prickly feeling when it would start to grow back as stubble. It''s too much of a hassle to keep it smooth down there so since then I just decided to keep it trimmed."'
+			if pubestyle = 2:
+				'	"I know what you mean! Keeping it clean-shaven is too much work. What''s wrong with having a bit of bush?"'
+				'	"Right???"'
+				'	The two of you laugh together over your agreement in pubic hair fashion.'
+			end
 			act 'Keep chatting':gt 'foto_models','mari_chat'
 		end
 
@@ -458,62 +463,52 @@ if $ARGS[0] = 'mari_chat':
 					'	"Ugh! Everything! He''s an annoying little brat! He just spends all his time playing football with his friends and if I''m around he''ll scream at me until I go away. He''s always asking me to do his homework for him and worst of all he''s always trying to spy on me in the shower!"'
 					'	"What? You don''t have a latch or something to stop him?"'
 					'	You blush. "Uh, yeah I do, but I, uh, forget to lock it sometimes..."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif npc_rel['A34'] < 40:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my annoying little brother."'
 					'	Mari sits up a bit. "Really? What''s so irritating about him?"'
 					'	"Oh, nothing much. Just sibling squabbles. He''s not all that bad, just gets on my nerves sometimes."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif npc_rel['A34'] < 60:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my little brother."'
 					'	"That sounds nice. What are they like?"'
 					'	"Well to be honest, my sister can be a bit of a slut, but she''s still the best one I could ask for. My brother loves playing football so sometimes I join him and his friends at the field."'
 					'	"Maybe I''ll get to meet them one day!"'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif npc_rel['A34'] < 80:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
 					'	Mari smiles at you. "That''s sounds nice."'
 					'	You think of your siblings and smile. "Yeah. It is."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
-
+					
 				elseif sisterLesb >= 5:
-					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
-					'	Mari smiles at you. "You sound close."'
-					'	Your mind wanders back to your sister and how you sometimes wake her up in the middle of the night to fool around with her. "You could say that..."'
+                    '    "Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
+                    '    Mari smiles at you. "You sound close."'
+                    '    Your mind wanders back to your sister and how you sometimes wake her up in the middle of the night to fool around with her. "You could say that..."'
 
-					act 'Keep chatting':gt 'foto_models','mari_chat'
-
-				elseif brothersex < 1:
-					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
-					'	Mari smiles at you. "You sound close."'
-					'	You think of your siblings and smile, "Yeah. We are."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
+                elseif brothersex < 1:
+					'    "Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
+                    '    Mari smiles at you. "You sound close."'
+                    '    You think of your siblings and smile, "Yeah. We are."'
 
 				elseif sisterLesb >= 5 and brotherSex < 7:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
 					'	Your mind wanders back to your siblings and how you''ve fooled around with both of them separately.'
 					'	"You could say that..."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif sisterLesb >= 5:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
 					'	Your mind wanders back to your siblings and how you''ve fooled around with your sister and even had full fledged intercourse with your brother. Your thoughts wander to the memory of the last time his cock was inside you and it causes you to blush.'
 					'	"You could say that..."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
-
-				else
-					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
-					'	Mari smiles at you. "That''s sounds nice."'
-					'	You think of your siblings and smile. "Yeah. It is."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
+                else
+                    '    "Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
+                    '    Mari smiles at you. "That''s sounds nice."'
+                    '    You think of your siblings and smile. "Yeah. It is."'
 				end
+					act 'Keep chatting':gt 'foto_models','mari_chat'
 			else
-				'	"No, there''s just me.'
+				'	"No, there''s just me."'
 				act 'Keep chatting':gt 'foto_models','mari_chat'
 			end
 		end
@@ -687,7 +682,11 @@ if $ARGS[0] = 'mari_modelling_chat':
 		act'"What''s that?"':
 			*clr & cla
 			'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading6.jpg"></center>'
-			'	She stands up and gives you a tight hug. Once again you feel her soft breasts molding into yours and her hot skin rubbing against you. Her hug is so tight that your hips are being pressed together and you can feel her bush between your legs.'
+			if pcs_pubes < 11:
+				'	She stands up and gives you a tight hug. Once again you feel her soft breasts molding into yours and her hot skin rubbing against you. Her hug is so tight that your hips are being pressed together and you can feel her bush between your legs.'
+			else
+				'	She stands up and gives you a tight hug. Once again you feel her soft breasts molding into yours and her hot skin rubbing against you. Her hug is so tight that your hips are being pressed together and you can feel her bush brushing against your own.'
+			end
 			'	Pulling back with a smile she says, "Always make friends with your co-workers. Especially girls. We have to stick together you know!"'
 			'	You can''t help but smile back, saying, "We sure do Mari!"'
 			act'Continue':gt 'foto_models','mari_modelling_chat'
@@ -718,7 +717,7 @@ if $ARGS[0] = 'mari_modelling_chat':
 					'	"So then how <i>did</i> you get hired here?"'
 					'	Mari looks down at her book smiling in a way that looks like she''s slightly embarrassed. "I just... kind of... walked in... I saw some of the albums they have by the entrance, thought, ''Hey, maybe I can do this?'' and asked if I could get hired here."'
 					'	"And they hired you just like that?" you ask.'
-					'	"Well... There were a couple hoops I had to jump through. I wasn''t exactly legal yet, so I had to buy a fake passport that said I was just to get started. But as you can see, it was well worth it!"'
+					'	"Well... There were a couple hoops I had to jump through. Don''t tell anyone but I was 17 at the time so I had to buy a fake passport just to get started. But as you can see, it was well worth it!"'
 					mari_fakepassport = 1
 					act'Keep chatting':gt 'foto_models','mari_modelling_chat'
 				end
@@ -731,11 +730,16 @@ if $ARGS[0] = 'mari_modelling_chat':
 			*clr & cla
 			mari_modelling_ask = 1
 			'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading2.jpg"></center>'
-			'	"Wait, so how old were you when you started working here?"'
-			if year = 2016:'	"I was 17. I actually only just turned 18 this year."'
-			if year > 2016:'	"I was 17."'
-			'	"And you said you bought a fake passport to work here?"'
-			'	"Yup!"'
+			'	"Wait, you used a fake passport to start working here?"'
+			'	"Yeah."'
+			'	"So how old are you now?'
+			if year = 2016:
+				'	"I''m 18 now, thankfully. My birthday was actually just this last May."'
+			elseif year > 2016 and month > 5:
+				'	"I''m <<2016 - 1998>>. I turned 18 back in 2016."'
+			else
+				'	"I''m <<2016 - 1999>>. I turned 18 back in 2016."'
+			end
 			if age < 18 and fakepassport = 1:
 				act '"Did you buy it from that suspicious guy at the train station?"':
 					*clr & cla
@@ -743,20 +747,35 @@ if $ARGS[0] = 'mari_modelling_chat':
 					'	"Hey, did you buy it from that suspicious guy at the train station?" you ask her.'
 					'	She perks up as you say this.'
 					'	"I did! How did you know? Are you using one now? How old are you?"'
-					act'"I''m <<age>>."':
+					act'Tell her shyly':
 						cla
+						*nl
 						'	"I''m <<age>>... You''re not going to tell anyone are you?"'
-						'	"How could I? You basically did the same thing I did. Besides, girls like us have to stick together you know!"'
+						'	"Are you kidding? How could I? You basically did the same thing I did. We''d both get in trouble!" she laughs.'
 						act '"Hey..."':
 							*clr & cla
 							'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading6.jpg"></center>'
-							'	"Hey... this reminds me for some reason... The guy who auditioned you... Did he also make you strip down before telling you how old you needed to be to work here?"'
+							'	"Hey... this reminds me for some reason... The guy who interviewed you... Did he also make you strip down before telling you how old you needed to be to work here?"'
 							'	Mari jumps up out of her seat to finish your sentence, "And then told you that he liked your naked body so you should go to the train station and buy a fake passport??"'
 							'	"Yeah he did!" you cry out. "What a perv! Going out of his way to make excuses to take pictures of underage girls like us!"'
 							'	You laugh about it together and then try to quiet down a bit, remembering you should probably not spread it around that you''re only <<age>>...'
 							act'Keep chatting':gt 'foto_models','mari_modelling_chat'
 						end
 					end
+					act'Tell her excitedly':
+						*clr & cla
+						'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading6.jpg"></center>'
+						'	"I''m <<age>>!"'
+						'	"What??" she cries, jumping up excitedly. "That''s crazy!"'
+						'	"I know right? What are the odds that two girls like us from outside the city would both buy fake passports to end up here?"'
+						'	"You said you visit your grandparents in Gadyukino sometimes right? Maybe it''s something in the water!" she laughs.'
+						'	You laugh with her for a moment before the both of you calm down again.'
+						'	"Hey... this reminds me for some reason... The guy who auditioned you... Did he also make you strip down before telling you how old you needed to be to work here?"'
+						'	"And then told you that he liked your naked body so you should go to the train station and buy a fake passport??"'
+						'	"Yeah he did! What a perv! Going out of his way to make excuses to take pictures of underage girls like us!"'
+						'	You both burst into fits of laughter before clapping your hands over your mouths and trying to stifle your hysterics. You probably shouldn''t spread it around that you''re only <<age>>...'
+						act'Keep chatting':gt 'foto_models','mari_modelling_chat'
+					end
 				end
 			end
 
@@ -788,7 +807,7 @@ if $ARGS[0] = 'mari_modelling_chat':
 					act '"I''m <<age>>, I never used a fake passport."':
 						*clr & cla
 						'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading3.jpg"></center>'
-						'	"Oh no, I''ve never bought a fake passport. I''m <<age>> and I''ve always been legal to work here, I just know about the guy. It was where the Gopniks in my school would go to get their fakes so they could buy booze," you say with a laugh.'
+						'	"Oh no, I''ve never bought a fake passport. I''m <<age>> and I''ve always been working here legally, I just know about the guy. It was where the Gopniks in my school would go to get their fakes so they could buy booze," you say with a laugh.'
 						'	"Oh! I didn''t realize he was that well known."'
 						act'Continue':
 							*clr & cla
@@ -1483,7 +1502,7 @@ if $ARGS[0] = 'krystal_chat':
 						'	Suddenly you realize Krystal is giving you a weird look.'
 						'	"W-What...?" you stammer. "Is there something on my face?"'
 						'	"No..." she says while eyeing you up. "I just wanted you to know that if you ever want to do some uhh... ''fat burning exercises'' with me and Ben... you''re more than welcome to join us." She gives you another smirk as she bites her lip.'
-						if exhibitionist_lvl < 2:
+						if pcs_inhib < 50:
 							'	You break eye contact with her and look away, blushing furiously and try to mumble some kind of response. "I... uhh... ummm... yeah..."'
 							'	<i>What the hell am I even supposed to say to that?</i> you think to yourself.'
 							act'Keep chatting':gt'foto_models','krystal_chat'

locations/gopskver.qsrc

@@ -104,7 +104,7 @@ $d_gop_triple_blow = {
 						'You nod your head meekly and say in a soft voice: "I understand."'
 						'The boys give you an approving nod, and Dan says: "You''re a smart slut, that makes me happy. Most of them need longer to accept their place in life. Anyway... get the hell out, the mess on your face is ruining my appetite."'
 
-						act 'Leave':gt 'gskver'
+						act 'Leave':gt 'gskver', 'start'
 					end
 
 					act 'Object':
@@ -118,7 +118,7 @@ $d_gop_triple_blow = {
 						'You don''t like the sound of that. When you carefully try to open your eyes again you notice the guys have surrounded you, and they all have their cocks out. Your vision is still blurry though, and you shriek in disgust when you feel a stream of urine hit your face. Then another, and a third. You realize you can''t fight off the three of them, and just let it happen.'
 						'Noticing your change in demeanour, Dan smirks at you when the streams have dried up: "That''s right, whore, just let it happen. Let that be a reminder for you.. now get the fuck out of here and clean yourself up, you look disgusting."'
 
-						act 'Leave':gt 'gskver'
+						act 'Leave':gt 'gskver', 'start'
 					end
 				end
 			end
@@ -152,7 +152,7 @@ if kotovLoveQW > 0:
 			if $prevloc = 'gkafe':
 				gt 'gkafe'
 			else
-				gt 'gskver'
+				gt 'gskver', 'start'
 			end
 		end
 		act 'Drink beer with Vitek and the guys':
@@ -178,7 +178,7 @@ if kotovLoveQW > 0:
 				if $prevloc = 'gkafe':
 					gt 'gkafe'
 				else
-					gt 'gskver'
+					gt 'gskver', 'start'
 				end
 			end
 		end
@@ -199,7 +199,7 @@ if kotovLoveQW > 0:
 	elseif hour >= 20:
 		'It''s evening, and the boys are getting ready to go to the disco like they do every night. You could call it a night and leave them alone, or tag along.'
 
-		act 'Leave':gt 'gskver'
+		act 'Leave':gt 'gskver', 'start'
 		if week = 5 or week = 6:
 			act 'Go to the disco with the boys':minut += 15 & gt 'gdkin'
 		end
@@ -209,14 +209,14 @@ else
 		if alko < 3:
 			'It''s evening, and the boys are getting ready to go to the disco like they do every night. You could call it a night and leave them alone, or tag along.'
 
-			act 'Leave':gt 'gskver'
+			act 'Leave':gt 'gskver', 'start'
 			if week = 5 or week = 6:
 				act 'Go to the disco with the boys':minut += 15 & gt 'gdkin'
 			end
 		elseif alko >= 3 and alko < 6 and DansOralSlut = 1:
 			'You''re quite drunk, and before going to the disco Dan offers to walk you home.'
 
-			if pcs_dom >= 5:act '"No need, I can find my own way home"':pcs_dom -= 5 & gt 'gskver'
+			if pcs_dom >= 5:act '"No need, I can find my own way home"':pcs_dom -= 5 & gt 'gskver', 'start'
 
 			act 'Go with Dan':
 				cls
@@ -239,7 +239,7 @@ else
 		elseif alko >= 3 and alko < 6 and DansOralSlut = 0:
 			'You''re quite drunk, and before going to the disco Dan offers to walk you home.'
 
-			if pcs_dom >= 5:act 'Decline':pcs_dom -= 5 & gt 'gskver'
+			if pcs_dom >= 5:act 'Decline':pcs_dom -= 5 & gt 'gskver', 'start'
 
 			act 'Go with Dan':
 				cls
@@ -264,7 +264,7 @@ else
 		elseif alko >= 6:
 			'You got absolutely hammered in the park, and are swaying from side to side when you walk down the pathway. Suddenly Vasily hugs your waist tightly and begins to lead you somewhere, with his friends following him.'
 
-			if pcs_dom >= 5:act 'Say you have to go and leave them':pcs_dom -= 5 & gt 'gskver'
+			if pcs_dom >= 5:act 'Say you have to go and leave them':pcs_dom -= 5 & gt 'gskver', 'start'
 
 			act 'Go with the guys':
 				cls
@@ -312,7 +312,7 @@ else
 					if $prevloc = 'gkafe':
 						gt 'gkafe'
 					else
-						gt 'gskver'
+						gt 'gskver', 'start'
 					end
 				end
 				act 'Drink beer with the guys':
@@ -335,7 +335,7 @@ else
 						if $prevloc = 'gkafe':
 							gt 'gkafe'
 						else
-							gt 'gskver'
+							gt 'gskver', 'start'
 						end
 					end
 				end
@@ -343,7 +343,7 @@ else
 				'You''re already not exactly sober any more, and feel a bit looser while you chat with the guys.'
 				
 
-				!act 'Decline the beer and leave':gt 'gskver'
+				!act 'Decline the beer and leave':gt 'gskver', 'start'
 
 				if pav_slut < 25:
 					act 'Drink beer with the guys':
@@ -357,7 +357,7 @@ else
 							if $prevloc = 'gkafe':
 								gt 'gkafe'
 							else
-								gt 'gskver'
+								gt 'gskver', 'start'
 							end
 						end
 					end
@@ -371,7 +371,7 @@ else
 						'You smile and nod at him: "I like getting guys all worked up with my body, that''s true. Why?"'
 						'Vasily stutters for a moment, and then manages to say: "Oh n- no reason, I was just curious is all."'
 
-						act 'Thank them for the beer and leave':gt 'gskver'
+						act 'Thank them for the beer and leave':gt 'gskver', 'start'
 					end
 
 					act '"What? No!"':
@@ -380,7 +380,7 @@ else
 						'You raise your voice a little and act surprised: "What? No way! Whoever told you that was lying!"'
 						'However, Dan doesn''t fall for your act, and matter-of-factly says: "<<$pcs_nickname>>, you''re a slut. We''ve all seen you, the whole town knows it. Why are you even trying to deny it? You''re such a terrible liar..."'
 
-						act 'Leave':gt 'gskver'
+						act 'Leave':gt 'gskver', 'start'
 					end
 				elseif pav_slut < 75:
 					if $prevloc = 'gkafe':'Vasily suggests to the guys to leave the cafe and continue drinking in the park. You are too drunk to resist so you just follow them to the park'
@@ -427,7 +427,7 @@ else
 									'The boys take out some markers and write several obscene words onto your skin. Soon, the whole town can read what a huge slut you are!'
 									'You don''t want to anger them any further, knowing the boys are much stronger than you, and don''t dare to protest while they keep writing more things on you. Eventually they''re satisfied, and let you get up. They even let you put your clothes back on, so you can cover up at least the majority of the writings. Dan smirks: "Maybe that''ll help you remember what you are, slut. When you''re ready to apologize, you know where to find us."'
 
-									act 'Leave':gt'gskver'
+									act 'Leave':gt 'gskver', 'start'
 								end
 							end
 
@@ -477,14 +477,14 @@ else
 			if $prevloc = 'gkafe':
 				act 'Blush and quickly leave the cafe':gt'vokzalG'
 			else
-				act 'Blush and keep walking':gt'gskver'
+				act 'Blush and keep walking':gt 'gskver', 'start'
 				if BjBeerQW >= 5:act 'Approach the guys':gt'zsoft_gopskverGorSlut','1'
 				act 'Ask for a beer': 
 					if BjBeerDay = daystart:
 						cla
 						cls
 						'Vasily smirks and slaps your hand away: "Go beg somewhere else, whore. You''ve had enough for today, the open bar is closed for sluts like you. Come back tomorrow."' 
-						act 'Leave them and walk away':gt'gskver' 
+						act 'Leave them and walk away':gt 'gskver', 'start' 
 					else
 						gt 'gopskver', 'BjBeerStart'
 					end
@@ -520,7 +520,7 @@ if $ARGS[0] = 'BjBeerStart':
 				cla
 				cls
 				'The Gopniks don''t take your refusal very well, and try to force you anyway when they realize you''re not going to do what they want. However, your athletic training pays off and you manage to outrun them. Once you''re certain they''re no longer following you, you stop for a moment to catch your breath.' 
-				act 'Return to the park': gt'gskver'
+				act 'Return to the park': gt 'gskver', 'start'
 			end
 		end
 	end
@@ -765,7 +765,7 @@ if $ARGS[0] = 'BjBeerFace':
 	
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer<<BeerRand>>.jpg"></center>'
 			'Dan grins at you and offers you his unfinished bottle, and smiles when you drink it eagerly. Your mood improves slightly.'
-			act 'Return to the park': BjBeerActiv = 0 & gt'gskver'
+			act 'Return to the park': BjBeerActiv = 0 & gt 'gskver', 'start'
 	
 		elseif BjBeerActiv = 0:
 			pcs_mood = 0
@@ -776,7 +776,7 @@ if $ARGS[0] = 'BjBeerFace':
 			'Dan shrugs: "It took you way too long to finish us off, we drank all the beer in the meantime."'
 			'He grins as he shows you the empty bottle. You bite your lip in frustration and disappointment when you mutter: "But... but I... how..."'
 			'Maybe you should try harder, next time.'
-			act 'Return to the park': gt'gskver'
+			act 'Return to the park': gt 'gskver', 'start'
 		end
 	end  
 end	
@@ -978,7 +978,7 @@ if $ARGS[0] = 'BjBeerVag':
 					*pl
 					'Dan grins and gives you his unfinished bottle of beer: "Here you go, slut. You''ve earned it."'
 					'You eagerly drink the beer with a content smile on your lips. Your mood improves slightly.'
-					act 'Return to the park': gt'gskver'
+					act 'Return to the park': gt 'gskver', 'start'
 				end   
 			end
 		end
@@ -1135,7 +1135,7 @@ if $ARGS[0] = 'BjBeerAnal2':
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer<<BeerRand>>.jpg"></center>'
 				'Dan grins and gives you his unfinished bottle of beer: "Here you go, slut. You''ve earned it."'
 				'You eagerly drink the beer with a content smile on your lips. Your mood improves slightly.'
-				act 'Return to the park': gt'gskver'
+				act 'Return to the park': gt 'gskver', 'start'
 				
 			end
 		end

locations/gschool_grounds.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'main':
 		'With the school open you can go to the <a href="exec:gt ''gschool_grounds'',''change_room''">changing rooms</a> by the gym and change your outfit.'
 	end
 
-	if day = nyp_day and month = 12 and age <= 17 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock ! 1:
+	if day = nyp_day and month = 12 and age <= 17 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0:
 		if hour = 14:
 			'All the boys and girls are standing near the school. Everyone did their best to look good today, wearing their nicest clothes. Someone calls out to you, "Hey <<$pcs_nickname>>, are you coming to the New Year''s Eve party or not? You didn''t pay the 1000 <b>₽</b> entry fee yet!"'
 
@@ -74,7 +74,7 @@ if $ARGS[0] = 'main':
 
 !!	act 'Go to the Principals Office': gt
 
-	if week < 6 and hour >= 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0:
+	if week < 6 and hour >= 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolBlock = 0:
 		if $clothingworntype = 'school' or Enable_sforma = 1:
 			if hour = 6:
 				if minut < 30:
@@ -132,7 +132,7 @@ if $ARGS[0] = 'main':
 
 	act 'Go to the sports field': gt 'gschool_grounds', 'sports'
 
-	if week = 6 and hour = 8 and StoryLine > 0 and SchoolAtestat = 0 and detention_set = 1:
+	if week = 6 and hour = 8 and StoryLine > 0 and SchoolAtestat = 0 and detention_set = 1 and schoolBlock = 0:
 		act 'Go to detention': gt 'gschool_detention', 'start'
 	end
 

locations/gschool_lessons.qsrc

@@ -2711,7 +2711,7 @@ if $ARGS[0] = 'postphys':
 					zverevaQW = 3
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/christina/sex/school/chcoachbj.jpg"></center>'
-					'You open the door and enter Mr. Pavlovich''s room. Christine is startled, jumping up from her kneeling position and desperately wiping her mouth while your teacher quickly stuffs his erection back into his shorts. "Miss <<$pcs_lastname>>, has no one taught you you should knock!? Me and Christina were just discussing some important matters!" he exclaims, pretending to be insulted by your sudden intrusion.'
+					'You open the door and enter Mr. Pavlovich''s room. Christina is startled, jumping up from her kneeling position and desperately wiping her mouth while your teacher quickly stuffs his erection back into his shorts. "Miss <<$pcs_lastname>>, has no one taught you you should knock!? Me and Christina were just discussing some important matters!" he exclaims, pretending to be insulted by your sudden intrusion.'
 					*nl
 					'You can''t believe he''s even trying! You tell him just that, "Christina was using her mouth, but it certainly wasn''t for talking! You''re letting her suck you off so she can go to the regional competition instead of me!"'
 					*nl

locations/gschool_lunch.qsrc

@@ -243,6 +243,16 @@ if $ARGS[0] = 'break':
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/lunch.jpg"></center>'
 			'You stay in the cafeteria where some of the <a href="exec:gt ''Sgrup''">teachers</a> are eating or watching over the kids making sure there is no trouble.'
+			if rolanmeet < 1: 
+				'A man is sitting with his head on the table, he seems lonely.'
+				act 'Look for the lonely man': gt 'gschool_lunch', 'rolan_meet'
+			elseif rolanmeet < 2: 
+				'The man is sleeping at the table as usual.'
+				act 'Wake him': gt 'gschool_lunch', 'rolan_meet'	
+			elseif rolanmeet < 8: 
+				act 'Look for Rolan': gt 'gschool_lunch', 'rolan_meet'
+			else
+			end
 			act 'Leave': gt 'gschool_lessons', 'short_break'
 		end
 	end
@@ -869,5 +879,426 @@ if $ARGS[0] = 'bjs':
 	end
 end
 
+if $ARGS[0] = 'rolan_meet':
+	*clr & cla
+	gs 'stat'
+	if rolanmeet < 1:
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		rolanmeet += 1
+		'<center><img src="images/characters/pavlovsk/school/rolan/school/rolanmeet0.jpg"></center>'
+		!! LURK MORRISON images are currently located in ''...images\locations\pavlovsk\resident\apartment\aptrolan\rolanmeet'\'
+		'He looks like he''s sleeping. You try waking him, "Hey mister, you shouldn''t sleep here!"'
+		'He''s snoring pretty loudly. It''s a wonder no one else has tried to wake him.'
+		'"Hey... Hey... Wake up!"'
+		'"...I don''t know anything... no, Miss Volkov, I wasn''t working that day..."'
+		'Is he talking in his sleep? "SIR!"'
+		'"...you can''t prove anything, Miss Volkov..."'
+		act 'Poke him':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet1.jpg"></center>'		
+			'You poke him in the shoulder, "Hey... Hey... Mister!" He doesn''t stir.'
+			'"...please, Miss Volkov... leave me alone..."'
+			'You grow frustrated, "What th-?" You try shaking his char, "Wake up!"'
+			'He continues to snore, "...the staircases are clean... leave me alone..."'
+			'Finally, you give up. "He must be drunk."'
+			act 'leave ': gt 'gschool_lessons', 'short_break'
+		end
+	elseif rolanmeet = 1:	
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		rolanmeet += 1
+		'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet2.jpg"></center>'		
+		'Once again, you approach the man but he doesn''t seem to be asleep this time, he''s eyeing a glass that you''re sure is filled with alcohol. "Hey! You can''t drink here at school!"'
+		'The man doesn''t look at you, "Leave me alone, I''m enjoying my break..."'
+		'You scold him, "I''m telling you that you can''t drink here!"'
+		'He starts swirling his glass around, "Miss Volkov, I''m not doing anything, and besides, I''ve finished my work. Shouldn''t you be worrying about yours?"'
+		'You raise your voice, "I''m <b>NOT</b> Miss Volkov and <b>YOU</b> are giving us a bad example!"'
+		'He suddenly looks up at you, "Wha-?"'
+		act 'Pull his chair out':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet3.jpg"></center>'		
+			'He comically falls on the floor, "Hey! What are you doing!?"'
+			'"You are in no position to question me! Why are you drunk? You''re in a school, do you know that? I should call the police!"'
+			'He starts to reach for the chair you pulled out from under him, "Hey! I''m not drunk and I''m on break!"'
+			'"Right, like I believe that. What are you doing here? Are you... homeless?" You start feeling a little bit of remorse.'
+			'"Huh? No, I''m the janitor! <i>I</i> should be the one reporting <i>you</i>! Who do you think you are, throwing people around like this? I should have a word with Miss Volkov..."'
+			'"Wha-" you start to ask when you notice the name tag on the table. <i>Rolan Matveev: Janitor</i>. Shit! He really does work here! "Oh, uh, I''m really sorry, sir. I didn''t see your badge..."'
+			'He stands back up, "Hmph. Fine, you can go, I''ll let you off with a warning <b>this time</b>. Now, shoo, leave me alone!"'
+			'You feel a little guilty, but still he is drinking in a school. "I''m really sorry, sir, but... why are you drinking at school? If Miss Volkov finds out, you could be fired!"'
+			'"Didn''t I say ''shoo''? Anyways, this isn''t alcohol." He takes a quick swig of his drink.'
+			'With how he''s been acting and drinking his beverage, you''re not sure you believe that.'
+			'"Are you mocking me? No one ever wants to talk to me..."'
+			'"No, I''m just curious about you is all."'
+			'He sighs and laughs, "Oh, okay, I''m dreaming again. Hmm, the doctor said to let my dreams play out to better understand myself. Alright, <i>Miss Dream</i> this drink is actually..."'
+			act 'Continue': 
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet4.jpg"></center>'		
+				'He holds up a bottle you hadn''t noticed before, "Leninade! The only thing normal this school offers to wake you up!"'
+				'You eye the bottle, then his glass, "That doesn''t look like what''s in your glass! The color is completely different!"'
+				'He eyes you curiously, "Uh? The dream doesn''t usually talk back... what in the...?"'
+				'"Hey! I''m not a dream! Why on the Earth would Leninade wake up you? It''s just a soda."'
+				'"Okay, wow, for a figment of my imagination, you sure are pretty dumb..."'
+				'What did he say about you? You slap at his arm.'
+				'"Hey! I really felt that! You are real! But, why are speaking to me?"'
+				'"Are you for real? if that is Leninade then why is the color different? You''re lying, this is alcohol!" You grab the glass and smell it for alcohol. While it certainly doesn''t smell good, you don''t actually smell any alcohol. "Huh, what is this?"'
+				'He snatches his glass back from you, "I already told you, it''s Leninade. It just has some coffee and tea mixed in with it."'
+				'If he mixes those three drinks together... "You must really need the energy. Why don''t you eat the food here instead, Mister..." Dammit! You''ve forgotten his name already!'
+				'"Matveev, Rolan Matveev. I can understand a girl not liking a drink like this. What you would you know about needing energy for work, Miss..."'
+				'"<<$pcs_lastname>>, <<$pcs_firstname>> <<$pcs_lastname>>... anyways, you didn''t answer my question: Why don''t you eat here like everyone else?"'
+				'"Well, Miss <<$pcs_lastname>>, I don''t trust the cook. She never lets me enter the kitchen."'
+				'"Well, if something were wrong with the food, you''d see a lot of people in the hospital. I think you''re being paranoid." The bell rings. "I have to go. See you around, Mr. Matveev!"'
+				'"Sure, see you around, Miss <<$pcs_lastname>>."'
+				act 'Leave': gt 'gschool_lessons', 'short_break'
+			end
+		end
+	elseif rolanmeet = 2:
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		rolanmeet += 1
+		'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet5.jpg"></center>'		
+		'You see Rolan sitting alone at his usual table and decide to approach him, "Hello, Mr. Matveev!"'
+		'"Huh? Me? Oh..." Rolan raises his eyes to yours, "G-good morning, Miss <<$pcs_lastname>>."'
+		'"Do you mind if I sit with you? It seems like there''s plenty of space."'
+		'"Um, hey! Where''s the camera? Is this another joke?" He sounds a bit agitated.'
+		'You''re a bit confused, "Huh? What are you talking about?"'
+		'"So there''s no camera?" Rolan quickly looks around, "This isn''t some kind of joke or prank...?"'
+		'"Mr. Matveev, I don''t understand. I wanted to apologize for last time."'
+		'"Oh, okay... apology accepted." He sounds somewhat relieved but still hesitant, "You can go now, Miss <<$pcs_lastname>>."'
+		'"You don''t want me to sit with you? Are you waiting for someone?" You peak around the cafeteria.'
+		act 'Continue':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet6.jpg"></center>'		
+			'"Waiting for someone? Me?" You take his answer as a no and sit in the table.'
+			'"I can leave if you really want me to. I just wanted to show you that the school''s food isn''t that bad."'
+			'"You can stay, if you want. It''s just, no one has ever wanted to stay near me."'
+			'"Well, i was rude to you last time. And besides, you need to eat something. Let me go grab some food and I''ll be right back!"'
+			'"I don''t know, Miss <<$pcs_lastname>>..."'
+			'"What''s the problem? C''mon, it''s my treat! I''ll even take a few bites first to show you it''s okay!"'
+			'Roman stammers, trying to make an excuse.'
+			'"I''ll be back in a minute!" You walk away from the table and grab some food.'
+			'Roman is still stammering when you get back.'
+			'"Here we go! I''ll take the first bite!" You savour a little of the lunch, "See? It''s all good! Now you try a bite!"'
+			'Rolan grabs at a piece with his bare hands.'
+			'"No, silly! Use the knife and fork  You''re making a mess..."'
+			act 'Help Rolan':
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet7.jpg"></center>'		
+				'"Err, are you sure this is a good idea?"'
+				'"Yes, you don''t want to make a mess, do you? Here, let me help you." You show Mr. Matveev the proper way to use a knife and fork.'
+				'Rolan takes a few bites of his food, "Oh, this is not so bad, actually."'
+				'"See? Neither of us died. I know it''s not the best but it still fills you up and gives you energy."'
+				act 'Continue':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet8.jpg"></center>'		
+					'Rolan starts sniffling.'
+					'"Oh, too much onion? Next time we''ll try something different then."'
+					'Rolan clears his throat "...t-thanks... M-Miss <<$pcs_lastname>>..."'
+					'"Take a drink of some water, that should help. I have to get to close now. I''ll see you next time, Mr. Matveev."'
+					'You can''t help but think that Rolan seems like a lonely man. You make a mental note to try and spend more time with him.'
+					act 'Leave ': gt 'gschool_lessons', 'short_break'
+				end
+			end
+		end
+	elseif rolanmeet = 3:
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		rolanmeet += 1
+		'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet9.jpg"></center>'		
+		'You decided to visit Rolan in your free time, but he''s not at his usual table. You turn and see he''s mopping the floor. "Hi, Mr. Matveev!"'
+		'"M-miss <<$pcs_lastname>>, good morning. You shouldn''t be seen talking to me!"'
+		'"Hmm? Why not? I can talk with whoever i like."'
+		'He only stammers.'
+		'"Oh, I guess you''re busy working?"'
+		'"Well, no. To be honest, I was waiting for the lunch break to finish."'
+		'"Great!" You tell him. "Then grab a lunch, they are free for staff you know. I''ll wait for you at our table."'
+		'He seems surprised. "What, our lunches are free?"'
+		'"Um, yes, they are. Did you not know that? Just grab your food and show your badge to the cashier."'
+		'"No..." Rolan stands in the lunch line apprehensively, as if he still doesn''t believe you. When he returns with his food, he smiles at you. "Hey, it worked!"'
+		'You lightly laugh, "I told you so!"'
+		'"So, now what?"'
+		'"Uh, we go and eat."'
+		'"Oh, right..."'
+		'You motion Rolan to follow you, "Come on, Mr. Matveev, or someone will take our table."'
+		act 'Go sit':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet10.jpg"></center>'		
+			'When you get seated, you noticed Rolan is staring at his food. "Is there something wrong, Mr. Matveev?"'
+			'"Uh..."'
+			'"Oh, let me take a bite first." You grab a piece of lettuce and munch on it.'
+			'"Hmm." Rolan is still staring at the food.'
+			'"What is it, Mr. Matveev?"'
+			'He stares for another moment before looking up at you, "Umm, what is this?"'
+			'Did he really just ask you that? "It''s a salad with walnuts..."'
+			'"I remember walnuts being bigger and i could crack them with my hands."'
+			'You have to stifle a laugh, "Well, they removed the shells. It would be awkward if you had to crack them while you ate."'
+			'"Hmm? Strange."'
+			'"Okay, you don''t have all day to eat. And don''t forget to use your fork."'
+			act 'Continue':
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet11.jpg"></center>'		
+				'"Use a fork? Again?" He almost sounds like a child.'
+				'"Yes, it''s not polite to eat with your hands," you explain.'
+				'"Oh, okay." Rolan start to eat.'
+				act 'Continue':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet12.jpg"></center>'		
+					'After a few bites, Rolan looks a bit happier. "It''s good, right, Mr. Matveev?"'
+					'He continues eating.'
+					'"Well, how is it?"'
+					'He''s chomping on a few of the walnuts, "Hmm, no tooth loss..."'
+					'"Uh? Ha-ha, okay." He is really strange sometimes. "I have to get to class now. I''ll see you later, Mr. Matveev!"'
+					'"Oh, goodbye Miss <<$pcs_lastname>>..."'
+					act 'Leave ': gt 'gschool_lessons', 'short_break'
+				end
+			end
+		end
+	elseif rolanmeet = 4:
+		*clr & cla
+		minut += 4
+		gs 'stat'
+		'You decide to spend a little of your free time with Rolan. You wonder if his goofy behaviour is due to his loneliness or if that''s just who he is. You''ll have to spend a little more time with him to find the answer. "Hmm, where is he today? Maybe it''s his off day?"'
+		'<i><b>WHOOOSSSHHH!</b></i>'
+		'The wind howls as the door next to you opens.'
+		act 'Continue':
+			*clr & cla
+			minut += 4
+			gs 'stat'
+			rolanmeet += 1
+			$track_loop = 'sound/windhowl.mp3'
+			volume = 50
+			music_loop = 1
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet13.jpg"></center>'		
+			'<i><b>WHOOOSSSHHH!</b></i>'
+			'Rolan walks through the door. "Woah, windy day, isn''t it, Miss <<$pcs_lastname>>!"'
+			'"Uh? Mr. Matveev?"'
+			'Rolan is struggling to close the door. "Could you lend me a hand, Miss <<$pcs_lastname>>? It''s hard with this wind..."'
+			'<i><b>WHOOOSSSHHH!</b></i>'
+			'"Sure!" You rush over to Rolan to offer your help.'
+			'<i><b>WHOOOSSSHHH!</b></i>'
+			'It''s a really windy day...'
+			act 'Close the door':
+				*clr & cla
+				music_loop = 0 & close all
+				minut += 4
+				gs 'stat'
+				'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet14.jpg"></center>'		
+				'You''re both a little out of breath, "Whew, thank you, Miss <<$pcs_lastname>>. Excuse me for a second, the wind messed up my hair."'
+				'"Okay, Mr. Matveev."'
+				'"I was trying to clean the courtyard outside, but with this wind today it''s nearly impossible! I''ll have to try again later."'
+				'"Well, in that case, you should eat something so you have energy for later."'
+				'"Mmm, yes, I think I could eat something."'
+				'"Good! Why don''t you grab a lunch? I think they''re serving steak today. i''ll save you a seat, Mr. Matveev." You find an empty table and wait for Rolan.'
+				act 'Wait for Rolan':
+					*clr & cla
+					minut += 4
+					gs 'stat'
+					'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet15.jpg"></center>'		
+					'You see Rolan with his plate and wave at him, "Mr. Matveev, over here!"'
+					'"Oh there you are, Miss <<$pcs_lastname>>." Rolan walks over to you and sits down.'
+					'You snatch a small piece and ''test'' it for Rolan. It tastes really good but you know Rolan needs to eat, "It''s good! Eat so you have your energy for later."'
+					'Rolan starts to eat. With his hands. Again.'
+					'You lightly smack the table, "No! Fork and knife, fork and knife... we are civilized people, Mr. Matveev!"'
+					'"Ehh, right, right."'
+					'Rolan takes his fork and knife and quickly cuts his steak into two pieces before basically swallowing both. Did he even chew either piece?'
+					'"Wow, Mr. Matveev! You must have really enjoyed that steak. Well, since you''re finished eating so soon, we have some time to talk."'
+					'"Talk? I-I dont''t know... usually only Miss Volkov talks to me when she gives me the tasks for the day..."'
+					'You pout, "Aww, you don''t want to talk with me..."'
+					'"Oh no! No, no, no, no... Miss <<$pcs_lastname>>... I-I... just don''t know what to talk about. i''m not used to speaking with anyone."'
+					'"Well, what kind of hobbies do you have? What do you do when you''re done working?"'
+					'"Oh, uh, I go home." Suddenly, the bell rings.'
+					act 'Say goodbye':
+						*clr & cla
+						minut += 4
+						gs 'stat'
+						'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet16.jpg"></center>'		
+						'"I have to go, I don''t want to be late! We''ll continue another time if you don''t mind. Bye, Mr. Matveev!"'
+						'"Goodbye, Miss <<$pcs_lastname>>."'
+						act 'Leave ': gt 'gschool_lessons', 'short_break'
+					end
+				end
+			end
+		end
+	elseif rolanmeet = 5:
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		rolanmeet += 1
+		'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet17.jpg"></center>'		
+		'"Miss <<$pcs_lastname>>!" Rolan seems cheerful this morning.'
+		'You wave at him, "Mr. Matveev! Good morning!"'
+		'He points to an empty seat, "Do you want to sit with me? You always ask me, so I feel it''s my turn to ask you."'
+		'"Of course, Mr. Matveev. I actually wanted to see how you are." You sit down across from him.'
+		'"I''m doing pretty well, Miss <<$pcs_lastname>>. i feel full of energy today!"'
+		'"I see that." You notice him holding something. It looks like food. "What have you got there? It doesn''t look like something they were serving today."'
+		'"Oh this? I''ve brought something from home, a sandwich I made with my own hands! I''d like you to try some it! It''s delicious... not that what they serve here isn''t good."'
+		act 'Continue':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet18.jpg"></center>'		
+			'Rolan is actually eating his sandwich with a fork and knife. You find it somewhat amusing. "Mr. Matveev, it''s okay to eat a sandwich with your hands!"'
+			'He shakes his head, "No, no, we are civilized people, remember?"'
+			'You laugh, "Yes, Mr. Matveev, I remember. But i assure you, that it''s okay this time."'
+			'"Okay, if you say so, Miss <<$pcs_lastname>>." He tears off a piece and hands it towards you, "Please, have a bite. It''s safe, I promise!"'
+			'You''re a bit hesitant, but you don''t want to offend Rolan.'
+			act 'Take a bite':
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet19.jpg"></center>'
+				!! LURK MORRISON Suggestion - Should be a minor mood decrease here. Maybe a hunger decrease as well?
+				'You almost retch after taking a bite. What... is in this? It''s a medley of different flavors, none of which should go together. You also taste... <i>CHEWING GUM</i>?'
+				'You attempt to gather yourself before speaking. "...t-thanks. So, um, last time we were talking about what you do in your free time...?"'
+				'Rolan takes back his sandwich and continues to eat, oblivious to your disgust. "Yes, when I get off work, I go home. Sometimes I like to go for a walk or do chores, maybe take a bath. Do you want another bite?" He offers you the ''sandwich'' again.'
+				'"Er, no thanks, Mr. Matveev..." Rolan stops chewing.'
+				act 'Continue':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet20.jpg"></center>'		
+					'"Was there too much garlic? You can pinch your nose if it bothers you..."'
+					'You really don''t want to insult Rolan so you make up an excuse, "No, no. I''m, uh, I''m going to be a model some day, so I need to watch my figure, you know?"'
+					'"Oh, is there a class you take for that? I wasn''t aware." He actually fell for that?'
+					'You suddenly feel your stomach lurch, the sandwich is making a return trip. You quickly get up, "I''m sorry, Mr. Matveev, but I have to go. I just remembered something I have to do!"'
+					'Rolan continues eating, "Oh? Goodbye, Miss <<$pcs_lastname>>!"'
+					act 'RUN!':
+						*clr & cla
+						minut += 5
+						gs 'stat'
+						'<center><img src="images/characters/pavlovsk/resident/rolan/apartment/kitch/rolansoup0.jpg"></center>'		
+						'"...shit!...i hate to puke... " ... BLUURB...And you spend some time to clean your stomach. "What the fuck!...that ... roll... . Better clean..." Fortunately you avoid to make a mess...just in time.'
+						'<i>Shit! I''m going to puke!</i> You race to the restroom and find an empty stall just in time. If you''d thought it tasted awful the first time...'
+						act 'Leave ': gt 'gschool_lessons', 'short_break'
+					end
+				end
+			end
+		end
+	elseif rolanmeet = 6:
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		rolanmeet += 1
+		'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet21.jpg"></center>'		
+		'You spot Rolan and he''s already waving you over, "Miss <<$pcs_lastname>>, good morning! I''ll get our lunch today!"'
+		'"NO!  Um, I mean, good morning to you as well, Mr. Matveev!" You remember your last lunch together, "Let''s keep our meal light today, yeah?"'
+		'"Uh?" He looks a little perplexed.'
+		'You turn him around and gently push him towards the tables, "Yes, why don''t you find us a spot to sit and I''ll grab our food!"'
+		'"Uh, okay, Miss <<$pcs_lastname>>..."'
+		act 'Continue':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet22.jpg"></center>'		
+			'You opt to grab two ice cream cones instead. Surely Rolan can''t mess that up?'
+			'He looks at you a bit confused, "Hmm, I didn''t know you could have ice cream for lunch. Is this beef flavored?"'
+			'You laugh at Rolan for a few seconds, "Uh? No, silly... when would they ever... oh, I see, you''re mocking me!"'
+			'Mr. Matveev quickly eats his ice cream. If you ate ice cream that fast, you''d definitely have a brain freeze...'
+			act 'Continue':
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet23.jpg"></center>'		
+				'"Wow, that was fast! I guess you really liked it? Oh, but now you''re a little dirty..."'
+				'"Huh?"'
+				act 'Uh?':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet24.jpg"></center>'		
+					'Rolan looks down, "Oh! You mean my jacket?"'
+					'You stare at Mr. Matveev for a moment. "How do you eve-never mind... Well i assume you enjoyed that?"'
+					'"It was... sweet tasting. What flavor was it?"'
+					'"It was white ... i assume it was vanilla."'
+					'"Vanilla? I think I''ve heard of that before. Tastes different from beef though. Very sweet."'
+					'You keep yourself from shuddering at thought of meat flavored ice cream. "I''m no expert on ice cream flavors but i think that the sweetness comes from the sugar..."'
+					'"Sugar, huh? I should add that to my foods..." You don''t doubt he would.'
+					'"I''m happy you liked it." The bell rings, "Oh! I gotta run. Goodbye, Mr Matveev. I''ll see you next time!"'
+					'You stand up. "Rolan. You call me Rolan," he says to you. "See you soon, Miss <<$pcs_lastname>>."'
+					'"Oh sure... Rolan. You can call me <<$pcs_nickname>>."'
+					'"No, that wouldn''t be polite for a man to do to a woman. Goodbye, Miss <<$pcs_lastname>>."'
+					'"Ah, okay. Goodbye Mr Matv... I mean, Rolan!"'
+					act 'Leave ': gt 'gschool_lessons', 'short_break'
+				end
+			end
+		end
+	elseif rolanmeet = 7:
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		rolanmeet += 1
+		'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet25.jpg"></center>'		
+		'"Miss <<$pcs_lastname>>! It''s a pleasure to see you. Having a nice day?"'
+		'"Oh, the same as always. Good morning, Mr... uh, Rolan. It''s a bit odd that I can call you by your first name, but you can''t do the same."'
+		'"I told you, it''s not polite for a man to address a lady in such a way. Besides," he smiles, "calling me ''Rolan'' helps me feel a bit younger."'
+		'You look down at your feet, "Well ''Miss <<$pcs_lastname>>'' makes me feel old..."'
+		'He shakes his head, "Nonsense! Women cannot be old!"'
+		'You giggle, "Oh, well I''ll take it as a compliment then, Rolan!"'
+		'"It''s simply the truth, Miss <<$pcs_lastname>>."'
+		'"Say Rolan... have you had lunch yet? We could eat together?"'
+		act 'Continue':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet26.jpg"></center>'		
+			'"I''m sorry, Miss <<$pcs_lastname>>. Miss Volkov has increased my work duties and I''m afraid I can only eat after I''m done working..." He sounds pretty disappointed.'
+			'"Aww," you return his disappointment. "I was enjoying our lunch talks."'
+			'"As was I, Miss <<$pcs_lastname>>, but unfortunately that is my job. I cannot say no to Miss Volkov." He stares down at his mop.'
+			'"Can''t you do something? Surely, you do enough work for the school already?" You''re almost pleading with him now.'
+			'"No, it''s perfectly legal. Plus, I am getting paid more for the extra work."'
+			'"Oh, well." You think it over. "Maybe I could come by and see you after school?"'
+			'"I don''t know, Miss <<$pcs_lastname>>. A young girl visiting an older man outside of school, people might talk..."'
+			'"What''s wrong with a visit from a friend?"'
+			'"I-I don''t know..." he stammers.'
+			'"Come on... where do you live? I''ll stop by sometime and we could have tea?"'
+			'"Maybe you''re right."'
+			act 'Give him a sheet of paper':
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet27.jpg"></center>'		
+				'"Great! Here, write down your address, Rolan! I''ll come visit you sometime. Just keep some water heated up for our tea!"'
+				'He eyes the paper, "Err, okay, water for the tea. But are you sure about this?"'
+				'"Of course! We are friends and I want to know you better."'
+				'"Sure, we''re friends. I like that! Okay, but..."'
+				'"No buts, Rolan! Now write your address down, I have to get to class!"'
+				'"Oh, uh, right." Rolan writes down his address and hands you the paper. "Here''s where I live. I know it''s not the greatest place..."'
+				'You look over the address. Hey! It''s on the <b>first floor of the apartment complex west of yours</b>!'
+				'"Oh, we live in the same area! Don''t worry, I know how awful the complexes are. I really have to go now, bye bye Rolan!"'
+				act 'Continue':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img src="images/characters/pavlovsk/resident/rolan/school/rolanmeet28.jpg"></center>'		
+					'"Goodbye, Miss <<$pcs_lastname>>! Don''t be late for your class... Bah, water for the tea. Kids today!"'
+					act 'Leave': gt 'gschool_lessons', 'short_break'
+				end
+			end
+		end
+	end
+end
+
 --- gschool_lunch ---------------------------------
 

locations/gschool_socialchg.qsrc

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

locations/gskino.qsrc

@@ -20,7 +20,7 @@ $kinoevent = {
 		'<center><img src="images/locations/pavlovsk/park/theater/sex/kino.mp4"></center>'
 		'You see on the back row a girl sucking a guy, nobody reacts to the loud smacking sound that can be heard by the whole cinema.'
 		'You turn back and watch the rest of the film.'
-		act 'Leave the cinema':gt'gskver'		
+		act 'Leave the cinema':gt 'gskver', 'start'		
 	end
 }
 
@@ -39,7 +39,7 @@ if money >= 100:
 			act 'Reject':
 				cla
 				'You tell him you''d rather watch the film, he mutters something that sounded like bitch and leaves you to watch the rest of the movie in peace.'
-				act 'Leave the cinema':gt 'gskver'
+				act 'Leave the cinema':gt 'gskver', 'start'
 			end
 			
 			exit
@@ -50,11 +50,11 @@ if money >= 100:
 			'You quietly watch the movie, but suddenly behind you there is a strange sound.' & dynamic $kinoevent
 		end
 
-		act 'Leave the cinema':gt 'gskver'
+		act 'Leave the cinema':gt 'gskver', 'start'
 	end
 end
 
-act 'Leave the cinema':minut += 5 & gt 'gskver'
+act 'Leave the cinema':minut += 5 & gt 'gskver', 'start'
 
 --- gskino ---------------------------------
 

locations/gskver.qsrc

@@ -1,180 +1,187 @@
 # gskver
 CLOSE ALL
-if sound = 0:
-	if month >=11 and month <= 12 or month >=1 and month <=3:
-		if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/zima.mp3',30
-		if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
-	else
-		if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street_leto.mp3',30
-		if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
+
+if $ARGS[0] = 'start':
+	cls
+	$metka = 'start'
+	$loc = 'gskver'
+	$location_type = 'public_outdoors'
+	gs 'stat'
+
+	if sound = 0:
+		if month >=11 and month <= 12 or month >=1 and month <=3:
+			if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/zima.mp3',30
+			if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
+		else
+			if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street_leto.mp3',30
+			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
+		end
 	end
-end
-$metka = ''
-$loc = 'gskver'
-$location_type = 'public_outdoors'
-cls
-gs 'stat'
-
-if $clothingworntype = 'nude':pcs_willpwr -= 15 & pcs_mood -= 15 & 'You notice passers-by in the park pointing at you as you walk, and overhear one older lady telling her friend: "Look at her... it''s that <<$pcs_lastname>> girl. Youth these days, they have no shame at all!"'
-
-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>'
-		'The main square of Pavlovsk Park. Spring has come, melting the worst of the snow. The trees are sprouting new leaves.'
-		'There are puddles on the ground everywhere, all remains from the melted snow. A lot of people in the park are having fun with them, trying to jump over them and mocking those that fail. They''re not particularly deep though, and plenty of others just walk through without giving them a second thought.'
-		'The park is not particularly crowded, this time of year. Many people think it''s still too cold to spend much time outdoors.'
-		''
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.spring.night.jpg"></center>'
-		'The main square of Pavlovsk Park. Spring has come, melting the worst of the snow. The trees are sprouting new leaves.'
-		'There is no particular reason to visit the park during the night, and as a result it''s largely deserted. In the distance you see one person running through the park, probably using it as a shortcut to go home faster.'
-		''
+
+	if $clothingworntype = 'nude':pcs_willpwr -= 15 & pcs_mood -= 15 & 'You notice passers-by in the park pointing at you as you walk, and overhear one older lady telling her friend: "Look at her... it''s that <<$pcs_lastname>> girl. Youth these days, they have no shame at all!"'
+
+	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>'
+			'The main square of Pavlovsk Park. Spring has come, melting the worst of the snow. The trees are sprouting new leaves.'
+			'There are puddles on the ground everywhere, all remains from the melted snow. A lot of people in the park are having fun with them, trying to jump over them and mocking those that fail. They''re not particularly deep though, and plenty of others just walk through without giving them a second thought.'
+			'The park is not particularly crowded, this time of year. Many people think it''s still too cold to spend much time outdoors.'
+			''
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.spring.night.jpg"></center>'
+			'The main square of Pavlovsk Park. Spring has come, melting the worst of the snow. The trees are sprouting new leaves.'
+			'There is no particular reason to visit the park during the night, and as a result it''s largely deserted. In the distance you see one person running through the park, probably using it as a shortcut to go home faster.'
+			''
+		end
 	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>'
-		'The main square of Pavlovsk Park. At this time of year, it''s one of the primary places in town that locals and tourists enjoy spending their spare time in. It''s always busy: people are resting, walking, playing and dating to their heart''s desires, enjoying the nice surroundings.'
-		''
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.summer.night.jpg"></center>'
-		'The main square of Pavlovsk Park. At this time of year, it''s one of the places where locals and tourists enjoy going in their spare time.'
-		'However, there is no particular reason to visit the park during the night, and as a result it''s largely deserted. In the distance you see one person running through the park, probably using it as a shortcut to go home faster.'
-		''
+	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>'
+			'The main square of Pavlovsk Park. At this time of year, it''s one of the primary places in town that locals and tourists enjoy spending their spare time in. It''s always busy: people are resting, walking, playing and dating to their heart''s desires, enjoying the nice surroundings.'
+			''
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.summer.night.jpg"></center>'
+			'The main square of Pavlovsk Park. At this time of year, it''s one of the places where locals and tourists enjoy going in their spare time.'
+			'However, there is no particular reason to visit the park during the night, and as a result it''s largely deserted. In the distance you see one person running through the park, probably using it as a shortcut to go home faster.'
+			''
+		end
 	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>'
-		'The main square of Pavlovsk Park. Autumn has come, and some of the trees are already shedding their leaves. The leaves that are still on the trees have changed colour, and are a beautiful mix of red and brown.'
-		'Everywhere in the park, people are enjoying nature. Some are taking photos of the fallen leaves, kids are playing everywhere, and couples are walking hand-in-hand, simply enjoying each other''s company.'
-		''
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.autumn.night.jpg"></center>'
-		'The main square of Pavlovsk Park. Autumn has come, and some of the trees are already shedding their leaves.'
-		'It gets quite cold at night, and you try to stay active to keep yourself warm. The lone soul you see running across the park is probably trying to get home faster, to warm up with some nice cocoa.'
-		''
+	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>'
+			'The main square of Pavlovsk Park. Autumn has come, and some of the trees are already shedding their leaves. The leaves that are still on the trees have changed colour, and are a beautiful mix of red and brown.'
+			'Everywhere in the park, people are enjoying nature. Some are taking photos of the fallen leaves, kids are playing everywhere, and couples are walking hand-in-hand, simply enjoying each other''s company.'
+			''
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.autumn.night.jpg"></center>'
+			'The main square of Pavlovsk Park. Autumn has come, and some of the trees are already shedding their leaves.'
+			'It gets quite cold at night, and you try to stay active to keep yourself warm. The lone soul you see running across the park is probably trying to get home faster, to warm up with some nice cocoa.'
+			''
+		end
 	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>'
-		'The main square of Pavlovsk Park. It''s winter, and the park is quite busy with locals and tourists alike.'
-		'There''s snow everywhere, and kids from the whole town have gathered here to make snowmen and enjoy snowball fights. Some of the adults are joining them, happy to play like kids again for just a moment.'
-		''
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.winter.night.jpg"></center>'
-		'The main square of Pavlovsk Park. It''s winter, and the nights in Pavlovsk are very cold.'
-		'As you expected, the park is mostly deserted at this time of day. You occasionally see a wild animal, scrounging for food.'
-		''
+	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>'
+			'The main square of Pavlovsk Park. It''s winter, and the park is quite busy with locals and tourists alike.'
+			'There''s snow everywhere, and kids from the whole town have gathered here to make snowmen and enjoy snowball fights. Some of the adults are joining them, happy to play like kids again for just a moment.'
+			''
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.winter.night.jpg"></center>'
+			'The main square of Pavlovsk Park. It''s winter, and the nights in Pavlovsk are very cold.'
+			'As you expected, the park is mostly deserted at this time of day. You occasionally see a wild animal, scrounging for food.'
+			''
+		end
 	end
-end
 
-*nl
+	*nl
 
-if hour > 8 and hour < 19:'There''s a small <a href="exec:minut += 5 & gt ''gskino''">movie theater</a> in the park. It only has a single screen.'
-'The newly opened cafe <a href="exec:gt''cafe_parco'',''start''">"Del Parco"</a>, with eye-catching facade, lots of tables and a summer terrace.'
+	if hour > 8 and hour < 19:'There''s a small <a href="exec:minut += 5 & gt ''gskino''">movie theater</a> in the park. It only has a single screen.'
+	'The newly opened cafe <a href="exec:gt''cafe_parco'',''start''">"Del Parco"</a>, with eye-catching facade, lots of tables and a summer terrace.'
 
-if GvstreBoy = 1:'You see <a href="exec:numnpc = SkverBoy & gt ''Gnpc''"><<$nameBoyfrend[SkverBoy]>></a> walking across the main square of Pavlovsk Park. He doesn''t look like he''s going anywhere in particular, and seems to just be enjoying his walk.'
-!!if kotovLoveQW > 0 and hour >= 18 and hour < 20 and week < 6 or week >= 6 and kotovLoveQW > 0 and hour >= 9 and hour < 20:'You see <a href="exec:minut += 3 & gt ''kotovEv''">Vitek Kotov</a> sitting on a bench in the park, drinking beer by himself. Judging from the empty bottles near the bench, he''s already had a few.'
-if StoryLine = 1 and SchoolAtestat = 0:
-	if (sunWeather = 1 and temper > 0) and (hour >= 18 and hour < 20 and week < 6) or (week >= 6 and hour >= 9 and hour < 20):
-		'You see your classmates <a href="exec:minut += 3 & gt ''gopskver''">Vitek, Dan and Vasily</a> sitting on a park bench, drinking beer.'
+	if GvstreBoy = 1:'You see <a href="exec:numnpc = SkverBoy & gt ''Gnpc''"><<$nameBoyfrend[SkverBoy]>></a> walking across the main square of Pavlovsk Park. He doesn''t look like he''s going anywhere in particular, and seems to just be enjoying his walk.'
+	!!if kotovLoveQW > 0 and hour >= 18 and hour < 20 and week < 6 or week >= 6 and kotovLoveQW > 0 and hour >= 9 and hour < 20:'You see <a href="exec:minut += 3 & gt ''kotovEv''">Vitek Kotov</a> sitting on a bench in the park, drinking beer by himself. Judging from the empty bottles near the bench, he''s already had a few.'
+	if StoryLine = 1 and SchoolAtestat = 0:
+		if (sunWeather = 1 and temper > 0) and (hour >= 18 and hour < 20 and week < 6) or (week >= 6 and hour >= 9 and hour < 20):
+			'You see your classmates <a href="exec:minut += 3 & gt ''gopskver''">Vitek, Dan and Vasily</a> sitting on a park bench, drinking beer.'
+		end
 	end
-end
 
-if week <= 5 and hour >= 16 and hour < 20 and strelaQW = -2 and fedorKozlovQW <= -10 and FedorOutcast = 0:
-	'You can see the <a href="exec:gt ''FedorMisc'', ''Outcast Intro''">train tracks</a> from here.'
-elseif week <= 5 and hour >= 16 and hour < 20 and strelaQW = -2 and fedorKozlovQW <= -10 and FedorOutcast = 1:
-	'You can see the train tracks where <a href="exec:gt ''FedorMisc'', ''Outcast''">Fedor</a> spends his time.'
-end
+	if week <= 5 and hour >= 16 and hour < 20 and strelaQW = -2 and fedorKozlovQW <= -10 and FedorOutcast = 0:
+		'You can see the <a href="exec:gt ''FedorMisc'', ''Outcast Intro''">train tracks</a> from here.'
+	elseif week <= 5 and hour >= 16 and hour < 20 and strelaQW = -2 and fedorKozlovQW <= -10 and FedorOutcast = 1:
+		'You can see the train tracks where <a href="exec:gt ''FedorMisc'', ''Outcast''">Fedor</a> spends his time.'
+	end
+
+	if rexPark = 1 and rexParkDay = daystart and hour >= 16 and hour < 18:
+		'You see Rex walking in the park.'
+		act 'Go and see Rex':gt 'reks', 'skver'
+	end
 
-if rexPark = 1 and rexParkDay = daystart and hour >= 16 and hour < 18:
-	'You see Rex walking in the park.'
-	act 'Go and see Rex':gt 'reks', 'skver'
-end
 
-if home_owned[2] = 0 and workPTU <= 2 and HotelRoom < 1:
-	!nowhere to live in town
 	if hour >= 20 or hour < 6 :
-		'It''s quite dark now, and you have no where to stay. Maybe you should try to sleep on a bench?'
+		if home_owned[2] = 0 and workPTU <= 2 and HotelRoom < 1:
+			!nowhere to live in town
+			'It''s quite dark now, and you have no where to stay nearby. Maybe you should try to sleep on a bench?'
+		else
+			'It''s quite dark now, and you don''t feel like walking. Maybe you Should try sleeping on a bench?'
+		end
 		if StoryLine = 1:*P ' Or try your luck, go Uncle Shulgin''s Apartment?'
-		act 'Sleep on a bench': ParkBench = 0 & gt'placer_sex','sleeping_parc_bench'
+		act 'Sleep on a bench': gt'placer_sex','sleeping_park_bench'
 	end
-end
 
-act 'Sit down on the bench': ParkBench = 0 & gt'placer_sex','sleeping_parc_alco'
-
-act 'Go for a walk (0:15)':
-	if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
-	cla
-	*clr
-	minut += 15
-	place = 1
-	Frend_num = 0
-		if MagikDostup ! 1:
-			if rand (1, 4) <= pcs_magik and (hour <=6 or hour >=19):
-				gt 'MagEncounterFairy'
-			end
-		end
-	gt 'placer'
-end
+	act 'Sit down on the bench': gt'placer_sex','sitting_park_bench'
 
-if hour >= 8 and hour < 22:
-	act 'Distribute flyers to earn money (50 <b>₽</b>) (1:00)':
+	act 'Go for a walk (0:15)':
+		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
 		cla
 		*clr
-		minut += 60
-		money += 50
-		pcs_mood -= 5
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/shared/park/flaer.jpg"></center>'
-		'You spend an hour handing out flyers to park visitors, advertising something or another. You get paid 50 <b>₽</b> for your efforts.'
-
-		act 'Continue':gt 'gskver'
+		minut += 15
+		place = 1
+		Frend_num = 0
+			if MagikDostup ! 1:
+				if rand (1, 4) <= pcs_magik and (hour <=6 or hour >=19):
+					gt 'MagEncounterFairy'
+				end
+			end
+		gt 'placer'
+	end
+
+	if hour >= 8 and hour < 22:
+		act 'Distribute flyers to earn money (50 <b>₽</b>) (1:00)':
+			cla
+			*clr
+			minut += 60
+			money += 50
+			pcs_mood -= 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/shared/park/flaer.jpg"></center>'
+			'You spend an hour handing out flyers to park visitors, advertising something or another. You get paid 50 <b>₽</b> for your efforts.'
+
+			act 'Continue':gt 'gskver', 'start'
+		end
 	end
-end
 
-gs 'parkivent', 'run'
+	gs 'parkivent', 'run'
 
-! meynold`s events
-if mey_vika['mey_vika_qw'] > 0 and mey_vika['mey_vika_qw'] < 27 and mey_vika['qw_day'] ! daystart:
-	!disable after can access home
-	act 'Look for Vika': 
-		gs 'mey_vika_events', 'park_meet'
-		gs 'stat'
-		if mey_vika['qw_day'] = daystart: delact 'Looking for Vika'
+	! meynold`s events
+	if mey_vika['mey_vika_qw'] > 0 and mey_vika['mey_vika_qw'] < 27 and mey_vika['qw_day'] ! daystart:
+		!disable after can access home
+		act 'Look for Vika': 
+			gs 'mey_vika_events', 'park_meet'
+			gs 'stat'
+			if mey_vika['qw_day'] = daystart: delact 'Looking for Vika'
+		end
 	end
-end
 
-if pcs_inhib >= 35:
-	act 'Flash your tits':
-		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
-		cls
-		gs 'exhibitionism', 1
-		gs 'flash', 'tits', 'outdoors', 5
-		gs 'stat'
+	if pcs_inhib >= 35:
+		act 'Flash your tits':
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			cls
+			gs 'exhibitionism', 1
+			gs 'flash', 'tits', 'outdoors', 5
+			gs 'stat'
 
-		act 'Continue': gt 'gskver'
+			act 'Continue': gt 'gskver', 'start'
+		end
 	end
-end
 
-gs 'kseniyaQW', 'events'
+	gs 'kseniyaQW', 'events'
 
-if exhibitionist_lvl > 1:
-	act 'Flash your pussy':
-		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
-		cls
-		gs 'exhibitionism', 3
-		gs 'flash', 'pussy', 'outdoors', 5
-		gs 'stat'
+	if exhibitionist_lvl > 1:
+		act 'Flash your pussy':
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			cls
+			gs 'exhibitionism', 3
+			gs 'flash', 'pussy', 'outdoors', 5
+			gs 'stat'
 
-		act 'Continue': gt 'gskver'
+			act 'Continue': gt 'gskver', 'start'
+		end
 	end
-end
 
-act 'Go to the residential area':minut += 5 & gt 'pavResidential'
-act 'Go to the high street':minut += 5 & gt 'pavCommercial'
+	act 'Go to the residential area':minut += 5 & gt 'pavResidential'
+	act 'Go to the high street':minut += 5 & gt 'pavCommercial'
+end
 
 --- gskver ---------------------------------
 

locations/husb.qsrc

@@ -1,22 +1,31 @@
 # husb
 
-CLOSE ALL
-!! {location do not delete!}
-	if $loc = 'korr':$husb_action = ''
-	if $loc = 'bedr':
-		if hour > 22 or hour < 7: $husb_loc = 'Your husband <<$husName>> is lying in bed eyes open. "What do you want? It is late, go to sleep."'
-	end
-	if $loc = 'sitr':
-		if hour > 7 and hour < 17 and week >= 6: $husb_loc = 'Sitting on the couch is <a href="exec: gt''husb'',''start'' "><<$husName[1]>></a> watching TV.'
-		if hour > 17 and hour <= 22: $husb_loc = 'Sitting on the couch is <a href="exec: gt''husb'',''start'' "><<$husName[1]>></a> watching TV.'
+if $ARGS[0] = 'start':
+	CLOSE ALL
+	cls
+	cla
+	gs'stat'
+	'<center><B><font color = maroon><<$husName>></font></B></center>'
+	'<center><img <<$set_imgh>> src="images/characters/shared/<<HusbPic>>.jpg"></center>'
+	gs 'husb', 'husb_discription'
+	gs 'husb', 'husb_action'
+
+	if $clothingworntype = 'nude':
+		if $braworntype = 'none' and $pantyworntype = 'none':
+			'Your husband, seeing you naked, says - "You are very beautiful."'
+		else
+			'Your husband smiles, "It''s always nice to see you in your underwear honey."'
+		end
 	end
-	if $loc = 'vanr':$husb_loc = ''
-	if $loc = 'kuhr':
-		if hour = 17 or hour = 7: $husb_loc = '<<$husName>> is sitting at the kitchen table.'
+
+	act '<B>Move away</B>':gt $loc, $metka
+
+	if husbandsexday < 4:
+		act 'Sex with your husband':gt'husbsex','room'
 	end
-	'<<$husb_loc>>'
-!! {end}
-$d_husb_discription = {
+end
+
+if $ARGS[0] = 'husb_discription':
 	if birthyear < husb_birth_year:
 		age_diff = husbAge - age
 		$h_age = '<<$husName>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. He is <<age_diff>> years older than you.'
@@ -33,9 +42,9 @@ $d_husb_discription = {
 	if husband>=60 and husband<80:'You have a good relationship with your husband.'
 	if husband>=80:'You have a great relationship with your husband.'
 	''
-}
+end
 
-$d_husb_action = {
+if $ARGS[0] = 'husb_action':
 	if $loc = 'korr':$husb_action = ''
 	if $loc = 'bedr':
 		if hour > 22 or hour < 7: $husb_action = 'Your husband <<$husName>> is lying in bed, eyes open. "What do you want? It is late, go to sleep."'
@@ -49,26 +58,7 @@ $d_husb_action = {
 		if hour = 17 or hour = 7:$husb_action = '<<$husName>> is sitting at the kitchen table.'
 	end
 	'<<$husb_action>>'
-}
-
-if $ARGS[0] = 'start':
-	cls
-	cla
-	gs'stat'
-	'<center><B><font color = maroon><<$husName>></font></B></center>'
-	'<center><img <<$set_imgh>> src="images/characters/shared/<<HusbPic>>.jpg"></center>'
-	dynamic $d_husb_discription
-	dynamic $d_husb_action
-
-	if nude = 1:'Your husband, seeing you naked, says - "You are very beautiful."'
-
-	act '<B>Move away</B>':gt $loc, $metka
-
-	if husbandsexday < 4:
-		act 'Sex with your husband':gt'husbsex','room'
-	end
 end
 
-
 --- husb ---------------------------------
 

locations/island.qsrc

@@ -39,18 +39,8 @@ if student > 0:act '<b>GO HOME</b> (University dorm)':gt 'dorm', 'start'
 
 if car > 0 and cardrive = 25:'In the parking stands your <a href="exec:GS ''carF'', ''start''"><<$car>></a>.'
 
-act 'Wait':
-	cla
-	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
 
-	if waiting <= 0 or waiting > 120:
-		minut += 15
-	elseif waiting > 0 and waiting <= 120:
-		minut += waiting
-	end
-
-	act 'Take a look at the clock':gt curloc
-end
+act 'Wait':gs 'obj_din', 'wait'
 
 gs 'taxi'
 

locations/kafe2.qsrc

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

locations/kid.qsrc

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

locations/krupo.qsrc

@@ -26,31 +26,33 @@ end
 
 if pcs_sewng >= 40:
 	if tkanfirst = 0:
-		'The teacher tells you that you will need to bring in fabric for further studies, you can buy some in the hardware department at the supermarket.'
+		minut += 60
+		sewng_exp += rand(pcs_intel/20, pcs_intel/10)
+		'She has some spare fabric for you as it''s the first time you need some, but she tells you to bring some next time.'
+		msg 'The teacher tells you that you will need to bring in fabric for further studies, you can buy some in the hardware department at the supermarket.'
 		tkanfirst = 1
 	elseif tkan <= 0:
-		'The teacher reminds you, that in order to further improve your skills, you need to buy some fabric to work with.'
-		if tkanfirst = 1:
-			tkanfirst = 2
-			tkan = 1
-			'She has some spare fabric and gives it to you as it''s the first time you have forgotten, but she reminds you to bring some next time.'
-		end
+		msg 'The teacher reminds you, that in order to further improve your skills, you need to buy some fabric to work with.'
+		'You can''t do your lesson without fabric so there is nothing you can do here now.'
 	else
 		minut += 60
 		tkan -= 1
 		sewng_exp += rand(pcs_intel/20, pcs_intel/10)
 		'For an hour you learn more advanced techniques and practice cutting and sewing the fabric you purchased.'
-	end
-end
 
-if pcs_sewng >= 60 and poTalk = 0:
-	poTalk=1
-	'With a satisfied smile your teacher tells you, "Well done, now you can alter clothes to fit your size perfectly! However, this does not mean that any further studies would be useless. With further lessons I feel that I can teach you how to embroider splendid tapestries, which would be highly sought after, although very laborious to make."'
-end
+		if pcs_sewng >= 60 and poTalk = 0:
+			poTalk = 1
+			*nl
+			'With a satisfied smile your teacher tells you, "Well done, now you can alter clothes to fit your size perfectly! However, this does not mean that any further studies would be useless. With further lessons I feel that I can teach you how to embroider splendid tapestries, which would be highly sought after, although very laborious to make."'
+		end
 
-if pcs_sewng >= 80 and poTalk = 1:
-	'The teacher nods quietly and says, "You have mastered simple tapestries. It''s not without flaws, but good enough to be able to sell them and as your skills continue to grow, the quality will improve as well."'
+		if pcs_sewng >= 80 and poTalk = 1:
+			*nl
+			'The teacher nods quietly and says, "You have mastered simple tapestries. It''s not without flaws, but good enough to be able to sell them and as your skills continue to grow, the quality will improve as well."'
+		end
+	end
 end
+
 *nl
 'Your sewing skill is now <<pcs_sewng>>.'
 *nl

locations/lact_lib.qsrc

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

locations/liam.qsrc

@@ -42,39 +42,29 @@ end
 'Close by is a narrow street leading to a <a href="exec:GT ''dvor'',''start''">vacant house</a>.'
 'You see a <a href="exec:GT ''ugol'',''start''">passage</a> between the houses lead to a courtyard.'
 if car > 0 and cardrive = 14:
-    'I parked at the curb <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
+	'I parked at the curb <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
 end
 
 if hour >= 13 and hour <= 15 and bodimodel = 1 and arts = 0 and tusa = 1:
-    if RAND(1,100) >= 90:
+	if RAND(1,100) >= 90:
 		cls
 		minut += 5
 		gs'stat'
 		gs'dibodi'
-		
+
 		'<center><img <<$set_imgh>> src="images/characters/oldtown/marinka/marinka.jpg"></center>'
-        'Suddenly you notice a girlfriend from the local hangouts Marinka, I am standing at the door.'
-        
-        act 'Ask':gt 'dibodi', 'sptusa'
-    end
+		'Suddenly you notice a girlfriend from the local hangouts Marinka, I am standing at the door.'
+
+		act 'Ask':gt 'dibodi', 'sptusa'
+	end
 end
 
 if arts = 1:'Apartment <a href="exec:GT ''Marin'',''start''">Marina</a>'
 
 act 'Walk to the St Petersburg to Pavlovsk road (5 min)':minut += 5 & nroad = 15 & gt'road'
 
-act '<font size = 1>Wait</font>':
-	cla
-	waiting = input ("How many minutes to wait? (Not more 120 minutes)")
-		if waiting <= 0 or waiting > 120:
-			minut += 15
-		end
-		if waiting > 0 and waiting <= 120:
-			minut += waiting
-		end
-	act 'Consult a watch':gt 'liam'
-end
-	
+act 'Wait':gs 'obj_din', 'wait'
+
 act 'Walk 1 h':
 	cla
 	minut += 60

locations/liames.qsrc

@@ -29,25 +29,14 @@ if hour >= 10 and hour <= 22: 'A <a href="exec:GT ''liamelkafe'',''start''">tiny
 if hour >= 8 and hour <= 17 and exhibitionQW > 3:'The <a href="exec:GT ''exhibitionistshop'',''start''">exhibitionist shop</a> is just down a small side street from here.'
 
 if home_owned[4] = 1:
-    act '<b>Go home</b>':gt'korr2x'
+	act '<b>Go home</b>':gt'korr2x'
 end
 
 if hour >= 8 and hour <= 17 and exhibitionQW = 3:
 	act 'Search for the shop on the card from Kseniya': gt 'exhibitionistshop', 'start'
 end
 
-act 'Kill some time looking at the shops':
-	cla
-	waiting = input ("How many minutes do you wish to spend looking around the shops? (Not more 120 minutes)")
-
-	if waiting <= 0 or waiting > 120:
-		minut = minut + 15
-	elseif waiting > 0 and waiting <= 120:
-		minut = minut + waiting
-	end
-
-	act 'Consult a watch':gt curloc
-end
+act 'wait':gs 'obj_din', 'wait'
 
 if home_owned[4] = 1 and hour = meethour:
 	if svidanie[0] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 0 & GT ''lover_meet'',''start''"><<$loverdesc[0]>></a></b>'
@@ -73,7 +62,7 @@ if streetrand >= 60 and pcs_lover < 3:
 	end
 end
 
-if stallionQ = 3: 
+if stallionQ = 3:
 	*clr
 	cla
 	'There is a rumbling in your stomach, you need to use the restroom. Luckily there appears to be a public restroom tucked into the corner of a building. Unluckily, the female one has a sign saying it is out of order.'
@@ -97,22 +86,22 @@ temp = RAND(1,100)
 
 
 if hour >= 15 and hour <= 22 and tusa = 0:
-    act'Local Hangout':
+	act'Local Hangout':
 		cls
 		gs'stat'
 		gs'dibodi'
 		minut += 20
 		tusa = 1
 		'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
-		'Local youth get-together.'    
+		'Local youth get-together.'
 		act 'Discovering':gt 'dibodi', 'sgtusa'
-    end    
+	end
 end
 
 
 
 if hour >= 15 and hour <= 22 and tusa = 1 and tusnyakday ! daystart:
-    act'Local Hangout':
+	act'Local Hangout':
 		cls
 		gs'stat'
 		gs'dibodi'
@@ -120,25 +109,25 @@ if hour >= 15 and hour <= 22 and tusa = 1 and tusnyakday ! daystart:
 		'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
 		'You came to talking to girls and boys and greeted you.'
 		'In response you too greeted them.'
-		
+
 		if $pantyworntype = 'none' and sttan = 0:
 			'- A <<$pcs_nickname>> campaign wears panties - said one of the boys.'
 			act 'And she trusted you with this?':gt 'dibodi', 'sotusa'
 		end
-    
+
 !!		if sttan = 1 and $pantyworntype = 'none':
 !!			'- <<$pcs_nickname>>, and again without panties, - said one of the boys - Pussy pokezh?'
 !!			'- And yet to show? - you said - How do I want and go.'
 !!			act 'Further':gt'etoexhib','pos2'
 !!		end
-		
+
 !!		if sttan = 1 and $pantyworntype ! 'none':
 !!			'- Vav <<$pcs_nickname>> truselya put.'
 !!			act 'Answer':gt'etoexhib','pos3'
 !!		end
 
 		act'Escape':gt 'liames'
-    end
+	end
 end
 
 --- liames ---------------------------------

locations/lover_change.qsrc

@@ -473,7 +473,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
 						end
 					elseif randchan = 1 and tatass = 0:
-						randchan = rand(1, 24)
+						randchan = rand(1, 25)
 						!!randchan = 21
 						if tatass = 0 and tattCount < tattPrefTmpMin:
 							tatass = randchan
@@ -482,7 +482,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
 						end
 					elseif randchan = 2 and tatback = 0:
-						randchan = rand(1, 56)
+						randchan = rand(1, 61)
 						!!randchan = 2
 						if tatback = 0 and tattCount < tattPrefTmpMin:
 							tatback = randchan
@@ -502,7 +502,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
 						end
 					elseif randchan = 4 and tatbrst = 0:
-						randchan = rand(1, 10)
+						randchan = rand(1, 11)
 						!!randchan = 8
 						if tatbrst = 0 and tattCount < tattPrefTmpMin:
 							tatbrst = randchan
@@ -538,7 +538,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
 						end
 					elseif randchan = 8 and tatleg = 0:
-						randchan = rand(1, 37)
+						randchan = rand(1, 47)
 						!!randchan = 2
 						if tatleg = 0 and tattCount < tattPrefTmpMin:
 							tatleg = randchan
@@ -565,7 +565,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
 						end
 					elseif randchan = 11 and tatvag = 0:
-						randchan = rand(1, 47)
+						randchan = rand(1, 53)
 						!!randchan = 6
 						if tatvag = 0 and tattCount < tattPrefTmpMin:
 							tatvag = randchan

locations/mey_home.qsrc

@@ -368,18 +368,7 @@ if $ARGS[0] = '3':
 		end
 	end
 
-	act 'Wait':
-		cla
-		waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-		if waiting <= 0 or waiting > 120:
-			minut += 15
-		elseif waiting > 0 and waiting <= 120:
-			minut += waiting
-		end
-
-		act 'Take a look at the clock':gt 'mey_home', '3'
-	end
+	act 'Wait':gs 'obj_din', 'wait'
 
 	if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
 end

locations/mey_vika_events.qsrc

@@ -384,12 +384,12 @@ if $args[0] = 'near_school':
 					'<font color="maroon"><i>"As far as I know they go for a walk in the park. Though they walk on the off-beat tracks attempting to stay hidden, away from all the privy eyes."</i></font> Katja continues...'
 
 					mey_vika['mey_vika_qw'] = 1
-					act 'Go to the Park': gt 'gskver'
+					act 'Go to the Park': gt 'gskver', 'start'
 				else
 					'<font color="maroon"><i>"I don''t really know what the two of them are doing."</i></font> Kate answers shortly and starts walking away, not wanting to keep the conversation going.'
 					
 					mey_vika['mey_vika_qw'] = 2
-					act 'Stalk them': minut += rand(5,15) & gt 'gskver'
+					act 'Stalk them': minut += rand(5,15) & gt 'gskver', 'start'
 				end
 			else
 				if mey_vika['mey_vika_qw'] >= 18 and mey_vika['mey_vika_qw'] < 20 and mey_vika['qw_day'] ! daystart:

locations/nyp_school.qsrc

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

locations/obj_din.qsrc

@@ -1994,5 +1994,40 @@ if $ARGS[0] = 'autosave':
 	end
 	gs'stat'
 end
+
+if $ARGS[0] = 'wait':
+	cla
+	waiting = input ("How long would you like to wait?<br>(Default 15 minutes, maximum 120 minutes)")
+
+	if waiting = '':
+		minut += 15
+	elseif waiting > 0 and waiting <= 120:
+		minut += waiting
+	elseif waiting <= 0 or waiting > 120:
+		'Invalid time.'
+	end
+	gs 'stat'
+	gt $loc, $metka
+end
+
+if $ARGS[0] = 'rest':
+	cla
+	waiting = input ("How long would you like to rest?<br>(Default 15 minutes, maximum 120 minutes)")
+
+	if waiting = '':
+		minut += 15
+	elseif waiting > 0 and waiting <= 120:
+		minut += waiting
+		pcs_mood += 10
+		pcs_willpwr += 10
+		if pcs_sleep < 90 and waiting >= 60:
+			pcs_sleep += 10
+		end
+	elseif waiting <= 0 or waiting > 120:
+		'Invalid time.'
+	end
+	gs 'stat'
+	gt $loc, $metka
+end
 --- obj_din ---------------------------------
 

locations/park.qsrc

@@ -15,7 +15,7 @@ if $ARGS[0] = 'start':
 			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
 		end
 	end
-	
+
 
 	$torchki = {
 		cls
@@ -27,7 +27,7 @@ if $ARGS[0] = 'start':
 	}
 
 	$sexloc = $CURLOC
-	
+
 	if WalkInsidePark = 0:WalkInsidePark = 1
 	cls
 	gs 'stat'
@@ -62,7 +62,7 @@ if $ARGS[0] = 'start':
 			pcs_mood -= 5
 			SUB += 1
 			pcs_horny += SUB
-			
+
 			'A man walks past you and notices that you didn''t put on any panties. He whistles at you, "Did you forget to put on your underwear today, honey?"'
 			*nl
 			if pcs_inhib >= 35:
@@ -81,20 +81,22 @@ if $ARGS[0] = 'start':
 	act 'Leave': gt 'park', 'exit'
 
 	act 'Walk around the park (1:00)': gt 'parkdin'
-	
-	if hour >= 10 and hour <= 22 and money >= 100:
+
+	if hour >= 10 and hour <= 22:
 		act 'Have some food in the cafe': minut += 5 & gt 'ParkKafe', 'start'
 	end
 
-	if home_owned[1] = 0 and tanwork = 0 and student = 0:
-		!nowhere to live in city
-		if hour >= 20 or hour < 6 :
-			'It''s quite dark now, and you have no where to stay. Maybe you should try to sleep on a bench?'
-			act 'Sleep on a bench': ParkBench = 1 & gt'placer_sex','sleeping_parc_bench'
+	if hour >= 20 or hour < 6 :
+		if home_owned[1] = 0 and tanwork = 0 and student = 0:
+			!nowhere to live in city
+			'It''s quite dark now, and you have no where to stay nearby. Maybe you should try to sleep on a bench?'
+		else
+			'It''s quite dark now, and you don''t feel like walking. Maybe you Should try to sleep on a bench?'
 		end
-	end	
+		act 'Sleep on a bench': gt'placer_sex','sleeping_park_bench'
+	end
 
-	act 'Sit on a bench': ParkBench = 1 & gt'placer_sex','sleeping_parc_alco'
+	act 'Sit on a bench': gt'placer_sex','sitting_park_bench'
 
 	if pusher = 1 and hour >= 6 and hour <= 21:
 		'There''s a drug dealer casually sitting on one of the benches. He''s trying not to be too suspicious.'
@@ -531,7 +533,7 @@ if $ARGS[0] = 'prost':
 		gs 'boyStat', $npclastgenerated
 		act 'Fuck you!':
 			cla
-			minut += 15		
+			minut += 15
 			!!stats
 			strenV = 20
 			speedV = 30

locations/parkBimbo.qsrc

@@ -9,7 +9,7 @@ if $ARGS[0] = 'pos1':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/parkbimbo1.jpg"></center>'
 	'You notice a old guy, who has to be in his sixties watching you. Then you notice he has his rather large dick out and he has a raging hard on.'
 	if pcs_horny > 50:act 'Help the old guy out.':gt 'parkBimbo', 'pos2'
-	act 'Flip him the bird':gt 'gskver'
+	act 'Flip him the bird':gt 'gskver', 'start'
 end
 
 if $ARGS[0] = 'pos2':
@@ -40,7 +40,7 @@ if $ARGS[0] = 'pos2':
 
 	act 'finish':
 		gs 'arousal', 'end'
-		gt 'gskver'
+		gt 'gskver', 'start'
 	end
 end
 

locations/parkM.qsrc

@@ -162,7 +162,7 @@ gs 'cum_manage'
 	gs 'stat'
 	act 'Leave':
 		if curr_home = 1:
-			gt 'gskver'
+			gt 'gskver', 'start'
 		else
 			gt 'park', 'start'
 		end
@@ -182,7 +182,7 @@ if $ARGS[0] = 'sexrand4':
 	gs 'stat'
 	act 'Leave':
 		if curr_home = 1:
-			gt 'gskver'
+			gt 'gskver', 'start'
 		else
 			gt 'park', 'start'
 		end

locations/parks.qsrc

@@ -32,31 +32,18 @@ if $ARGS[0] = 'start':
 
 	gs 'parkivent', 'run'
 
-	if month = 5 or month = 6 or month = 7 or month = 8 or month = 9:
-		if hour > 6 and hour < 23:
-			act 'Rest on the bench':
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/locations/shared/park/bench_6.jpg"></center>'
-
-				waiting = input ("How many minutes of sitting? (Not more 120 minutes)")
-
-				if waiting > 120:
-					minut = minut + 15
-				elseif waiting > 0:
-					minut = minut + waiting
-					pcs_mood += 10
-					pcs_willpwr = pcs_willpwr + 10
-					if pcs_sleep < 90:pcs_sleep += 10
-				else
-					'Invalid time.'
-				end
-
-				act 'Consult a watch': gt 'parks', 'start'
-			end
-		end	
+	if hour >= 20 or hour < 6 :
+		if home_owned[4] = 0:
+			!nowhere to live in town
+			'It''s quite dark now, and you have no where to stay nearby. Maybe you should try to sleep on a bench?'
+		else
+			'It''s quite dark now, and you don''t feel like walking. Maybe you should try sleeping on a bench?'
+		end
+		act 'Sleep on a bench': gt'placer_sex','sleeping_park_bench'
 	end
 
+	act 'Sit down on the bench':gs 'placer_sex', 'sitting_park_bench'
+
 	if pcs_inhib >= 35:
 		act 'Flash your tits':
 			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'

locations/pavCommercial.qsrc

@@ -1,5 +1,5 @@
 # pavCommercial
- 
+
 !{Change log
 25 March 2016
 Fixed diplaced period after church link
@@ -100,7 +100,7 @@ else
 end
 
 'You are on the high street, at one end is the <a href="exec:minut += 15 & gt ''vokzalG''">train station</a> and access to the highway. Near the highway you can also find a <a href="exec:minut += 5 & gt ''zaprF'', ''start''">gas station</a>.'
-'The nearby residential area is next to the lake and the town surrounds the old palace grounds which are now a large <a href="exec:minut += 5 & gt ''gskver'', ''park''">public park</a>.'
+'The nearby residential area is next to the lake and the town surrounds the old palace grounds which are now a large <a href="exec:minut += 5 & gt ''gskver'', ''start''">public park</a>.'
 'There is a small <a href="exec:minut += 5 & gt ''gpoli''">clinic</a><<$Pharmname>>'
 
 if leonidSlave = 1:
@@ -124,18 +124,7 @@ act 'Go to the residential area':minut += 5 & gt 'pavResidential'
 
 act 'Walk to the city highway':minut += 15 & nroad = 20 & gt 'road'
 
-act 'Wait':
-	cla
-	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-	if waiting <= 0 or waiting > 120:
-		minut += 15
-	elseif waiting > 0 and waiting <= 120:
-		minut += waiting
-	end
-
-	act 'Check the time':gt $curloc
-end
+act 'Wait':gs 'obj_din', 'wait'
 
 if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
 
@@ -143,20 +132,20 @@ if npc_QW['A113'] = 1 and daybelisex ! daystart and hour >= 9 and hour <= 23 and
 	cla & *clr
 	daybelisex = daystart
 	minut += 5
-	
+
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belyjeep.jpg"></center>'
 	'As you walk through Pavlovsk, Vadim Belys Mitsubishi Pajero stops near you.'
 
-	act 'Go to the jeep': gt 'belgang', 'payday', 'commercial' 	
+	act 'Go to the jeep': gt 'belgang', 'payday', 'commercial'
 elseif npc_QW['A113'] = 1 and daybelisex ! daystart and hour >= 9 and hour <= 23 and week ! 7 and belgangPayWeek >= 300 and belgangProstitute = 1 and rand (0,2) = 0:
 	cla & *clr
 	daybelisex = daystart
 	minut += 5
-	
+
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belyjeep.jpg"></center>'
 	'You see the by now familiar old Mitsubishi Pajero driving through the streets with Vadim Bely and his gang. Your heart skips a beat as you notice one of them pointing at you, and soon they pull over.'
-		
-	act 'Go to the jeep': gt 'belgang', 'workofdebt', 'commercial' 	
+
+	act 'Go to the jeep': gt 'belgang', 'workofdebt', 'commercial'
 end
 
 --- pavCommercial ---------------------------------

locations/pavComplex.qsrc

@@ -115,6 +115,22 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'courtyard':
+	music_loop = 0
+	CLOSE ALL
+	$metka = 'start'
+	$loc = 'pavComplex'
+	$metkaStreet = 'start'
+	$locStreet = 'pavComplex'
+	$location_type = 'public_outdoors'
+	if sound = 0:
+		if month >=11 and month <= 12 or month >=1 and month <=3:
+			if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/zima.mp3',30
+			if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
+		else
+			if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street_leto.mp3',30
+			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
+		end
+	end
 	*clr
 	cla
 	gs 'stat'
@@ -133,12 +149,9 @@ if $ARGS[0] = 'courtyard':
 		end
 	end
 	'The courtyard is between the three apartment buildings and the communal buildings, storage buildings, and garages along the back alley. The courtyard looks more like a small unkept park than anything, there is a few benches and tables scattered about for the residents of the complex to use and a small children''s playground, near the edge of the courtyard, closest to the communal and storage buildings near the garages.'
-!!	if StoryLine = 1:
-!!		'Few step away from the coutyard''s games there''s <a href="exec:minut += 5 & gt ''pavcomplexrolan''">Rolan''s favorite bench</a> where he usually sit.'		
-!!	end
-	if home_owned[2] = 1: act '<b>Go Home</b> (Parents'' Apartment)': minut += 5 & GT 'korrPar'
+	if home_owned[2] = 1: act '<b>GO HOME</b> (Parents'' Apartment)': minut += 5 & GT 'korrPar'
 	act 'Return to the residential street':minut += 1 & gt 'pavResidential'
-	act 'Go to the Southern apartment building':minut += 3 & gt 'pod_ezd', 'etaj_1'
+	act 'Go to your apartment building':minut += 3 & gt 'pod_ezd', 'etaj_1'
 	act 'Go to the Eastern apartment building':
 		minut += 3
 		if anushkaFirstvisit = 0 and npc_rel['A144'] > 50:
@@ -148,7 +161,7 @@ if $ARGS[0] = 'courtyard':
 		end
 	end
 	act 'Go to the Western apartment building':minut += 3 & gt 'pavComplexb3', 'etaj_1'
-	act 'Go to the apartment garages':minut += 1 & gt 'pavComplex', 'garages'
+	act 'Go to the garages':minut += 1 & gt 'pavComplex', 'garages'
 end
 
 if $ARGS[0] = 'garages':

locations/pavComplexb2.qsrc

@@ -57,6 +57,10 @@ if $ARGS[0] = 'etaj_1':
 	act '<font color = maroon><b>Go outside</b></font>': gt 'pavcomplex', 'start'
 	act 'Go up to the second floor': CLOSE ALL & gt 'pavComplexb2','etaj_2'
 	act 'Take the elevator': CLOSE ALL & gt 'pavComplexb2','lift','etaj_1'
+	act 'Go to the residential street':minut += 1 & gt 'pavResidential'
+	act 'Go to the apartment courtyard':minut += 3 & gt 'pavComplex', 'courtyard'
+	act 'Go to the apartment garages':minut += 3 & gt 'pavComplex', 'garages'
+
 end
 
 !floor 2

locations/pavComplexb3.qsrc

@@ -59,6 +59,9 @@ if $ARGS[0] = 'etaj_1':
 !!	end
 	act 'Go up to the second floor': CLOSE ALL & gt 'pavComplexb3','etaj_2'
 	act 'Take the elevator': CLOSE ALL & gt 'pavComplexb3','lift','etaj_1'
+	act 'Go to the residential street':minut += 1 & gt 'pavResidential'
+	act 'Go to the apartment courtyard':minut += 3 & gt 'pavComplex', 'courtyard'
+	act 'Go to the apartment garages':minut += 3 & gt 'pavComplex', 'garages'
 end
 
 !floor 2

locations/pavResidential.qsrc

@@ -147,7 +147,7 @@ else
 	'.'
 end
 
-'The town surrounds the old palace grounds which are now a large <a href="exec:minut += 5 & gt ''gskver'', ''park''">public park</a>, close to the residential area is the <a href="exec:gt ''glake''">lake</a>.'
+'The town surrounds the old palace grounds which are now a large <a href="exec:minut += 5 & gt ''gskver'', ''start''">public park</a>, close to the residential area is the <a href="exec:gt ''glake''">lake</a>.'
 
 'The town square features a <a href="exec: minut += 2 & gt ''gdk''">community center</a><<$schoolname>>'
 
@@ -185,18 +185,7 @@ act 'Go to the high street':minut += 5 & gt 'pavCommercial'
 if home_owned[2] = 1: act '<b>GO HOME</b> (Parents'' Apartment)': minut += 4 & GT 'korrPar'
 if pavSharedAptEnabled = 1:act '<b>GO HOME</b> (Shared Apartment)': minut += 5 & GT 'pavSharedApt', 'start'
 
-act 'Wait':
-	cla
-	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-	if waiting <= 0 or waiting > 120:
-		minut += 15
-	elseif waiting > 0 and waiting <= 120:
-		minut += waiting
-	end
-
-	act 'Check the time':gt 'pavResidential'
-end
+act 'Wait':gs 'obj_din', 'wait'
 
 if (hour > 20 or hour < 4) and succubusQW = 5 and suchuntday ! daystart:
 	act 'Go hunting near the community center (this can take a lot of time)':
@@ -230,6 +219,20 @@ if (hour > 20 or hour < 4) and succubusQW = 5 and suchuntday ! daystart:
 	end
 end
 
+act 'Go to the Southern apartment building':minut += 3 & gt 'pod_ezd', 'etaj_1'
+act 'Go to the Eastern apartment building':
+	minut += 3
+	if anushkaFirstvisit = 0 and npc_rel['A144'] > 50:
+		gt 'pavComplexb2', 'anushkaFirst'
+	else
+		gt 'pavComplexb2', 'etaj_1'
+	end
+end
+act 'Go to the Western apartment building':minut += 3 & gt 'pavComplexb3', 'etaj_1'
+act 'Go to the apartment courtyard':minut += 3 & gt 'pavComplex', 'courtyard'
+act 'Go to the apartment garages':minut += 3 & gt 'pavComplex', 'garages'
+
+
 if StoryLine ! 0 and (hour >= 8 or hour < 23) and cumloc[11] = 1 and rand(0, 3) = 0 and sosedday ! daystart:
 	cls
 	sosedday = daystart

locations/pavShared_gp.qsrc

@@ -315,7 +315,11 @@ if $ARGS[0] = 'gpHandjob':
 	
 	!slow strokes
 	elseif step = 1:
-		orgB += rand(0, 10) / gp_mood
+		if gp_mood = 0:
+			orgB += rand(0, 10)
+		else
+			orgB += rand(0, 10) / gp_mood
+		end
 		'<center><video autoplay loop src="images/shared/sex/handjob/HandJob2.mp4"></video></center>'
 		''
 		'You grab <<$gp_name>>''s cock in your hand, jerking it slowly, changing the pressure from time to time.'

locations/pirsingsalon.qsrc

@@ -650,7 +650,7 @@ if $ARGS[0] = 'ass':
 		:looptatass
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''ass_get''"><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 24:jump 'looptatass'
+		if n <= 25:jump 'looptatass'
 		*nl
 
 	else
@@ -692,7 +692,7 @@ if $ARGS[0] = 'back':
 		:looptatback
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''back_get''"><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 56:jump 'looptatback'
+		if n <= 61:jump 'looptatback'
 		*nl
 
 	else
@@ -776,7 +776,7 @@ if $ARGS[0] = 'breast':
 		:looptatbreast
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''breast_get''"><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 10:jump 'looptatbreast'
+		if n <= 11:jump 'looptatbreast'
 		*nl
 
 	else
@@ -944,7 +944,7 @@ if $ARGS[0] = 'leg':
 		:looptatleg
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''leg_get''"><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 37:jump 'looptatleg'
+		if n <= 47:jump 'looptatleg'
 		*nl
 
 	else
@@ -1070,7 +1070,7 @@ if $ARGS[0] = 'pubic':
 		:looptatvag
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''vag_get''"><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 47:jump 'looptatvag'
+		if n <= 53:jump 'looptatvag'
 		*nl
 
 	else

locations/placer_act.qsrc

@@ -48,7 +48,7 @@ if plact = 0:
 
 	act 'Drink some beer':plact = 1 & gt $curloc
 
-	if Frend_num = 0:act 'Decline and leave':gt 'gskver'
+	if Frend_num = 0:act 'Decline and leave':gt 'gskver', 'start'
 
 	if Frend_num > 0:
 		act 'Leave with your friend':
@@ -61,7 +61,7 @@ if plact = 0:
 				'<<$ev_name>> whispers to you: "Don''t be such a bore, <<$pcs_nickname>>! I want to stay, he''s cute! Come on, stay with me and live a little!"'
 
 				act 'Drink some beer with them':plact = 1 & gt $curloc
-				act 'Leave your friend behind and go':gt 'gskver'
+				act 'Leave your friend behind and go':gt 'gskver', 'start'
 
 				if pcs_dom > p_dom / 2:
 					act 'Drag your friend away':gt 'placer_end'
@@ -107,7 +107,7 @@ if plact = 1:
 					'You kiss <<$boydesc>> on his lips and embrace him, and soon his hands are exploring your body. He whispers to you: "Come on, you cute little thing... let''s go somewhere a bit more private" while he roughly kneads your ass through your clothes. His friends are watching you intently.'
 
 					if pcs_dom > 0:
-						act 'Refuse and leave':gt 'gskver'
+						act 'Refuse and leave':gt 'gskver', 'start'
 					end
 
 					act 'Go with the guys':
@@ -156,7 +156,7 @@ if plact = 1:
 							'When your cup is nearly empty, <<$boydesc>> generously pours more in your glass with a confident smile. The guys persuade you to keep drinking, saying how much they are enjoying you spending time with them.'
 
 							if pcs_dom > 0:
-								act 'Refuse to drink more and leave':gt 'gskver'
+								act 'Refuse to drink more and leave':gt 'gskver', 'start'
 							end
 							act 'Keep drinking':
 								cls
@@ -185,7 +185,7 @@ if plact = 1:
 							end
 						end
 
-						act 'Leave':gt 'gskver'
+						act 'Leave':gt 'gskver', 'start'
 					elseif rand(0, 1) = 0:
 						'One of the guys suggests: "Hey guys, we don''t have to hang around in the park all day! The house should be available right now, maybe we can show <<$pcs_nickname>> around there and not have people stare us down all day!"'
 						'The guys all raise their cups and cheer, which you''re pretty sure counts as a yes. The boys then all look at you expectantly, hoping you will come with them.'
@@ -206,7 +206,7 @@ if plact = 1:
 							act 'Continue':gt 'gopnik_house'
 						end
 
-						act 'Mumble an excuse and leave':gt 'gskver'
+						act 'Mumble an excuse and leave':gt 'gskver', 'start'
 					else
 						'One of the guys suggests: "Hey guys, there''s no need for us to hang around in the park all day. I know a place where we can hang out and enjoy a drink in private!"'
 						'After some debate, the guys agree to go there. From some of the stares your group has been getting while you enjoyed your drinks, you can''t blame them. They all look at you expectantly, hoping you will come with them.'
@@ -268,7 +268,7 @@ if plact = 1:
 							end
 						end
 
-						act 'Leave':gt 'gskver'
+						act 'Leave':gt 'gskver', 'start'
 					end
 				end
 			elseif know_gor_slut = 1 and BjBeerQW > 1 and bjgangrand = 1:
@@ -320,7 +320,7 @@ if plact = 1:
 							'One of them says: "We''re doing you a favor, slut. This way, everyone will recognize you for what you are, and it will help you remember your place."'
 							'You feel deeply humiliated, but are too embarrassed to contradict them. After a few more minutes of degrading talk, they finally let you leave the basement."'
 
-							act 'Find your way back to the main streets':gt'gskver'
+							act 'Find your way back to the main streets':gt 'gskver', 'start'
 						end
 					end
 				end
@@ -356,7 +356,7 @@ if plact = 1:
 						'You do your best to please them all as good as you can, and suck them off one by one like your life depended on it. For all you know, maybe it does.'
 						'The guys don''t last long at all, and cum all over your face one by one. Once the last guy is spent, they wave you off. One of them snorts: "Not bad, slut. I see your reputation is well deserved."'
 
-						act 'Leave the basement and return to the park':gt 'gskver'
+						act 'Leave the basement and return to the park':gt 'gskver', 'start'
 					end
 				end
 			end
@@ -433,7 +433,7 @@ if plact = 1:
 							'The guy just grins at you: "Everyone knows you''re a whore, <<$pcs_nickname>>. We''ve all seen the video... it''s way too late for you to start being a prude now. Come on, it''d only take a minute. What do you say?"'
 							dynamic $d_park_placer_bj
 
-							act 'Refuse and leave':gt 'gskver'
+							act 'Refuse and leave':gt 'gskver', 'start'
 						end
 
 						act '"Are you crazy? What if someone sees?"':
@@ -458,7 +458,7 @@ if plact = 1:
 									if tiperand = 2:gt 'fbGar'
 								end
 
-								act 'Refuse and leave':gt 'gskver'
+								act 'Refuse and leave':gt 'gskver', 'start'
 							end
 
 							dynamic $d_park_placer_bj
@@ -533,11 +533,11 @@ if plact = 1:
 								KatjaBJ += 1
 							end
 
-							act 'Watch her leave with the stranger':gt 'gskver'
+							act 'Watch her leave with the stranger':gt 'gskver', 'start'
 						elseif p_slut >= 60:
 							'<<$ev_name>> kisses the guy, and he begins to grope her body. She quickly whispers something in his ear, and you see him nod. Then <<$ev_name>> turns to you and asks innocently: "Hey <<$pcs_nickname>>... <<$boydesc>> asks if you want to come with us for some fun. What do you say?"'
 
-							act 'Refuse and tell her to have fun':gt 'gskver'
+							act 'Refuse and tell her to have fun':gt 'gskver', 'start'
 							act 'Go to his apartment together':minut += 5 & gt 'placer_house'
 						end
 					end
@@ -571,7 +571,7 @@ if plact = 1:
 							'The guys can stomach their alcohol a lot better than you, and before you know it you''re absolutely hammered. They look like they''re still feeling fine.'
 							'Once they realize you''re drunk enough for them to make their move, they begin tugging at your clothes and undress you on one of their beds. You''re too drunk to tell them to stop, and just let it happen.'
 
-							act 'Continue':gt 'placer_sex'
+							act 'Continue':gt 'placer_sex', 'meet'
 						end
 					end
 				else
@@ -593,7 +593,7 @@ if plact = 1:
 						'The guys can stomach their alcohol a lot better than you, and before you know it you''re absolutely hammered. They look like they''re still feeling fine.'
 						'Once they realize you''re drunk enough for them to make their move, they begin to take off your clothes and undress you on one of their beds. You''re too drunk to tell them to stop, and just let it happen.'
 
-						act 'Continue':gt 'placer_sex'
+						act 'Continue':gt 'placer_sex', 'meet'
 					end
 				end
 			elseif Frend_num > 0:
@@ -634,25 +634,25 @@ if plact = 1:
 			gs 'stat'
 
 			if know_gor_slut = 0:
-				if slut_vid = 0:gt 'gskver'
+				if slut_vid = 0:gt 'gskver', 'start'
 
 				if slut_vid > 0:
 					if know_status = 2:
 						'<<$boydesc>> disappointedly remarks: "We know you''re a whore... why are you being such a prude?"'
 						'You shrug at him and keep walking... that remark sure made your decision to leave a lot easier! What a jackass!'
 
-						act 'Leave':gt 'gskver'
+						act 'Leave':gt 'gskver', 'start'
 					else
-						gt 'gskver'
+						gt 'gskver', 'start'
 					end
 				end
 			elseif know_gor_slut = 1:
 				if know_status = 2:
 					'You shake your head and apologize: "Sorry boys... I have places to be. Maybe some other time" as you leave. You walk away in a brisk pace, and are gone before they can object.'
 
-					act 'Return to the park':gt 'gskver'
+					act 'Return to the park':gt 'gskver', 'start'
 				else
-					gt 'gskver'
+					gt 'gskver', 'start'
 				end
 			end
 		end

locations/placer_gskver.qsrc

@@ -158,7 +158,7 @@ if soniaPS=5 and rand(1,10)=>9 and hour>14 and hour<20:
 			'After a while, the guy tells Sonia that he wants more. Sonia obediently gets up and asks him: "Would you like to fuck me from behind, sir?"'
 			'The stranger happily accepts the invitation, and watches in amazement when he notices Sonia eagerly grinding her hips back against him once he''s inside her. He had no idea she would be such a lusty slut for him, willing to do all the work!'
 			'You watch Sonia give herself to the man for just a moment longer, before you decide you really have to get going. You''re quite turned on from her little show. Sonia looks like she''s having a lot of fun, and for just a second you think about what it would feel like to be in her place.'
-			act'Leave them be':gt'gskver'
+			act'Leave them be':gt 'gskver', 'start'
 		end
 	end
 end
@@ -214,7 +214,7 @@ elseif Frend_num = 0:
 		'You give the <<$kol_man_text>> a cute smile as you walk past.' & '<<$kol_man_text_no>>'
 	end
 	:parkaway
-	act 'Finish your walk':gt 'gskver'
+	act 'Finish your walk':gt 'gskver', 'start'
 end
 
 gs 'stat'

locations/placer_sex.qsrc

@@ -1,6 +1,5 @@
 # placer_sex
 $metkaM = $ARGS[0]
-$loc = $CURLOC
 $location_type = 'event'
 gs'stat'
 CLOSE ALL
@@ -29,11 +28,11 @@ $din_analplugin_off = {
 	analpluginbonus = 10
 	analplugin = 0
 	gs'stat'
-	*clr 
+	*clr
 	'<center><video autoplay loop src="images/locations/pavlovsk/park/sex/placer_sex16.mp4"></video></center>'
 }
 
-if $args[0] = '':
+if $args[0] = 'meet':
 	if kol_man < 4 and pcs_ass > 14 and pcs_vag > 14 and mesec <= 0 :
 		*clr & cla
 		minut += 30
@@ -103,7 +102,7 @@ if $args[0] = '':
 				gs 'arousal', 'end'
 				gs 'stat'
 				act 'Leave the hostel':podvalrape = 0 & dormrape = 0 & gt'pavResidential'
-		
+
 			elseif endrandom = 1:
 				act 'Open your eyes':
 					cla
@@ -113,7 +112,7 @@ if $args[0] = '':
 					face_write = 1
 					podvalwriterand = RAND (1,6)
 					gs 'stat'
-				
+
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/podvalwrite<<podvalwriterand>>.jpg"></center>'
 					'When you finally come to your senses, you''re alone in the room. You carefully get up from the bed... you feel exhausted, and your body aches everywhere. When you walk past a mirror in search for your clothes, you realize to your shame that the guys have written all sorts of vulgar language all over your body!'
 					'Those bastards! You quickly get dressed and try to cover up the writings as much as you can before leaving the room. Hopefully you can clean that up before anyone sees it on you!'
@@ -142,7 +141,7 @@ if $args[0] = 'vodka':
 	'The boys pour the vodka into some shot glasses, and you enjoy their company while you drink. They have lots of interesting stories and anecdotes to tell, and you never feel bored around them.'
 	'When your glasses are empty, <<$boydesc2>> looks at you and asks, with the bottle in his hand: "Ready for another round?"'
 	if $pantyworntype = 'none':gs 'underwear', 'wear' & 'You quickly excuse yourself: "Give me a minute!" and head for the bathroom. These guys are great! They''re actually treating you like a lady, unlike most guys in Pavlovsk... you don''t want to give them the wrong idea about you by accidentally flashing them your naked pussy! You quickly put on some <a href="exec: VIEW ''images/locations/pavlovsk/park/sex/placer_sex129.jpg''">panties</a> and return to the living room.'
-	act 'Have another drink': 
+	act 'Have another drink':
 		alko += rand(0,5)
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex3.jpg"></center>'
@@ -160,7 +159,7 @@ if $args[0] = 'vodka':
 			gs 'stat'
 			if alko > 5 or pcs_horny => 80:
 				act 'Smile innocently':gt 'placer_sex', 'piano'
-				act 'Push his hand away': 
+				act 'Push his hand away':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex6.jpg"></center>'
 					'You push his hand away with a smile and say: "Not so fast, <<$boydesc2>>... we still have plenty of time for that later."'
@@ -168,14 +167,14 @@ if $args[0] = 'vodka':
 					act 'You don''t want to drink more': gt 'placer_sex', 'game'
 				end
 			else
-				act 'Remove his hand': 
+				act 'Remove his hand':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex6.jpg"></center>'
 					'You push his hand away with a smile and say: "Not so fast, <<$boydesc2>>... we still have plenty of time for that later."'
 					'<<$boydesc2>> sighs with frustration, but recovers quickly and nods: "You''re right. How about another drink, then?"'
 					act 'You don''t want to drink more': gt 'placer_sex', 'game'
 				end
-			end	
+			end
 		end
 	end
 	act 'You don''t want to drink more': gt 'placer_sex', 'game'
@@ -190,9 +189,9 @@ if $args[0] = 'piano':
 	'He begins to pull away your clothes when he doesn''t notice any direct objections from you, exposing the panties that you -luckily- just put on.'
 	gs 'arousal', 'foreplay', 5, 'sub', 'group'
 	gs 'stat'
-	act 'Help him take off your clothes': 
+	act 'Help him take off your clothes':
 		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex7.jpg"></center>'	
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex7.jpg"></center>'
 		'You reach down, and the guy flinches and immediately pulls away his hand.'
 		'You give him a reassuring smile and say: "Relax! I was only going to give you a hand!"'
 		'You wink at him as you pull away your clothes, ignoring your panties on purpose. When <<$boydesc2>> reaches down to your ass to pull your panties down, you stop him: "Slow down a bit! It''s not fair if I do all the showing, and you do all the watching... maybe you guys could show me something first?"'
@@ -245,7 +244,7 @@ if $args[0] = 'piano':
 								''
 								if (week >= 1 and week < 5) or week = 7:
 									'With some regret in your voice you tell them: "Sorry, boys. I have school tomorrow, I really can''t stay. Maybe some other time?"'
-								elseif week = 5 or week = 6 : 
+								elseif week = 5 or week = 6 :
 									'You think to yourself: "Well... I don''t have school tomorrow, I suppose I could stay if I want to."'
 									gs 'arousal', 'end'
 									gs 'stat'
@@ -254,7 +253,7 @@ if $args[0] = 'piano':
 								gs 'arousal', 'end'
 								gs 'stat'
 								act 'Decline and leave': minut += 10 & gs'stat' & gt'pavResidential'
-							end	
+							end
 						end
 					end
 				end
@@ -262,11 +261,11 @@ if $args[0] = 'piano':
 					gs'stat'
 					*clr & cla
 					'<center><video autoplay loop src="images/locations/pavlovsk/park/sex/placer_sex12.mp4"></video></center>'
-					'You quickly pull away from <<$boydesc2>>''s cock, and look at him mischievously. You lie down on the kitchen table and make a show of slowly taking off your panties, before you spread your legs wide for the boys.'	
-					if analplugin = 1: 
+					'You quickly pull away from <<$boydesc2>>''s cock, and look at him mischievously. You lie down on the kitchen table and make a show of slowly taking off your panties, before you spread your legs wide for the boys.'
+					if analplugin = 1:
 						act 'Let them pull out your butt plug':
 							delact 'Let them pull out your butt plug'
-							dynamic $din_analplugin_off 
+							dynamic $din_analplugin_off
 							'The immediately walk up to you when you spread your legs, their looks a bit lower than you''d expect. Then you realize why and silently mutter to yourself: "Oh no! I still have my butt plug in!"'
 							'<<$boydesc2>> puts his hand on it and lightly tugs at your plug as he teases you: "Oh my... what a nasty girl you are! Do you have more toys like this?"'
 							'You feel deeply ashamed, and your cheeks turn crimson red when he carefully pulls it out and admires its size. You quietly tell them: "Sorry boys, I just like the way it feels. Anyway... weren''t you about to do something?"'
@@ -292,14 +291,14 @@ if $args[0] = 'piano':
 							'Just when you''re completely relaxed and have surrendered to your feelings, you hear swearing. His friend wanted to insert his dick inside you as well, but <<$boydesc2>> pushed him away. He scolds his friend: "Relax man, you''ll get your turn... just let me finish first!"'
 							gs 'arousal', 'vaginal', 15, 'sub'
 							gs 'stat'
-							if guy > 30: 
+							if guy > 30:
 								minut += 30
 								gs'stat'
 								act 'Say you''ll please his friend too':
 									*clr & cla
 									'You feel bad for <<$boydesc2>>''s friend, and tell them: "There''s no need to argue, guys! I''ll make all of you feel good..."'
 									'You see <<$boydesc2>> wants to object, but at the same time he realizes he''s had you to himself for most of the time. He relaxes, and let you do what you want to do."'
-									if kol_man = 2: 
+									if kol_man = 2:
 										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex17.jpg"></center>'
 										'The guys pull you off the table without hesitation, and put you down on your knees in front of them. You take both of their cocks in your hands, and guide them towards your mouth. You tease them with your tongue, savouring the taste of yourself on <<$boydesc2>>''s cock. That doesn''t mean you ignore his friend though; you pay just as much attention to him, sucking him off, or stroking his cock when you have your lips around <<$boydesc2>>''s.'
 										gs 'arousal', 'bj', 5, 'sub', 'group'
@@ -348,15 +347,15 @@ if $args[0] = 'piano':
 														'<<$boydesc2>> idly waves in a general direction, and you realize they''re not going to help you. You muster all your strength and get to your feet, still feeling rather shaky.'
 														act 'Take a hot shower':
 															$din_dush_text='You get into the shower and thoroughly wash yourself, trying to get all of their cum out of your holes. When you''re done, you gather your things and get ready to leave.'
-															dynamic $din_dush 
+															dynamic $din_dush
 															gs 'arousal', 'end'
 															gs 'stat'
 															act 'Leave the apartment': minut += 10 & gs'stat' & gt'pavResidential'
-														end	
+														end
 													end
 												end
-											end	
-										else 
+											end
+										else
 											act 'Continue':
 												*clr & cla
 												'<center><video autoplay loop src="images/locations/pavlovsk/park/sex/placer_sex21.mp4"></video></center>'
@@ -393,7 +392,7 @@ if $args[0] = 'piano':
 														gs 'stat'
 														act 'Take a hot shower':
 															$din_dush_text='"I''m going to take a shower and head home, guys!" you tell the boys. They nod, too exhausted to protest you leaving them. You get into the shower and thoroughly wash yourself, trying to get all of their cum out of your pussy while you rinse your mouth. When you''re done, you gather your things and get ready to leave.'
-															dynamic $din_dush 
+															dynamic $din_dush
 															gs 'arousal', 'end'
 															gs 'stat'
 															act 'Leave their apartment': minut += 10 & gs'stat' & gt'pavResidential'
@@ -402,7 +401,7 @@ if $args[0] = 'piano':
 												end
 											end
 										end
-									elseif kol_man = 3 and analpluginbonus = 10 and pcs_vag => 15 : 
+									elseif kol_man = 3 and analpluginbonus = 10 and pcs_vag => 15 :
 										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex23.jpg"></center>'
 										'The guys pull you off the table without hesitation, and put you down on your knees in front of them. You take their cocks in your hands, and guide them towards your mouth. You tease them with your tongue, savoring the taste of yourself on <<$boydesc2>>''s cock. That doesn''t mean you ignore his friends though; you pay just as much attention to them, sucking them off, or stroking their cock when you have your lips around <<$boydesc2>>''s.'
 										act 'Continue':
@@ -444,16 +443,16 @@ if $args[0] = 'piano':
 												'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex20.jpg"></center>'
 												'You''re not sure how long it lasted. It could be a minute... it could be five, or maybe even ten. Eventually you gain enough strength to take an assessment of the situation. Your sweaty body is naked on the floor, and there''s cum flowing from all of your holes. You try to get up, but your legs are way too wobbly.'
 												'When you look at the guys, they seem just as spent. They''re idly hanging around on a bed, slowly watching the cum from your holes drip onto the floor. Your mouth tastes like sperm as well; you probably swallowed at least one load during all that.'
-												act 'Go into the shower':	
+												act 'Go into the shower':
 													$din_dush_text='"That was great, guys! But I''m going to take a shower and head home, I''m exhausted!" you tell the boys. They nod, too exhausted to protest you leaving them. You get into the shower and thoroughly wash yourself, trying to get all of their cum out of your holes while you rinse your mouth repeatedly. When you''re done, you gather your things and wave the boys goodbye.'
-													dynamic $din_dush 
+													dynamic $din_dush
 													gs 'arousal', 'end'
 													gs 'stat'
 													act 'Leave the apartment': minut += 10 & gs'stat' & gt'pavResidential'
 												end
 											end
 										end
-									else	
+									else
 										pcs_mood += 15
 										pcs_willpwr += 15
 										pcs_vag += 1
@@ -557,7 +556,7 @@ if $args[0] = 'vodka2':
 				if kol_man = 2:
 					act 'Take a shower':
 						$din_dush_text='You smile at the boys: "Alright guys, I really need to go wash this sperm out of my pussy before I get pregnant. Where is your bathroom?"' & 'The guys show you where their bathroom is and leave you alone to go clean up. You scoop their sperm out of your pussy as much as you can, and dry yourself off with a fluffy towel they laid out for you.'
-						dynamic $din_dush 
+						dynamic $din_dush
 						act 'Leave the shower':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex28.jpg"></center>'
@@ -569,8 +568,8 @@ if $args[0] = 'vodka2':
 							gs 'stat'
 							act 'Decline and leave': minut += 30 & gs'stat' & gt'pavResidential'
 							act 'Agree to sleep over': gt 'placer_sex', 'stay'
-						end	
-					end	
+						end
+					end
 				else
 					act 'Get fucked by the third guy':
 						*clr & cla
@@ -615,7 +614,7 @@ if $args[0] = 'vodka2':
 									gs 'stat'
 									act 'Go take a shower':
 										$din_dush_text='You smile at the guys: "Alright boys, I should really go take a shower and wash this out, you don''t want me getting pregnant!"' & 'The guys show you where their bathroom is and leave you alone to go clean up. You wash their sperm out of your pussy as good as you can, and dry yourself off with a fluffy towel they laid out for you.'
-										dynamic $din_dush 
+										dynamic $din_dush
 										act 'Exit out of the shower':
 											*clr & cla
 											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex28.jpg"></center>'
@@ -625,7 +624,7 @@ if $args[0] = 'vodka2':
 											'The guys were hoping you would stay over, and try to pursuade you: "You don''t have to go, <<$pcs_nickname>>! You can just crash here, we can still hang out for a while longer and chat! Besides... I make the world''s best omelette! You''d be robbing yourself from a once-in-a-lifetime experience if you don''t at least have a taste of that in the morning!"'
 											''
 											if (week >= 1 and week < 5) or week = 7: 'With some regret in your voice you tell them: "Sorry, boys. I have school tomorrow, I really can''t stay. Maybe some other time?"'
-											if week = 5 or week = 6 : 
+											if week = 5 or week = 6 :
 												'You think to yourself: "Well... I don''t have school tomorrow, I suppose I could stay if I want to."'
 												gs 'arousal', 'end'
 												gs 'stat'
@@ -641,7 +640,7 @@ if $args[0] = 'vodka2':
 						end
 					end
 				end
-			end	
+			end
 		end
 	end
 end
@@ -676,12 +675,12 @@ if $args[0] = 'twister':
 			'The guys have a questioning look on their faces, not sure what they did wrong. They figured you were all just having fun. You quickly straighten your clothes and get up, saying: "I''m sorry guys, I think I should go."'
 			gs 'arousal', 'end'
 			gs 'stat'
-			act 'Leave the apartment': gs 'placer_sex', 'rape' 
+			act 'Leave the apartment': gs 'placer_sex', 'rape'
 		end
 		act 'Blush but stay silent':
 			gs'stat'
 			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex97.jpg"></center>'	
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex97.jpg"></center>'
 			'Noticing you''re not stopping him, <<$boydesc2>> pulls away for a moment and asks his friend: "Is it okay if I take my clothes off? They''re restricting my movement too much."'
 			'Naturally, the referee nods: "I''ll allow it, freedom of movement is important when playing Twister. <<$pcs_nickname>>, stay in that position please."'
 			'<<$boydesc2>> quickly removes his clothes and gets back into position, and you play another few rounds with him occasionally groping you.'
@@ -696,7 +695,7 @@ if $args[0] = 'twister':
 				*clr & cla
 				cumprecheck = 1
 				gs 'cum_manage'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex98.jpg"></center>'	
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex98.jpg"></center>'
 				'<<$boydesc2>>''s friend just sits back in his chair and watches the two of you, fairly certain that you will not need any more directions from him.'
 				'After a few minutes of sucking, you gently push <<$boydesc2>> down onto the playing mat and mount him. You lean over and whisper: "You win. Just lie back and enjoy your reward..."'
 				'His cock feels great inside you, and you begin to ride him vigorously. He throws his head back and groans.'
@@ -706,7 +705,7 @@ if $args[0] = 'twister':
 				minut -= 5
 				gs 'stat'
 				act 'Continue':
-					gs'stat'					
+					gs'stat'
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex99.jpg"></center>'
 					'After he enjoyed his prize for some time, he grins: "We all won, babe... get on your hands and knees, I''ll make you feel good."'
@@ -760,28 +759,28 @@ if $args[0] = 'cards':
 	'You and his friend nod, that sounds like it could be fun.'
 	act 'Play cards':
 		*clr & cla
-		minut += 15 
-		gs'stat' 
+		minut += 15
+		gs'stat'
 		'<<$boydesc2>> quickly shuffles the deck, and deals.'
-		if rand (1,5) = 1: 
+		if rand (1,5) = 1:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex62.jpg"></center>'
 			'You win, and show the guys a triumphant grin. Now, for your reward...'
 			act 'Make them run naked in the streets': gt 'placer_sex', 'card_win'
-		else 
+		else
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex66.jpg"></center>'
 			'You lose. The boys are obviously delighted, and greedily look at your body while they discuss what they should ask of you. It takes them a second, but then <<$boydesc2>> says: For our favor, we want... a striptease!"'
 			'You can tell they are a bit worried you might object, and he quickly adds: "We won a favor, fair and square! However, you can try to recoup your losses. If we win again though, you''ll have to do more than just a striptease... what do you say, double or nothing? Or just cut your losses and perform the striptease for us?"'
 			act 'Just do the striptease': gt 'placer_sex', 'card_stript'
-			act 'Double or nothing!': 
+			act 'Double or nothing!':
 				*clr & cla
-				minut += 15 
-				gs'stat' 
+				minut += 15
+				gs'stat'
 				'<<$boydesc2>> quickly shuffles the deck, and deals.'
-				if rand (1,5) = 1: 
+				if rand (1,5) = 1:
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex62.jpg"></center>'
 					'You win, and show the guys a triumphant grin. Now, for your reward...'
 					act 'Make them streak': gt 'placer_sex', 'card_win'
-				else 
+				else
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex77.jpg"></center>'
 					'The guys cheer when they realize they win again, and look at you with desire in their eyes. <<$boydesc2>> smugly says: "Well <<$pcs_nickname>>, looks like the cards don''t favor you tonight. Now... what to do with you?"'
 					'You already know where this is going, and take off your clothes with a sigh, but leave your underwear on as you say: "Damn, I hate to lose..."'
@@ -818,7 +817,7 @@ if $args[0] = 'card_sex':
 			minut -= 10
 			gs 'stat'
 			act 'Continue':
-				pcs_horny += 20 
+				pcs_horny += 20
 				gs'stat'
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex81.jpg"></center>'
@@ -848,7 +847,7 @@ if $args[0] = 'card_sex':
 					gs 'arousal', 'bj', 30, 'unknown', 'sub', 'group'
 					gs 'arousal', 'vaginal', 30, 'unknown', 'sub', 'group'
 					minut -= 30
-					gs 'stat'	
+					gs 'stat'
 					act 'Continue':
 						gs 'cum_manage'
 						sexpartkno = 1
@@ -869,7 +868,7 @@ if $args[0] = 'card_sex':
 						'You blush, but can''t disagree: "You''re right... that was the best loss I''ve ever had."'
 						act 'Take a shower and leave':
 							$din_dush_text='You finally get up from the bed, and ask if it''s okay you take a shower before you go. Of course <<$boydesc2>> doesn''t mind, and points out where their bathroom is. You quickly get in, and after enjoying the hot water on your skin for a few moments you quickly clean their cum from your body. You try to spoon the sperm out of your pussy as good as you can with your fingers and rinse your mouth thoroughly, and then dry off and get dressed again. When you leave the bathroom, the guys are already waiting in the hallway. You kiss them goodbye, and tell them to let you know if they''re ever in Pavlovsk again.'
-							dynamic $din_dush 
+							dynamic $din_dush
 							gs 'arousal', 'end'
 							gs 'stat'
 							act 'Leave the apartment': minut += 10 & gs'stat' & gt'pavResidential'
@@ -906,7 +905,7 @@ if $args[0] = 'card_stript':
 				if pcs_dancero > 50:
 					'Your practise pays off, and the guys are very impressed with your skilful dance. They''re rubbing their erections idly, and you smirk at them: "Careful, boys! Your eyes will pop out of you keep staring at me like that!"'
 					'You''re used to people wanting to get handsy when you do a striptease for them, and deftly dodge the grabbing hand that you knew would come sooner or later. As you give it a playful slap, you say: "No no, you only won a striptease. No touching!"'
-				else 
+				else
 					'You haven''t really done this much, and as a result you mostly just look like you''re wobbling while you take off your clothes. Despite your best intentions the boys are not very impressed, and they mostly just stare at your jiggling boobs while you try to entertain them.'
 				end
 				act 'Continue':
@@ -958,7 +957,7 @@ if $args[0] = 'card_stript':
 										minut += 30
 										pcs_willpwr += 15
 										pcs_mood += 15
-										gs'stat' 
+										gs'stat'
 										*clr & cla
 										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex75.jpg"></center>'
 										'The guys are back in their seats. They''ve both taken their cocks out, and are slowly stroking them while they watch you fuck yourself with the vibrator.'
@@ -978,7 +977,7 @@ if $args[0] = 'card_stript':
 											pcs_throat+= 1
 											facial+=2
 											guy+=2
-											gs'stat' 
+											gs'stat'
 											*clr & cla
 											'<center><video autoplay loop src="images/locations/pavlovsk/park/sex/placer_sex76.mp4"></video></center>'
 											'The guys realize that this is their chance and they quickly help your weak body down to the floor, lowering you on your knees in front of them. Their erect cocks are gently bobbing in front of your face, and for a second you consider objecting. Maybe it''s the euphoria of your orgasm talking, but then you think to yourself: "You know what... they''re cute. I guess I could let them have this win."'
@@ -991,7 +990,7 @@ if $args[0] = 'card_stript':
 											gs 'stat'
 											act 'Take a shower':
 												$din_dush_text='After enjoying the hot water on your skin for a few moments, you quickly clean their cum from your body. You rinse your mouth thoroughly, and then dry off and get dressed again. When you leave the bathroom, the guys are already waiting in the hallway. You kiss them goodbye, and tell them to let you know if they''re ever in Pavlovsk again.'
-												dynamic $din_dush 
+												dynamic $din_dush
 												gs 'arousal', 'end'
 												gs 'stat'
 												act 'Leave the apartment': minut += 10 & gs'stat' & gt'pavResidential'
@@ -1015,9 +1014,9 @@ if $args[0] = 'card_win':
 	'The guys reluctantly agree, and begin to undress.'
 	act 'Go with them to the street':
 		*clr & cla
-		if month >4 and month < 11: 
+		if month >4 and month < 11:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex64.jpg"></center>'
-		else 
+		else
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex65.jpg"></center>'
 		end
 		'You have a cruel grin on your face when you tell them: "Okay boys, start running!"'
@@ -1085,7 +1084,7 @@ if $args[0] = 'stay_in_bed':
 								'You smile, feeling completely satisfied. "It felt fantastic... but unfortunately, I really do have to get going."'
 								act 'Take a shower':
 									$din_dush_text='You quickly take a shower while <<$boydesc2>> rests on the bed a while longer, and you thoroughly wash the cum from your ass. You then get dressed, and kiss <<$boydesc2>> farewell before leaving the apartment.'
-									dynamic $din_dush 
+									dynamic $din_dush
 									gs 'arousal', 'end'
 									gs 'stat'
 									act 'Return to the streets': minut += 10 & gs'stat' & gt'pavResidential'
@@ -1180,15 +1179,15 @@ if $args[0] = 'stay_in_bed':
 								gs 'stat'
 								act 'Take a shower':
 									$din_dush_text='It takes you a few minutes to regain your senses, and your body is still shivering slightly when you give the guys a kiss. You tell them: "That was great guys... best fuck of my life, hands down! I really have to go though... let me take a quick shower to freshen up?"' & 'The guys are sad to see a cute little fuckpuppet like you leave, but nod and show you where the shower is. After you thoroughly clean yourself up, you give the both of them a kiss and tell them to come look you up if they''re ever in Pavlovsk again.'
-									dynamic $din_dush 
+									dynamic $din_dush
 									gs 'arousal', 'end'
 									gs 'stat'
 									act 'Leave the apartment':minut += 10 & gs'stat' & gt'pavResidential'
 								end
 							end
 						end
-					end	
-				end		
+					end
+				end
 			end
 		end
 	end
@@ -1197,7 +1196,7 @@ end
 if $args[0] = 'sleep_sex':
 	*clr & cla
 	gs 'boyStat', $boy1
-	if rand(0,2) > 0: 
+	if rand(0,2) > 0:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex93.jpg"></center>'
 		'At some point, you hear something and wake up. You pretend to be asleep, while you very slightly open your eyes. You see the silhouettes of several guys in your room, it looks like they can''t sleep and want to play with you some more. Eager to find out what they''ll do next, you just keep pretending to asleep and wait for them to make their move.'
 		act 'Continue':
@@ -1412,7 +1411,7 @@ if $args[0] = 'breakfast':
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex38.jpg"></center>'
 		'You just smirk at the drooling guy, and say: "No way!"'
 		'He grins: "Oh well, it was worth a shot. Anyway... I owe you those omelettes, right?"'
-		'He ushers you to the table that the boys fucked you on last night, and tells you to sit down while he works his magic. Minutes later, a steaming omelette served on some bread is on a plate in front of you.' 
+		'He ushers you to the table that the boys fucked you on last night, and tells you to sit down while he works his magic. Minutes later, a steaming omelette served on some bread is on a plate in front of you.'
 		act 'Have breakfast':
 			*clr & cla
 			minut += 30
@@ -1443,12 +1442,12 @@ if $args[0] = 'stay':
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex29.jpg"></center>'
 	'The guys are happy that you decided to stay the night, and <<$boydesc2>> goes to another room to fetch a guitar. He''s fairly good at playing it, and you all happily sing along to the songs he''s plays. Afterwards, you all enjoy another glass of vodka while you exchange stories. Before you know it, it''s getting late.'
-	act 'Go to bed': 
+	act 'Go to bed':
 		gs 'placer_sex', 'sleep'
 		act 'Make breakfast for the guys': gt 'placer_sex', 'breakfast'
 		act 'Lie in bed': gt 'placer_sex', 'stay_in_bed'
 		if rand (1,6)=1: delact 'Make breakfast for the guys' & delact 'Lie in bed' & gt 'placer_sex', 'sleep_sex'
-	end			
+	end
 end
 
 if $args[0] = 'sleep':
@@ -1472,7 +1471,7 @@ if $args[0] = 'sleep':
 	if pcs_makeup > 1:pcs_makeup = 0 & vidageday -= 1 & 'Your make-up got smeared all over your face while you slept. You realize you really should''ve removed it before going to bed, your skin ages much faster if you don''t take good care of it.'
 	if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
 	'You have a good night''s rest. You did not dream of anything.'
-	
+
 	:loopson
 	minut += 1
 	stime += 1
@@ -1564,7 +1563,7 @@ if $args[0] = 'rape':
 							gs 'arousal', 'anal', 10, 'unknown', 'sub', 'group', 'rough', 'bound', 'humiliation'
 							minut -= 10
 							gs 'stat'
-							if SUB < 10: 
+							if SUB < 10:
 								act 'Get angry and bite his dick':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex108.jpg"></center>'
@@ -1655,7 +1654,7 @@ if $args[0] = 'rape':
 									act 'Continue':
 										gs'stat'
 										*clr & cla
-										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex114.jpg"></center>'	
+										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex114.jpg"></center>'
 										'Immediately one of them puts his dick in your mouth... it''s huge! You can barely close your lips around it, but he doesn''t care and keeps forcing your head down further.'
 										'You do your best to take it in, but after a while you''re horrified to hear him say: "Listen up, slut! If you don''t do a good job, it''s going in your ass next!"'
 										'As much as you try to placate him and suck him off as good as you can, it''s not good enough. After a while he shakes his head disappointedly at you and says in a smug voice: "You''ve had your chance. In your ass it goes, then."'
@@ -1667,7 +1666,7 @@ if $args[0] = 'rape':
 											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex115.jpg"></center>'
 											'That thought makes you panic: there''s no way his cock would fit in your ass! You whine and beg him: "Please sir, give me another chance! I''ll make you feel good, I promise! Just... not my ass, please!"'
 											'The guy ignores your pleas, and lies down on the bed. Several hands lift you up, and position you so your entire weight is leaning on the tip of his cock, which is conveniently positioned against your puckered asshole.'
-											'He grins: "I love it when they beg..." just as his friends lower your body, gradually forcing his huge cock into your ass. He groans, but you can''t hear him over your sharp cries of pain. It hurts! It hurts so much!'	
+											'He grins: "I love it when they beg..." just as his friends lower your body, gradually forcing his huge cock into your ass. He groans, but you can''t hear him over your sharp cries of pain. It hurts! It hurts so much!'
 											gs 'arousal', 'anal', 10, 'unknown', 'sub', 'group', 'rough', 'bound', 'humiliation'
 											gs 'stat'
 											act 'Continue':
@@ -1744,7 +1743,7 @@ if $args[0] = 'rape':
 																	*clr & cla
 																	VIEW
 																	$din_dush_text='You quietly thank him, and follow him to the bathroom. You take a quick shower, doing your best to rinse the cum from all of your holes. When you finish, you see Big C standing in the bathroom. He''d been watching you the whole time, while making sure none of the other guys would disturb you.'
-																	dynamic $din_dush 
+																	dynamic $din_dush
 																	act 'Leave the apartment':
 																		*clr & cla
 																		pcs_mood = 5
@@ -1789,7 +1788,7 @@ if $args[0] = 'rape':
 				end
 			end
 		end
-	else 	
+	else
 		minut += 10 & gs'stat' & gt'pavResidential'
 	end
 end
@@ -1804,7 +1803,7 @@ if $args[0] = 'rape_end':
 	'Him and one of his friends pull you out of the car, and quickly bind your wrists together with some rope before they drag you away from the road.'
 	act 'You''re at the lake?':
 		*clr & cla
-		if month=12 or month=1 or month=2:			
+		if month=12 or month=1 or month=2:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex125.jpg"></center>'
 			'When you look around, you realize you''re at the frozen lake near Pavlovsk. actually... you''re on top of it, walking over the ice. You''re completely naked and your body is shivering in the bitter cold, but the guys don''t care and force you to keep walking between them. It''s not like you could resist them anyway, your wrists are still bound in front of you.'
 			'They walk towards a place where the ice is broken. <<$boydesc2>> threatens you: "Do you want to live, bitch?"'
@@ -1827,7 +1826,7 @@ if $args[0] = 'rape_end':
 			'He continues: "Good. This will be a reminder of what we can do to you... we know all your personal details, we can do much worse than this if you go to the police. Your stuff will be over there, by the edge of the lake. Don''t make us regret letting you go."'
 			'With that he cuts the rope that was binding your wrists together and roughly shoves you towards the water, and you shriek as you splash down into the lake. It''s actually fairly warm at this time of year, but your aching muscles make it an exhausting experience nevertheless. The boys run towards their car, and throw your stuff out the window before driving off. You''ll have to climb out of the lake by yourself. Eventually you manage, and you have no choice but to run along the edge in the nude until you reach your clothes.'
 		end
-		act 'Get dressed': 
+		act 'Get dressed':
 			*clr & cla
 			gs 'boyStat', $boy2
 			spafinloc = 7
@@ -1842,9 +1841,9 @@ if $args[0] = 'rape_end':
 	end
 end
 
-if $ARGS[0] = 'sleeping_parc_alco':
-	if alko > 3 and pcs_apprnc >= 120:
-		gt'placer_sex','sleeping_parc_alco_rape'
+if $ARGS[0] = 'sitting_park_bench':
+	if alko >= 7 and pcs_apprnc >= 120:
+		gt'placer_sex','sleeping_park_alco_rape'
 	else
 		cla
 		*clr
@@ -1858,30 +1857,28 @@ if $ARGS[0] = 'sleeping_parc_alco':
 		else
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/bench_3.jpg"></center>'
 		end
-		waiting = input ("How many minutes to sit down? (Not more 120 minutes)")
+		waiting = input ("How long would you like to rest?<br>(Default 15 minutes, maximum 120 minutes)")
 
-		if alko > 2:gt 'placer_sex', 'sleeping_parc_bench'
+		if alko >= 4:gt 'placer_sex', 'sleeping_park_bench'
 
-		if waiting <= 0 or waiting > 120:
+		if waiting = '':
 			minut += 15
 		elseif waiting > 0 and waiting <= 120:
-			minut += waiting
+			minut = minut + waiting
 			pcs_mood += 10
 			pcs_willpwr += 10
-			if pcs_sleep < 95 and waiting >= 60:pcs_sleep += 6
-		end
-
-		act 'Consult a watch':
-			if ParkBench = 1:
-				gt 'park', 'start'
-			else
-				gt 'gskver'
+			if pcs_sleep < 90 and waiting >= 60:
+				pcs_sleep += 10
 			end
+		elseif waiting <= 0 or waiting > 120:
+			'Invalid time.'
 		end
+
+		gt $loc, $metka
 	end
 end
 
-if $ARGS[0] = 'sleeping_parc_bench':
+if $ARGS[0] = 'sleeping_park_bench':
 	cla & *clr
 	pcs_health += 5
 	pcs_hairbsh = 0
@@ -1889,18 +1886,18 @@ if $ARGS[0] = 'sleeping_parc_bench':
 	minut += 480
 	pcs_sleep += 80
 	gs 'stat'
-	InSleep = 0            
-	
+	InSleep = 0
+
 	!Hoping these were not that wrong. by illume
 	if $clothingworntype = 'school':
 		'<center><img <<$set_imgh>> src="images/locations/shared/park/sleeping_park_form.jpg"></center>'
 	elseif PCloSkirt > 0:
 		'<center><img <<$set_imgh>> src="images/locations/shared/park/sleeping_park_dress.jpg"></center>'
-	elseif PCloPants > 3: 
+	elseif PCloPants > 3:
 		'<center><img <<$set_imgh>> src="images/locations/shared/park/sleeping_park_shorts.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/shared/park/sleeping_park_jeans.jpg"></center>'
-	end               
+	end
 
 	if pcs_makeup > 1:pcs_makeup = 0 & vidageday -= 1 & 'Makeup smeared in the face, you think, that is harmful to the appearance of sleep with makeup, skin ages faster from this.'
 
@@ -1914,7 +1911,7 @@ if $ARGS[0] = 'sleeping_parc_bench':
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/sleeping_park1.jpg"></center>'
 			if $pantyworntype ! 'none':
 				gs 'underwear', 'dispose'
-				'You wake up with a smile, stretching your arms and legs. You realize your panties are missing and quickly close your legs. You fearfully think to yourself : «I hope that whoever took my panties did not  take advantage of me while I was out».'
+				'You wake up with a smile, stretching your arms and legs. You realize your panties are missing and quickly close your legs. You fearfully think to yourself : «I hope that whoever took my panties did not	take advantage of me while I was out».'
 			else
 				'You wake up with a smile, stretching your arms and legs, flashing your bare pussy to the entire Park.'
 			end
@@ -1922,29 +1919,23 @@ if $ARGS[0] = 'sleeping_parc_bench':
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/sleeping_park.jpg"></center>'
 			if $pantyworntype ! 'none':
 				gs 'underwear', 'dispose'
-				'You wake up with a smile, stretching your arms and legs. You realize your panties are missing and quickly close your legs. You fearfully think to yourself : «I hope that whoever took my panties did not  take advantage of me while I was out».'
+				'You wake up with a smile, stretching your arms and legs. You realize your panties are missing and quickly close your legs. You fearfully think to yourself : «I hope that whoever took my panties did not	take advantage of me while I was out».'
 			else
 				'You wake up with a smile, stretching your arms and legs, flashing your bare pussy to the entire Park.'
 			end
 		else
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/sleeping_park2.jpg"></center>'
 			'You sweetly smiled.'
-		end   
-	   
-		act 'Up':
-			if ParkBench = 1:
-				gt 'park', 'start'
-			else
-				gt 'gskver'
-			end
 		end
+
+		gt $loc, $metka
 	end
 end
 
 
-if $ARGS[0] = 'sleeping_parc_alco_rape':
+if $ARGS[0] = 'sleeping_park_alco_rape':
 	cla & *clr
-    '<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_1.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_1.jpg"></center>'
 	'Maybe it''s the alcohol, or maybe you just haven''t slept well... but you feel tired. You sit down on the park bench, wanting to rest your exhausted body for a while. Slowly, your eyes begin to close. Realizing that it could be dangerous to fall asleep in a public place like the park, you do your best to stay awake. The alcohol in your blood makes it impossible though, and you slowly feel your consciousness drift away.'
 	'A few minutes later, you''re vaguely aware of the fact that someone is dragging you up from the park bench. You''re too drunk to do anything about it though, and slowly fade out again.'
 	act 'Continue':
@@ -1957,7 +1948,7 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 			if frost > 0: frost = 0
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_3.jpg"></center>'
 			'Suddenly you feel your balance shifting, and you feel a soft ground underneath you... are you on a bed?'
-			'You silently feel grateful just to have something soft underneath you, and your nauseated feelings lessen a bit now that you''re no longer in this awkward position over his shoulder.' 
+			'You silently feel grateful just to have something soft underneath you, and your nauseated feelings lessen a bit now that you''re no longer in this awkward position over his shoulder.'
 			'When you open your eyes, you see the vague contours of a man. The last things you catch before passing out again, is that he''s beginning to undress you.'
 			act 'Continue':
 				cla & *clr
@@ -1993,7 +1984,7 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 						end
 						act 'Continue':
 							cla & *clr
-							'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_7.jpg"></center>'	
+							'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_7.jpg"></center>'
 							if pcs_throat < dick: pcs_throat += 1
 							if pcs_vag = 0:
 								'His stone cold expression never leaves his face, while he orders you in an even tone: "Good, now suck my cock."'
@@ -2005,7 +1996,7 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 								gs 'stat'
 								act 'Continue':
 									cla & *clr
-									'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_8.jpg"></center>'	
+									'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_8.jpg"></center>'
 									'Unfortunately, all is not fine. Getting tired of your mouth, he pulls you towards him and tosses you down onto the bed in one fluent motion. He barrels down on top of you, and you feel his erection pressing against your stomach.'
 									'A thought flashes through your head: "Oh god, he''s going to rape me now! I don''t want this... this can''t be happening!"'
 									'During this time, you feel his erection slowly making its way down, towards your coveted cunt. You barely have time to mentally prepare yourself, because he slams his hips against yours and thrusts his long and big cock deep inside you as soon as he reaches it.'
@@ -2013,7 +2004,7 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 									gs 'stat'
 									act 'Continue':
 										cla & *clr
-										'<center><video autoplay loop src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_9.mp4"></video></center>'	
+										'<center><video autoplay loop src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_9.mp4"></video></center>'
 										'It feels like he''s forcing a hot lead pipe inside you! You''ve thought about sex many times, but you never imagined it being quite as painful as it is right now.'
 										'The rapist ignored your screams and fucks you mercilessly. Some of your blood is on the sofa, but that doesn''t stop him. If anything, your suffering only makes him fucks you harder. His hands knead your breasts roughly while he thrusts his cock inside you faster and faster.'
 										gs 'arousal', 'vaginal', 5, 'unknown', 'sub', 'humiliation', 'rough'
@@ -2022,12 +2013,12 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 											cla & *clr
 											'<center><video autoplay loop src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_10.mp4"></video></center>'
 											'The torture goes on for another few minutes, even though it feels like an eternity. Then finally the guy reaches his orgasm, and he just rests his body on top of yours when he pumps his cum deep inside your pussy. When he pulls out of you, he gets up from the bed to examine his victim.'
-											'You''re lying there on his bed, a mixture of blood and semen leaking from your painful vagina. Tears stream down your face while you look at him fearfully... what is he going to do with you now?'	
+											'You''re lying there on his bed, a mixture of blood and semen leaking from your painful vagina. Tears stream down your face while you look at him fearfully... what is he going to do with you now?'
 											gs 'arousal', 'vaginal', 5, 'unknown', 'sub', 'humiliation', 'rough'
 											gs 'stat'
 											act 'Continue':
 												cla & *clr
-												'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_11.jpg"></center>'	
+												'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_11.jpg"></center>'
 												'For the first time, you see a smile on your rapist''s face. It''s a cruel, sadistic smile. He asks: "Well, how do you feel?"'
 												'You cry out: "How the fuck do you think I feel!? Fuck you!"'
 												'He''s infuriated by your swearing, and balls his fist as he screams: "WHAT!? What did you just say!?'
@@ -2070,19 +2061,13 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 														gs 'clothing', 'wear_last_worn'
 														gs 'underwear', 'wear'
 														gs 'stat'
-														act 'Leave the apartment': 
-															if ParkBench = 1:
-																gt 'park', 'start'
-															else
-																gt 'gskver'
-															end
-														end
+														act 'Leave the apartment': gt $loc, $metka
 													end
 												end
 											end
 										end
 									end
-								end											
+								end
 							else
 								'He nods contently and continues: "Good, now suck my cock."'
 								'You were already expecting him to say that, and nod as you get down on your knees before him. You take his flaccid member in your hand, and obediently close your lips around the head. You gently begin to suck on it, teasing it with your tongue. It''s growing steadily, and you feel it harden inside your mouth.'
@@ -2090,7 +2075,7 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 								gs 'stat'
 								act 'Continue':
 									cla & *clr
-									'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_14.jpg"></center>'	
+									'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_14.jpg"></center>'
 									'Soon you have his dick fully erect and you shamefully realize you''re giving this blowjob way more effort than you probably should, given the circumstances. The whole situation has you rather aroused despite the start, and you feel a burning desire between your legs.'
 									gs 'arousal', 'bj', 5, 'unknown', 'sub', 'humiliation'
 									gs 'stat'
@@ -2134,13 +2119,7 @@ if $ARGS[0] = 'sleeping_parc_alco_rape':
 													gs 'clothing', 'wear_last_worn'
 													gs 'underwear', 'wear'
 													gs 'stat'
-													act 'Leave the apartment':
-														if ParkBench = 1:
-															gt 'park', 'start'
-														else
-															gt 'gskver'
-														end
-													end
+													act 'Leave the apartment': gt $loc, $metka
 												end
 											end
 										end

locations/postoffice.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'start':
 		if exhibitionist_lvl > 2:
 			act 'Flash both your tits and your pussy to skip the line':
 				cls
-				gs 'flash', 'full', 'indoors', 5
+				gs 'flash', 'full', 'inside', 5
 				gs 'stat'
 
 				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
@@ -31,7 +31,7 @@ if $ARGS[0] = 'start':
 		if exhibitionist_lvl > 1:
 			act 'Flash your pussy to skip the line':
 				cls
-				gs 'flash', 'pussy', 'indoors', 5
+				gs 'flash', 'pussy', 'inside', 5
 				gs 'stat'
 
 				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
@@ -41,7 +41,7 @@ if $ARGS[0] = 'start':
 		if exhibitionist_lvl > 0 or pcs_inhib >= 45:
 			act 'Flash your tits to skip the line':
 				cls
-				gs 'flash', 'tits', 'indoors', 5
+				gs 'flash', 'tits', 'inside', 5
 				gs 'stat'
 
 				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'

locations/preSYS2.qsrc

@@ -392,7 +392,6 @@ if $ARGS[0] = 'modatt':
 	gs 'preSYS2', 'modrel_setup2', 'pcs_heels', 'Heels'
 	'</table></center>'
 	nl
-	'Note: Exhibitionism will reset to 50 maximum if set high once the game starts.'
 
 	act 'Return': gt'preSYS2','start'
 end
@@ -735,7 +734,7 @@ end
 
 if $ARGS[0] = 'modrel_out':
 	$metka = 'modrel_out'
-	'<center><b>Popular kids relationship levels</b></center>'
+	'<center><b>Outcast kids relationship levels</b></center>'
 	*nl
 	*nl
 	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
@@ -749,7 +748,7 @@ end
 
 if $ARGS[0] = 'modrel_tea':
 	$metka = 'modrel_tea'
-	'<center><b>Popular kids relationship levels</b></center>'
+	'<center><b>Teacher relationship levels</b></center>'
 	*nl
 	*nl
 	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'

locations/preTG.qsrc

@@ -436,15 +436,15 @@ if $ARGS[0] = 'sleepPRE':
 		*nl
 		'"Well, yes. I won''t argue about that." Tatiana agrees. "It''s your life and you decide what you do with it, but for the time being, you cannot go back to your old life, so deal with it. On a side note, I already took care of an alibi. Today Michael crashed his car into the pit and died, it''s on the news." With these words, Tatiana picked up the remote and turned on the TV.'
 
-		$pcs_firstname = input("What is your first name? (Leave blank for default)")
+		$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
 
 		if $pcs_firstname = '': $pcs_firstname = 'Svetlana'
 
-		$pcs_lastname = input("What is your last name? (Leave blank for default)")
+		$pcs_lastname = input("What is your last name? (Leave blank for Lebedev)")
 
 		if $pcs_lastname = '': $pcs_lastname = 'Lebedev'
 
-		$pcs_nickname = input("What is your nickname? (Note: If you chose a custom name, you have to enter something here!)")
+		$pcs_nickname = input("What is your alternative first name? (Leave blank for Sveta - this is your familiar name so re-enter first name if you do not want one)")
 
 		if $pcs_nickname = '': $pcs_nickname = 'Sveta'
 

locations/sauna.qsrc

@@ -104,13 +104,18 @@ if $ARGS[0] = 'saunaroom':
 
 	if workDolg > 0:
 
-		act 'Have some food (0:15)':gs 'food', 'snack'
-		act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
-
+		act 'Have some food (0:15)':
+			gs 'food', 'snack'
+			workDolg += 100
+		end
+		act 'Drink some water (0:05)':
+			gs 'beverage', 'bev_wat'
+			workDolg += 50
+		end
 		act 'Borrow cosmetics':
 			workDolg += 1000
 			kosmetica += 25
-			gt $curloc
+			gt 'sauna', 'saunaroom'
 		end
 	end
 	if workDolg <= 0 and SaunaWhore > 0:
@@ -121,7 +126,12 @@ if $ARGS[0] = 'saunaroom':
 				money -= 100
 			end
 		end
-		act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
+		if money >= 50:
+			act 'Drink some water (0:05)':
+				gs 'beverage', 'bev_wat'
+				money -= 50
+			end
+		end
 
 		dynamic $fatdel
 		dynamic $lekarstvo
@@ -147,6 +157,7 @@ if $ARGS[0] = 'saunaroom':
 			end
 		else
 			act '<<$sleep_txt>>':
+				workDolg += 850
 				if disable_autosave = 0:
 					if StoryLine = 0:
 						savegame 'autosave.sav'

locations/saveupdater.qsrc

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

locations/sell_young_clothes.qsrc

@@ -12,7 +12,7 @@ if $ARGS[0] = 'start':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'young_shop', 'start'
 	end
 
@@ -41,7 +41,7 @@ if $ARGS[0] = 'shoes':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'young_shop', 'start'
 	end
 
@@ -67,7 +67,7 @@ if $ARGS[0] = 'panties':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'young_shop', 'start'
 	end
 
@@ -99,7 +99,7 @@ if $ARGS[0] = 'bras':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'young_shop', 'start'
 	end
 
@@ -131,7 +131,7 @@ if $ARGS[0] = 'purses':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'young_shop', 'start'
 	end
 

locations/sexshop.qsrc

@@ -156,27 +156,27 @@ if $ARGS[0] = 'start':
 	end
 
 	act 'Look through the fetish clothing':
-		minut += 1
+		minut += 5
 		gt 'sexshop', 'clo'
 	end
 
 	act 'Look through the burlesque clothing':
-		minut += 1
+		minut += 5
 		gt 'sexshop', 'clo2'
 	end
 
 	act 'Look through the panties':
-		minut += 1
+		minut += 5
 		gt 'sexshop', 'panties'
 	end
 
 	act 'Look through the bras':
-		minut += 1
+		minut += 5
 		gt 'sexshop', 'bras'
 	end
 
 	act 'Look through the fetish shoes':
-		minut += 1
+		minut += 5
 		gt 'sexshop', 'shoes'
 	end
 	
@@ -192,7 +192,7 @@ if $ARGS[0] = 'start':
 				lubri += portion * 5
 				money -= portion * 300
 				minut += 5
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 				'You bought some lubricant and paid the cashier.'
 			end
 
@@ -224,7 +224,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			dildo = 1
 			money -= 800
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
@@ -240,7 +240,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			middildo = 1
 			money -= 850
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 15cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -256,7 +256,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			largedildo = 1
 			money -= 900
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 20cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -269,10 +269,10 @@ if $ARGS[0] = 'start':
 		act 'Buy 25cm long dildo (950 <b>₽</b>)':
 			cla
 			*clr
-			minut += 15
+			minut += 5
 			bigdildo = 1
 			money -= 950
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 25cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -288,7 +288,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			extradildo = 1
 			money -= 1000
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 30cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -304,7 +304,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			superdildo = 1
 			money -= 1100
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 35cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -320,7 +320,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			maddildo = 1
 			money -= 1200
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 40cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -336,7 +336,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			vibrator = 1
 			money -= 800
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a vibrator and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
@@ -352,19 +352,19 @@ if $ARGS[0] = 'start':
 			minut += 5
 			strapon = 1
 			money -= 1200
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a strapon and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
 		end
-	elseif money >= 500 and strapon = 0:
+	elseif money >= 500 and strapon = 0 and dildo = 1:
 		act 'Buy a strapon harness (500 <b>₽</b>)':
 			cla
 			*clr
 			minut += 5
 			strapon = 1
 			money -= 500
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a strapon and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
@@ -380,7 +380,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			analplug = 1
 			money -= 800
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a butt plug and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
@@ -402,7 +402,7 @@ if $ARGS[0] = 'clo':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sexshop', 'start'
 	end
 
@@ -489,7 +489,7 @@ if $ARGS[0] = 'clo2':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sexshop', 'start'
 	end
 
@@ -533,7 +533,7 @@ if $ARGS[0] = 'shoes':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sexshop', 'start'
 	end
 
@@ -559,7 +559,7 @@ if $ARGS[0] = 'panties':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sexshop', 'start'
 	end
 
@@ -591,7 +591,7 @@ if $ARGS[0] = 'bras':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sexshop', 'start'
 	end
 

locations/skverdin.qsrc

@@ -216,7 +216,7 @@ $d_pp_goend = {
 
 		act 'Leave':
 			gs 'arousal', 'end'
-			gt 'gskver'
+			gt 'gskver', 'start'
 		end
 	end
 }

locations/sportShop.qsrc

@@ -2,10 +2,7 @@
 
 if $ARGS[0] = 'start':
     $location_type = 'public_indoors'
-	cla
-	clr
-	*clr
-	minut += 5
+	cls
 	gs 'stat'
 	if night_mode = 1:
 		fcolor = rgb(255, 255, 255)
@@ -29,30 +26,30 @@ if $ARGS[0] = 'start':
 
 	act 'View sports clothes':
 		cla
-		minut += 1
+		minut += 5
 		gt 'sportshop', 'clo'
 	end
 
 	act 'View exercise shoes':
-		minut += 1
+		minut += 5
 		gt 'sportshop', 'trainers'
 	end
 
 	act 'View swimwear':
 		cla
-		minut += 1
+		minut += 5
 		gt 'sportshop', 'swim'
 	end
 
 	act 'View sports bras':
 		cla
-		minut += 1
+		minut += 5
 		gt 'sportshop', 'bras'
 	end
 
 	act 'View sports panties':
 		cla
-		minut += 1
+		minut += 5
 		gt 'sportshop', 'panties'
 	end
 
@@ -102,7 +99,7 @@ if $ARGS[0] = 'clo':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sportshop', 'start'
 	end
 
@@ -135,7 +132,7 @@ if $ARGS[0] = 'trainers':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sportShop', 'start'
 	end
 
@@ -160,7 +157,7 @@ if $ARGS[0] = 'swim':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sportshop', 'start'
 	end
 
@@ -196,7 +193,7 @@ if $ARGS[0] = 'panties':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sportShop', 'start'
 	end
 
@@ -228,7 +225,7 @@ if $ARGS[0] = 'bras':
 
 	act 'Return':
 		cla
-		minut += 5
+		minut += 1
 		gt 'sportShop', 'start'
 	end
 

locations/stat_display.qsrc

@@ -666,14 +666,14 @@ if dirtyclothes = 1 and swamp_clothes = 0:
 	end
 end
 
-if lactate = 1 and night_mode = 0:
+if lactate = 1:
 	if lactatemv >= lactatemm-1:
-		if lact_engorgement > 3 and lact_engorgement <= 6:
+		if lact_engorgement > 0 and lact_engorgement < 3:
+			$stat_msg += '<BR><font color = orange>Your breasts are so full they hurt.</font><BR>'
+		elseif lact_engorgement > 3 and lact_engorgement <= 6:
 			$stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel milk seeping out.</font><BR>'
 		elseif lact_engorgement > 6:
 			$stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk spraying out.</font><BR>'
-		else
-			$stat_msg += '<BR><font color = orange>Your breasts are so full they hurt.</font><BR>'
 		end
 		if $clothingworntype = 'nude' and lactatemess > 0:
 			if lactatemess < 3:
@@ -1329,4 +1329,3 @@ end
 
 --- stat_display ---------------------------------
 
->>>>>>> 48c11b415a2f0467c4e8bcf088acba01ca5cc362

locations/street.qsrc

@@ -85,18 +85,7 @@ if home_owned[1] > 0:
 	end
 end
 
-act 'Wait':
-	cla
-	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-	if waiting <= 0 or waiting > 120:
-		minut += 15
-	elseif waiting > 0 and waiting <= 120:
-		minut += waiting
-	end
-
-	act 'Take a look at the clock':gt curloc
-end
+act 'Wait':gs 'obj_din', 'wait'
 
 gs 'taxi'
 

locations/stripclub.qsrc

@@ -19,20 +19,9 @@ if $ARGS[0] = 'start':
 	
 	if hour = 2:
 		'The strip club is closing and security guard ushers everyone out.'
-	elseif hour > 2 and hour < 15:
+	elseif hour > 2 and hour < 11:
 		'The strip club is closed. You notice a sign on the door: The business hours are between 15 - 02.'
 	else
-
-		if rand(1, 100) <= 30 and stripday ! daystart:
-			stripday = daystart
-			cfnm = 1
-		elseif stripday ! daystart:
-			stripday = daystart
-			cfnm = 0
-		end
-
-		if cfnm = 1:'Tonight''s performance will only feature male strippers. The entrance fee is 500 <b>₽</b>.'
-		if cfnm = 0:'Tonight''s performance will only feature female strippers. The entrance fee is 300 <b>₽</b>.'
 		
 		if stripdolg > 0:
 			if money >= 50000:
@@ -144,13 +133,7 @@ if $ARGS[0] = 'start':
 					end
 				end
 			end
-
-			if cfnm = 0 and stripwork > 0:
-				act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
-			
-			elseif cfnm > 0 and stripwork > 0:
-				'The strip club is closed off to female employees today, male strippers only.'
-			end
+			act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
 		end
 	end
 

locations/stwork.qsrc

@@ -38,46 +38,45 @@ if $ARGS[0] = 'start':
 
 	publichot = pcs_dancero/2 + pcs_apprnc/4 + city_stripping/4 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5 + stripKoef6 + stripKoef7
 	publichotstart = publichot
-
-	if hour >= 18 or hour <= 2:
-		if cumloc[1] = 0 and cumloc[2] = 0 and cumloc[4] = 0 and cumloc[5] = 0 and cumloc[6] = 0 and cumloc[7] = 0 and cumloc[11] = 0 and cumloc[14] = 0:
-			if pcs_makeup >= 4:
-				if pcs_hairbsh = 1:
-					if pcs_sweat < 20:
-						if pcs_leghair <= 3 and pcs_pubes <= 3:
-							if fingal <= 0:
-								act '<b>Go on stage</b>':stpredmet = 3 & gt 'stwork2', 'strip'
+	act 'Exit the club':gt 'stripclub', 'start'
+	act '<b>Go on stage</b>':
+		if hour >= 11 or hour <= 2:
+			if cumloc[1] = 0 and cumloc[2] = 0 and cumloc[4] = 0 and cumloc[5] = 0 and cumloc[6] = 0 and cumloc[7] = 0 and cumloc[11] = 0 and cumloc[14] = 0:
+				if pcs_makeup >= 4:
+					if pcs_hairbsh = 1:
+						if pcs_sweat < 20:
+							if pcs_leghair <= 3 and pcs_pubes <= 19:
+								if fingal <= 0:
+									stpredmet = 3 & gt 'stwork2', 'strip'
+								else
+									'You aren''t allowed on stage, because of the black eye.'
+								end
 							else
-								'You aren''t allowed on stage, because of the black eye.'
+								'Nobody wants to see a stripper with hairy legs and untrimmed pubes. Have a shave before you go on stage!'
 							end
 						else
-							'Nobody wants to see a stripper with hairy legs and hairy pubes. Have a shave before you go on stage.'
+							'Damn, you stink like a pigsty, take a shower before going on stage.'
 						end
 					else
-						'Damn, you stink like a pigsty, take a shower before going on stage.'
+						'The least you can do is brush your hair.'
 					end
 				else
-					'The least you can do is brush your hair.'
+					'You need to put on very thick makeup if you want people to be impressed by your beauty.'
 				end
 			else
-				'You need to put on very thick makeup if you want people to be impressed by your beauty.'
+				'There is some visible semen on your body. Wash yourself off before going on stage.'
 			end
 		else
-			'There is some visible semen on your body. Wash yourself off before going on stage.'
+			'You''re done for today. Time to head home.'
 		end
-	else
-		'You''re done for today. Time to head home.'
 	end
-	
+	act 'Use staff toilet':gt 'stwork', 'toilet'
+	act 'Look in the mirror': gt 'mirror', 'start'
+	act 'Change your clothes':gt 'wardrobe', 'start'
 	act 'Have a cup of water (0:05)':gs 'beverage', 'bev_wat'
 	if money >= 100:
 		act 'Have a snack (0:05) (100 <b>₽</b>)': money -= 100 & gs 'food', 'snack'
 	end
-	act 'Look in the mirror': gt 'mirror', 'start'
-	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
-	act 'Change your clothes':gt 'wardrobe', 'start'
-	act 'Use staff toilet':gt 'stwork', 'toilet'
-	act 'Exit the club':gt 'stripclub', 'start'
 end
 
 if $ARGS[0] = 'stripgirl':
@@ -122,14 +121,31 @@ if $ARGS[0] = 'toilet':
 	''
 	'You enter a dirty and smelly staff bathroom that''s probably never been cleaned.'
 	'There is no mirror, only a grimy shower, toilet, and basin'
-
+	act 'Leave the toilet':gt 'stwork', 'start'
+	act 'Have a shower and get ready for work':
+		cls
+		dynamic $showerdin
+		minut += 10
+		makupskl_exp += rand(1,3)
+		kosmetica -= 3
+		vidageday -= 1
+		pcs_makeup = 4
+		pcs_hairbsh = 1
+		'<h3>Staf Toilet</h3>'
+		'<h5>Shower</h5>'
+		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelShower.jpg"></center>'
+		*nl
+		'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly, brush your hair, and put on heavy you makeup for the customers.'
+		dynamic $brit
+		act 'Get out and dry off':gt $locM, $metkaM
+	end
 	act 'Have a shower':
 		cls
 		dynamic $showerdin
 		'<h3>Staf Toilet</h3>'
 		'<h5>Shower</h5>'
 		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelShower.jpg"></center>'
-		''
+		*nl
 		'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly to be as clean as possible for potential customers.'
 		dynamic $brit
 		act 'Get out and dry off':gt $locM, $metkaM
@@ -157,8 +173,6 @@ if $ARGS[0] = 'toilet':
 	dynamic $tampon
 	dynamic $quickwash
 	dynamic $basin
-
-	act 'Leave the toilet':gt 'stwork', 'start'
 end
 
 --- stwork ---------------------------------

locations/stwork2.qsrc

@@ -6,18 +6,19 @@ if $ARGS[0] = 'strip':
 	'<center><b><font color="maroon">Stage</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'
 
-	if publichot < 10:$pubhot = 'booing you, you hear someone shout, "Get this stupid cow off the stage."'
-	if publichot >= 10 and publichot < 20:$pubhot = 'clearly showing discontent with your dancing. They want you off the stage as quickly as possible.'
-	if publichot >= 20 and publichot < 30:$pubhot = 'clearly looking bored, drinking and talking among themselves, ignoring you.'
-	if publichot >= 30 and publichot < 60:$pubhot = 'sometime looking at you, smiling and enjoy the performance.'
-	if publichot >= 60 and publichot < 70:$pubhot = 'watching you with genuine interest while conversing with each other over their beers.'
-	if publichot >= 70 and publichot < 80:$pubhot = 'having their attention focused on you.'
-	if publichot >= 80 and publichot < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
-	if publichot >= 90:$pubhot = 'completely indulged in you. They''re clapping and waving money at you trying to get you attention.'
+	if striptip < 10:$pubhot = 'booing you, you hear someone shout, "Get this stupid cow off the stage."'
+	if striptip >= 10 and striptip < 20:$pubhot = 'clearly showing discontent with your dancing. They want you off the stage as quickly as possible.'
+	if striptip >= 20 and striptip < 30:$pubhot = 'clearly looking bored, drinking and talking among themselves, ignoring you.'
+	if striptip >= 30 and striptip < 60:$pubhot = 'sometime looking at you, smiling and enjoy the performance.'
+	if striptip >= 60 and striptip < 70:$pubhot = 'watching you with genuine interest while conversing with each other over their beers.'
+	if striptip >= 70 and striptip < 80:$pubhot = 'having their attention focused on you.'
+	if striptip >= 80 and striptip < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
+	if striptip >= 90:$pubhot = 'completely indulged in you. They''re clapping and waving money at you trying to get you attention.'
 
 	'There are men sitting in front of the stage <<$pubhot>>.'
 
-	if hour >= 18 or hour <= 2:
+	if hour >= 11 or hour <= 2:
+		if stpredmet = 3:lapdance = 0
 		if stpredmet > 0:
 			act 'Striptease 5 minutes (<<stpredmet>> items of clothing)':
 				cls
@@ -25,7 +26,6 @@ if $ARGS[0] = 'strip':
 				stpredmet -= 1
 				pcs_sweat += 5
 				fat -= 3
-				pcs_mood -= rand(2, 6)
 				dancero_exp += rand(2, 4)
 				inhib_exp += rand(2,5)
 				city_stripping += rand(1,2)
@@ -33,9 +33,8 @@ if $ARGS[0] = 'strip':
 				if stpredmet = 1:pcs_sweat += 5
 				if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
 
-				publichot += rand(pcs_dancero/5, pcs_dancero/3)
-
-				if publichotstart = publichot: publichot -= rand(5, 10) & publichotstart = publichot
+				striptip = rand(pcs_dancero,100)
+				lapdance += striptip
 
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
@@ -45,7 +44,7 @@ if $ARGS[0] = 'strip':
 					vesrand = rand(0, 100)
 
 					if vesrand >= 75:
-						publichot -= rand(5, 10)
+						striptip -= rand(5, 10)
 						'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
 					end
 				end
@@ -70,10 +69,9 @@ if $ARGS[0] = 'strip':
 				if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
 
 				!pcs_hairbsh = 0
-				publichot += rand(pcs_dancero / 10, pcs_dancero / 5)+ rand(pcs_dancpol / 5, pcs_dancpol / 2)
-
-				if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
-
+				striptip = rand(pcs_dancpol,100)
+				lapdance += striptip
+				
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
 				'You step up on the stage and the music starts. You grab hold of the pole and acrobatically slide around it while you teasingly undress.'
@@ -83,7 +81,7 @@ if $ARGS[0] = 'strip':
 
 					if vesrand >= 75:
 						'Performing another trick on the pole you can not support your weight and fall flat to the floor. The crowd laughs, "Hey, hippopotamus, stomp back to the swamp where you came from."'
-						publichot -= 15
+						striptip -= 15
 						fingalrand = rand(0, 100)
 						if fingalrand >= 75:
 							fingal += rand(2, 5)
@@ -93,7 +91,7 @@ if $ARGS[0] = 'strip':
 						end
 					end
 					if vesrand >= 50:
-						publichot -= rand(5, 10)
+						striptip -= rand(5, 10)
 						'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
 					end
 				end
@@ -105,9 +103,9 @@ if $ARGS[0] = 'strip':
 		end
 
 		if stpredmet = 0:
-			if publichot >= 70:
+			if lapdance >= 150:
 				privatrand = rand(0, 100)
-				if privatrand >= 70:
+				if privatrand >= 50:
 					'After you finish dance, the security guard approaches you and tells you that you have a customer wanting a private show.'
 					gs 'stwork2', 'privatdance'
 					exit
@@ -126,19 +124,19 @@ if $ARGS[0] = 'tipcalculator':
 	paymin = 0
 	paymax = 0
 	
-	if publichot < 30:
+	if striptip < 30:
 		'Nobody even noticed you or your efforts on the stage.'
-	elseif publichot < 60:
+	elseif striptip < 60:
 		'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
-	elseif publichot < 70:
+	elseif striptip < 70:
 		paymax = 1
 		if payrand = 0: 'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
-	elseif publichot < 80:
+	elseif striptip < 80:
 		chance = 5
 		paymin = 3
 		paymax = 10
 		'The customers are pleased with your performance. They give you a small tip.'
-	elseif publichot < 90:
+	elseif striptip < 90:
 		chance = 10
 		paymin = 10
 		paymax = 50

locations/succubus.qsrc

@@ -775,7 +775,7 @@ if $args[0] = 'sucwalkinggo':
 		elseif sucslpzone = 2:
 			if sctemp = 1: $sucgoloc = 'pavCommercial' & $sucgometka = ''
 			if sctemp = 2: $sucgoloc = 'pavResidential' & $sucgometka = ''
-			if sctemp = 3: $sucgoloc = 'gskver' & $sucgometka = ''
+			if sctemp = 3: $sucgoloc = 'gskver' & $sucgometka = 'start'
 			if sctemp = 4: $sucgoloc = 'vokzalG' & $sucgometka = ''
 			if sctemp = 5: $sucgoloc = 'gLake' & $sucgometka = ''
 		elseif sucslpzone = 3:

locations/svidboy.qsrc

@@ -52,6 +52,7 @@ end
 if $ARGS[0] = 'parksvid':
 	if $home_town = 'pavlovsk':
 		$svidboy_home = 'gskver'
+		$svidboy_home_arg = 'start'
 	else
 		$svidboy_home = 'park'
 		$svidboy_home_arg = 'start'
@@ -201,6 +202,7 @@ end
 if $ARGS[0] = 'parksvid21':
 	if $home_town = 'pavlovsk':
 		$svidboy_home = 'gskver'
+		$svidboy_home_arg = 'start'
 	else
 		$svidboy_home = 'park'
 		$svidboy_home_arg = 'start'
@@ -243,6 +245,7 @@ end
 if $ARGS[0] = 'parksvid22':
 	if $home_town = 'pavlovsk':
 		$svidboy_home = 'gskver'
+		$svidboy_home_arg = 'start'
 	else
 		$svidboy_home = 'park'
 		$svidboy_home_arg = 'start'

locations/swamphouse.qsrc

@@ -176,6 +176,11 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			end
 		end
 	end
+	if breastpump > 0:
+		act 'Use breast pump':
+			gt 'lact_lib', 'bp_milking'
+		end
+	end
 	if klismaday ! daystart and swamp_enema = 1 and analplugin = 0 and hour >= 8 and hour < 20 and hanters = 1 or klismaday ! daystart and swamp_enema = 1 and analplugin = 0 and hanters = 0:
 		act 'Perform an enema':
 			cla

locations/telefon.qsrc

@@ -769,7 +769,19 @@ if $ARGS[0] = 'Phone_notebook':
 	pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
 end &! --- Phone_notebook ---
 
+!!----------------------------------------Camera-------------------------------------------------
+
+!!For setting the total numbers of selfies
+if $ARGS[0] = 'Phone_selfie_totals':
+	bathroom_clotot = 20
+	bathroom_undtot = 20
+	bathroom_nudtot = 20
+end
+
+
+!!for viewing photos on your phone
 if $ARGS[0] = 'Phone_pictures':
+	gs 'telefon', 'Phone_selfie_totals'
 	clr
 	pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
 	pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
@@ -777,60 +789,48 @@ if $ARGS[0] = 'Phone_pictures':
 	pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_pictures.png" height="80" width="80"><br></center>'
 	if phone_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie1.jpg''"><b>Selfie number1</b></a>'
 	if phone_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie2.jpg''"><b>Selfie number2</b></a>'
-	if vanr_selfie[0] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (0).jpg''"><b>After shower selfie number1</b></a>'
-	if vanr_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (1).jpg''"><b>After shower selfie number2</b></a>'
-	if vanr_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (2).jpg''"><b>After shower selfie number3</b></a>'
-	if vanr_selfie[3] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (3).jpg''"><b>After shower selfie number4</b></a>'
-	if vanr_selfie[4] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (4).jpg''"><b>After shower selfie number5</b></a>'
-	if vanr_selfie[5] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (5).jpg''"><b>After shower selfie number6</b></a>'
-	if vanr_selfie[6] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (6).jpg''"><b>After shower selfie number7</b></a>'
-	if vanr_selfie[7] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (7).jpg''"><b>After shower selfie number8</b></a>'
-	if vanr_selfie[8] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (8).jpg''"><b>After shower selfie number9</b></a>'
-	if vanr_selfie[9] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (9).jpg''"><b>After shower selfie number10</b></a>'
-	if vanr_selfie[10] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (10).jpg''"><b>After shower selfie number11</b></a>'
-	if vanr_selfie[11] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (11).jpg''"><b>After shower selfie number12</b></a>'
-	if vanr_selfie[12] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (12).jpg''"><b>After shower selfie number13</b></a>'
-	if vanr_selfie[13] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (13).jpg''"><b>After shower selfie number14</b></a>'
-	if vanr_selfie[14] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (14).jpg''"><b>After shower selfie number15</b></a>'
-	if vanr_selfie[15] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (15).jpg''"><b>After shower selfie number16</b></a>'
-	if vanr_selfie[16] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (16).jpg''"><b>After shower selfie number17</b></a>'
-	if vanr_selfie[17] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (17).jpg''"><b>After shower selfie number18</b></a>'
-	if vanr_selfie[18] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (18).jpg''"><b>After shower selfie number19</b></a>'
-	if vanr_selfie[19] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (19).jpg''"><b>After shower selfie number20</b></a>'
-	!if vanr_selfie[20] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (20).jpg''"><b>After shower selfie number21</b></a>'
-	if vanr_selfie[21] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (21).jpg''"><b>After shower selfie number22</b></a>'
-	if vanr_selfie[22] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (22).jpg''"><b>After shower selfie number23</b></a>'
-	if vanr_selfie[23] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (23).jpg''"><b>After shower selfie number24</b></a>'
-	if vanr_selfie[24] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (24).jpg''"><b>After shower selfie number25</b></a>'
-	if vanr_selfie[25] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (25).jpg''"><b>After shower selfie number26</b></a>'
-	if vanr_selfie[26] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (26).jpg''"><b>After shower selfie number27</b></a>'
-	if vanr_selfie[27] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (27).jpg''"><b>After shower selfie number28</b></a>'
-	if vanr_selfie[28] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (28).jpg''"><b>After shower selfie number29</b></a>'
-	if vanr_selfie[29] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (29).jpg''"><b>After shower selfie number30</b></a>'
-	if vanr_selfie[30] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (30).jpg''"><b>After shower selfie number31</b></a>'
-	if vanr_selfie[31] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (31).jpg''"><b>After shower selfie number32</b></a>'
-	if vanr_selfie[32] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (32).jpg''"><b>After shower selfie number33</b></a>'
-	if vanr_selfie[33] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (33).jpg''"><b>After shower selfie number34</b></a>'
-	if vanr_selfie[34] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (34).jpg''"><b>After shower selfie number35</b></a>'
-	if vanr_selfie[35] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (35).jpg''"><b>After shower selfie number36</b></a>'
-	if vanr_selfie[36] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (36).jpg''"><b>After shower selfie number37</b></a>'
-	if vanr_selfie[37] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (37).jpg''"><b>After shower selfie number38</b></a>'
-	if vanr_selfie[38] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (38).jpg''"><b>After shower selfie number39</b></a>'
-	!if phone_selfie[m] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiem.jpg''"><b>Photo in sperm number1</b></a>'
-	!if phone_selfie[n] = 1:pl'<a href="exec:view''images/system/phone/phone_selfien.jpg''"><b>Photo in sperm number2</b></a>'
-	!if phone_selfie[x] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiex.jpg''"><b>Photo Event number1</b></a>'
-	!if phone_selfie[y] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiey.jpg''"><b>Photo Event number2</b></a>'
+	bathroom_clocnt = 1
+	:bathroom_cloloop
+		if bathroom_closelfie[bathroom_clocnt] = 1:pl'<a href="exec:view''images/pc/selfies/bathroom/clothed/<<bathroom_clocnt>>.jpg''"><b>Clothed bathroom selfie #<<bathroom_clocnt>></b></a>'
+		bathroom_clocnt += 1
+	if bathroom_clocnt <= bathroom_clotot: jump'bathroom_cloloop'
+
+	bathroom_undcnt = 1
+	:bathroom_undloop
+		if bathroom_undselfie[bathroom_undcnt] = 1:pl'<a href="exec:view''images/pc/selfies/bathroom/underwear/<<bathroom_undcnt>>.jpg''"><b>Underwear bathroom selfie #<<bathroom_undcnt>></b></a>'
+		bathroom_undcnt += 1
+	if bathroom_undcnt <= bathroom_undtot: jump'bathroom_undloop'
+
+	bathroom_nudcnt = 1
+	:bathroom_nudloop
+		if bathroom_nudselfie[bathroom_nudcnt] = 1:pl'<a href="exec:view''images/pc/selfies/bathroom/nude/<<bathroom_nudcnt>>.jpg''"><b>Nude bathroom selfie #<<bathroom_nudcnt>></b></a>'
+		bathroom_nudcnt += 1
+	if bathroom_nudcnt <= bathroom_nudtot: jump'bathroom_nudloop'
+
+	*nl
 	pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
-end &! --- Phone_pictures ---
+end
 
+!!picking the selfie image when taking photos
 if $ARGS[0] = 'Phone_camera_selfie':
-	if ($loc = 'vanrPar' or $loc = 'vanr' or $loc = 'yvan') and mirror_steam = hour:
+	gs 'telefon', 'Phone_selfie_totals'
+	if $location_type = 'bathroom':
 		minut += RAND(5,7)
-		phone_rand = RAND(0,38)
-		vanr_selfie[phone_rand] = 1
+		if $clothingworntype ! 'nude':
+			phone_rand = rand(1,bathroom_clotot)
+			bathroom_closelfie[phone_rand] = 1
+			view 'images/pc/selfie/bathroom/clothed/<<phone_rand>>.jpg'
+		elseif $pantyworntype ! 'none':
+			phone_rand = rand(1,bathroom_undtot)
+			bathroom_undselfie[phone_rand] = 1
+			view 'images/pc/selfie/bathroom/underwear/<<phone_rand>>.jpg'
+		else
+			phone_rand = rand(1,bathroom_nudtot)
+			bathroom_nudselfie[phone_rand] = 1
+			view 'images/pc/selfie/bathroom/nude/<<phone_rand>>.jpg'
+		end
 		gs 'stat'
 		gs 'telefon', 'Phone_pictures'
-		view 'images/system/phone/selfie/bathroom/s (<<phone_rand>>).jpg'
 	else
 		minut += RAND(5,7)
 		phone_rand = RAND(1,2)
@@ -842,8 +842,9 @@ if $ARGS[0] = 'Phone_camera_selfie':
 	!if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
 	!if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
 	!view 'images/system/phone/phone_selfie<<phone_rand>>.jpg'
-end &! --- Phone_camera_selfie ---
+end
 
+!!for taking photos - only selfies for now
 if $ARGS[0] = 'Phone_camera':
 	clr
 	pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
@@ -852,9 +853,9 @@ if $ARGS[0] = 'Phone_camera':
 	pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"><br></center>'
 	pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a>'
 	pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
-end &! --- Phone_camera ---
-
+end
 
+!!-----------------------------------end of Camera------------------------------------------
 
 if $ARGS[0] = 'Phone_wheather':
 	clr

locations/therapist.qsrc

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

locations/vanrPar.qsrc

@@ -64,7 +64,7 @@ if $ARGS[0] = 'peek':
 				end
 			end
 		end
-	elseif hour >= 18 and hour <= 21 and brother_ev1 ! daystart and rand(0,2) = 1:
+	elseif hour >= 18 and hour <= 23 and brother_ev1 ! daystart and rand(0,4) < 2:
 		cla
 		*clr
 		brother_ev1 = daystart

locations/vokzalGin.qsrc

@@ -99,18 +99,7 @@ if $ARGS[0] = '':
 		end
 	end
 	
-	act 'Wait':
-		cla
-		waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
-
-		if waiting <= 0 or waiting > 120:
-			minut += 15
-		elseif waiting > 0 and waiting <= 120:
-			minut += waiting
-		end
-
-		act 'Take a look at the clock':gt 'vokzalGin'
-	end
+	act 'Wait':gs 'obj_din', 'wait'
 end
 
 if $ARGS[0] = 'work':

locations/young_shop.qsrc

@@ -19,7 +19,7 @@ if $ARGS[0] = 'start':
 
 	if young_shop_work = 0 and young_shop_work1 = 0 and young_shop_work2 = 0:
 		*nl
-		'As you enter, you notice a for hire sign with a note scribbled on it that reads, "<b>The Manager Mr. Sobulyagin works weekdays from 09:00 to 18:00; Applicants should speak to him weekdays BEFORE 14:30!</b>"'
+		'As you enter, you notice a for hire sign with a note scribbled on it that reads, "<b>The Manager Mr. Sobulyagin works weekdays from 09:00 to 20:00, weekends 09:00 to 15:00; Applicants should speak to him weekdays BEFORE 14:30!</b>"'
 		if hour >= 9 and (hour < 15 or (hour = 14 and minut <= 30)) and week < 6:
 			act 'Talk to the manager':
 				minut += 1
@@ -82,27 +82,27 @@ if $ARGS[0] = 'start':
 	end
 
 	act 'Look through the clothes on sale':
-		minut += 1
+		minut += 5
 		gt 'sell_young_clothes', 'start'
 	end
 
 	act 'Look through the panties on sale':
-		minut += 1
+		minut += 5
 		gt 'sell_young_clothes', 'panties'
 	end
 
 	act 'Look through the bras on sale':
-		minut += 1
+		minut += 5
 		gt 'sell_young_clothes', 'bras'
 	end
 
 	act 'Look through the shoes on sale':
-		minut += 1
+		minut += 5
 		gt 'sell_young_clothes', 'shoes'
 	end
 
 	act 'Look through the purses on sale':
-		minut += 1
+		minut += 5
 		gt 'sell_young_clothes', 'purses'
 	end
 
@@ -124,27 +124,27 @@ end
 if $ARGS[0] = 'events':
 	random = rand(1, 80)
 
-	if random < 75:
+	if random > 75:
 		gs 'young_shop', '0'
-	elseif random < 70:
+	elseif random > 70:
 		gs 'young_shop', '1'
-	elseif random < 65:
+	elseif random > 65:
 		gs 'young_shop', '2'
-	elseif random < 60:
+	elseif random > 60:
 		gs 'young_shop', '3'
-	elseif random < 55:
+	elseif random > 55:
 		gs 'young_shop', '4'
-	elseif random < 55:
+	elseif random > 55:
 		gs 'young_shop', '5'
-	elseif random < 45:
+	elseif random > 45 and week ! 5 and work ! 7:
 		gs 'young_shop', '6'
-	elseif random < 40:
+	elseif random > 40:
 		gs 'young_shop', '7'
-	elseif random < 35:
+	elseif random > 35:
 		gs 'young_shop', '8'
-	elseif random < 30:
+	elseif random > 30:
 		gs 'young_shop', '9'
-	elseif random < 27:
+	elseif random > 27:
 		gs 'young_shop', '10'
 	elseif random = 27:
 		gs 'young_shop', '11'
@@ -351,7 +351,7 @@ if $ARGS[0] = '6':
 
 	act 'Stay for another hour':
 		cla
-		minut+= 70
+		minut += 70
 		young_shop_bonus += 3
 		gs 'stat'
 		'It seems that you have no choice. You can''t let down your co-workers.'

locations/zsoft_gopskverGorSlut.qsrc

@@ -109,7 +109,7 @@ if $ARGS[0] = '1':
 	'You just want a nice, cold beer and decide to take the initiative. You ask them: "Come on boys, why so rude? Surely you''ll give a nice lady a beer?" in a playful tone, taking a seductive pose and giving them your most <<$text_sveta_obol>> smile. The guys look and whisper some things, but <<$shultextrand33>> quickly grins and beckons you to come closer.' 
 	'You shake your hips and teasingly lick your parched <<$liptalk3>>, and for a second you wonder if you''re laying it on too thick as you approach the three guys. You can feel your mouth water when you see the cold beer they''re reaching out to you though.'
 	'<<$shultextrand33>> says <<$shultextrand6>>: "<<$shul_text_byh>>"'
-	act 'Leave':gt'gskver'
+	act 'Leave':gt 'gskver', 'start'
 	act 'Have a beer with the guys':gt'zsoft_gopskverGorSlut','2'
 end
 
@@ -176,7 +176,7 @@ if $ARGS[0] = '2':
 	r_event_p=rand(1,100)
 	if r_event_p <= 15 and alko < 6:'The guys suggest: "Hey <<$pcs_nickname>>, show us your tits!" (<a href="exec:GT ''zsoft_gopskverGorSlut'',''siski''">Show them.</a>)'
 
-	if alko<6:act 'Leave':gt 'gskver'
+	if alko<6:act 'Leave':gt 'gskver', 'start'
 
 	if alko<6:act 'Drink some more with the guys':gt'zsoft_gopskverGorSlut','2'
 	act 'Strike a sexy pose':
@@ -265,7 +265,7 @@ if $ARGS[0] = '2':
 	
 				'<<$cum_face_text>>'
 				dynamic $dinrandcum
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to drinking beer with the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		}
@@ -289,7 +289,7 @@ if $ARGS[0] = '2':
 				if cum_face_textgr = 4:$cum_face_textgr = 'Luckily, you had the guys all pent up and they finish fairly quickly. After they shoot their hot loads of cum all over your face, they carefully wipe their dirty cocks off on your <<$pcs_haircol>> <<$curly>> before letting go of your head.'
 
 				'<<$cum_face_textgr>>'
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		}
@@ -313,7 +313,7 @@ if $ARGS[0] = '2':
 				if cum_mouth_text = 5:$cum_mouth_text = 'He forces his cock down your throat, and he cums while his balls are touching your lips. You nearly suffocate, but he grabs hold of your hair and keeps forcing you down against his groin until he''s done. When he finally shot all his cum down your throat he lets you go, and you gasp for air when you can finally breathe again.'
 
 				'<<$cum_mouth_text>>'	
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		}
@@ -335,7 +335,7 @@ if $ARGS[0] = '2':
 				if cum_mouth_textgr = 3:$cum_mouth_textgr = 'Dan forces his cock down your throat, and he cums while his balls are touching your lips. You nearly suffocate, but he grabs hold of your hair and keeps forcing you down against his groin until he''s done. When he finally shot all his cum down your throat he lets you go, and you gasp for air when you can finally breathe again. Vitek immediately takes his place though, and after a few quick gasps of breath your throat is filled again. Vitek and then Vasily fuck your throat for several more minutes, and eventually both cum in your mouth as well.'
 
 				'<<$cum_mouth_textgr>>'	
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		}
@@ -353,7 +353,7 @@ if $ARGS[0] = '2':
 				'A fountain of cum erupts over your body as he furiously strokes his cock, coating your boobs and stomach with his sperm.'
 
 				!dynamic $dinrandcum
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		}
@@ -374,7 +374,7 @@ if $ARGS[0] = '2':
 				'<<$cumass_text>>'
 				if agape = 3: 'Your anus tore a little from the treatment today, and there is some blood mixed with the sperm leaking from it.'
 				if agape < 3: 'After the cocks you took today, your ass feels a bit sore. It won''t fully close yet, and sperm leaks slowly from it.'
-				act 'Leave the guys alone':gt'gskver'
+				act 'Leave the guys alone':gt 'gskver', 'start'
 				act 'Get back to drinking with the guys':gt'zsoft_gopskverGorSlut','2'	
 			end
 		}
@@ -409,7 +409,7 @@ if $ARGS[0] = '2':
 					if agape = 3: 'Your anus tore a little from the treatment today, and there is some blood mixed with the sperm leaking from it.'
 					if agape < 3: 'After the cocks you took today, your ass feels a bit sore. It still won''t fully close yet, and sperm leaks slowly from it.'
 					'The guys slap each other on the back while they admire their handiwork: "We have a real buttslut on our hands here, boys! Training her is going to be a lot of fun!"'
-					act 'Leave the guys alone':gt'gskver'
+					act 'Leave the guys alone':gt 'gskver', 'start'
 					act 'Get back to drinking with the guys':gt'zsoft_gopskverGorSlut','2'
 				end	
 			end
@@ -429,7 +429,7 @@ if $ARGS[0] = '2':
 				'<center><video autoplay loop src="images/locations/pavlovsk/park/gop/sex/oral/cum/gif/cump'+rand(1,2)+'.mp4"></video></center>'
 				'<<$cumvag_text>>'
 				'You sigh in frustration when he finishes inside you without even asking. Nevertheless... there''s not a whole lot you can do about it now, and getting angry over it will probably just cause trouble with the guys. You squat down and try to push his sperm out of you, while he pulls his pants back up and returns to drinking beer with his buddies, not giving you another thought. As you push your fingers inside your pussy trying to scoop out his load, you think to yourself: "Did I take my pill today? I sure hope so..."'
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		}
@@ -644,7 +644,7 @@ if $ARGS[0] = '2':
 			if rndpsos>15:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/group/oral/o'+rand(1,33)+'.jpg"></center>
 			<<$gop_grup_oral_text>>'
 			if rndpsos<=15:'<<$gop_grup_event>>'
-			if rndpsos<=15: act 'Run away from them':gt'gskver'	
+			if rndpsos<=15: act 'Run away from them':gt 'gskver', 'start'	
 			if rndpsos>15:	
 				act 'Let them do what they want':
 					cls
@@ -701,7 +701,7 @@ if $ARGS[0] = 'piss':
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/vz'+rand(1,3)+'.jpg"></center>'
 				'You offer the policeman 500 <b>₽</b>, which he promptly takes: "Very good, miss... I knew you would be reasonable, from the moment I saw you. Have a good day now."'
 				'They leave without even recording any of your personal information. That fine probably just went straight into their pockets, but at least it got you out of trouble!'
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		end 
@@ -733,7 +733,7 @@ if $ARGS[0] = 'piss':
 				'The policemen drop their loads on your face, slightly adjusting his aim when they cum so they spread their cum absolutely everywhere. With a satisfied nod, they tuck their cocks back into their pants.'
 				'The first policeman says: "Everything seems to be in order here after all, miss. Thank you for your cooperation."'
 				'You hear them laugh as they walk away, while you wipe the cum from your eyes. They might have humiliated you a little, but at least no one else will know!'
-				act 'Leave':gt'gskver'
+				act 'Leave':gt 'gskver', 'start'
 				act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 			end
 		end
@@ -745,7 +745,7 @@ if $ARGS[0] = 'piss':
 		'You excuse yourself and disappear between some brushes to pee. Just when you pull away your clothes and get ready to pee, you hear some branches snapping behind you.' 
 		'When you turn around, you see a guy. You recognize him as one of the regulars in the park, he drinks here quite often, and apparently has to pee just like you.'
 		'For a second you consider getting up and leaving, but you really have to go! You decide to just ignore him and close your eyes, relaxing your muscles. While your pee freely flows out of you, you half expect the guy to move over and drag you away... but he never does. When you''re finished, you look around to see the guy still watching you. You give him a smug smile and walk away as if nothing happened, after straightening your clothes.'
-		act 'Leave':gt'gskver'
+		act 'Leave':gt 'gskver', 'start'
 		act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 	}
 
@@ -818,7 +818,7 @@ if $ARGS[0] = 'piss':
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/but.jpeg"></center>'
 							'You sigh... you''re too exhausted to fight them. If this is what you have to do so they''ll let you go...'
 							'You take the bottle from his hand and slowly guide it towards your pussy, and begin to push it in. After a while they lose interest in you fucking yourself with the bottle and disperse, leaving you by yourself.'
-							act 'Leave':gt'gskver'
+							act 'Leave':gt 'gskver', 'start'
 							act 'Return to your friends':gt'zsoft_gopskverGorSlut','2'
 							end
 					end
@@ -833,7 +833,7 @@ if $ARGS[0] = 'piss':
 		'You can''t help but blush like an embarrassed schoolgirl... but at the same time, you can''t stop the stream and just continue to pee in front of the camera.'
 		'You haven''t felt this embarrassed in a long time... but at the same time, you''ve never felt so empowered! Despite your shame you feel horny, and you have no doubt that your show is arousing the guy that is recording you as well.'
 		'You make a bit of a show out of it, and carefully and leisurely squeeze out the last few drops of urine from your soaking pussy. You moan eagerly and wag your hips to the camera for a few seconds, before adjusting your clothes again and getting ready to leave. If only the guy had made a move... who knows what he could''ve had you do!'
-		act 'Leave':gt'gskver'
+		act 'Leave':gt 'gskver', 'start'
 		act 'Return to the guys':gt'zsoft_gopskverGorSlut','2'
 	}
 
@@ -868,7 +868,7 @@ if $ARGS[0] = 'piss':
 	if r_piss_text = 3:$r_piss_text = 'You quickly pull your clothes to the side and pee. Much better!'
 
 	if ranadpercent>30:'<<$r_piss_text>> Nothing interesting happens.'
-	if ranadpercent>30: act 'Leave':gt'gskver'
+	if ranadpercent>30: act 'Leave':gt 'gskver', 'start'
 	if ranadpercent>30: act 'Return to your friends':gt'zsoft_gopskverGorSlut','2'
 end