Merge branch 'master' into dev

locations/Voltrener.qsrc

@@ -126,6 +126,18 @@ if $ARGS[0] = 'talk':
 					elseif trenerSex = 1:
 						volleysostav = 1
 						'You ask the coach about joining the team, he smiles and says, "<<$pcs_nickname>>, honey. I can do that, but you''ll have to start as a sub or people might be suspicious."'
+					elseif pcs_vball >= 65:
+						'You ask the coach about joining the team, the coach thinks for a minute. "You have good skills for an amateur but you''re still not good enough to start on the team. However, I have a spot for a substitute and we can put you there. How does that sound?"'
+						act 'Leave':gt 'gdksport', 'start'
+						
+						act 'Accept the substitute position':
+							*clr & cla
+							gs 'stat'
+							volleysostav = 1
+							'You accept the substitute position and the coach nods his head in confirmation.'
+							'"Okay, welcome to the team <<$pcs_lastname>>. Remember, tournament matches are on Saturdays. Don''t forget to show up!"'
+							act 'Leave':gt 'gdksport', 'start'
+						end
 					else
 						'You ask the coach about joining the team, the coach thinks for a minute. "I have a spot for a substitute, but I do not know if you have what it takes."'
 						act 'Persuade him':

locations/bras.qsrc

@@ -68,7 +68,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopcheapbras
-	if cheap_brasS[i] = metka_bras and cheap_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/bras/basic/<<i>>.jpg" 	height="300" /></a>'
+	if cheap_brasS[i] = metka_bras and cheap_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/bras/basic/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('cheap_bras'):jump 'loopcheapbras'
 
@@ -76,7 +76,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopboutiquebras 
-	if boutique_brasS[i] = metka_bras and boutique_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/bras/boutique/<<i>>.jpg" 	height="300" /></a>'
+	if boutique_brasS[i] = metka_bras and boutique_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/bras/boutique/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('boutique_bras'):jump 'loopboutiquebras'
 
@@ -84,7 +84,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopexhibitionistbras 
-	if exhibitionist_brasS[i] = metka_bras and exhibitionist_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/bras/exhibitionist/<<i>>.jpg" 	height="300" /></a>'
+	if exhibitionist_brasS[i] = metka_bras and exhibitionist_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/bras/exhibitionist/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('exhibitionist_bras'):jump 'loopexhibitionistbras'
 
@@ -92,7 +92,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopfashionistabras 
-	if fashionista_brasS[i] = metka_bras and fashionista_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/bras/fashionista/<<i>>.jpg" 	height="300" /></a>'
+	if fashionista_brasS[i] = metka_bras and fashionista_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/bras/fashionista/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('fashionista_bras'):jump 'loopfashionistabras'
 
@@ -100,7 +100,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopkatsbras 
-	if kats_brasS[i] = metka_bras and kats_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''kats'', <<i>>"><img src="images/pc/bras/kats/<<i>>.jpg" 	height="300" /></a>'
+	if kats_brasS[i] = metka_bras and kats_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''kats'', <<i>>"><img src="images/pc/bras/kats/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('kats_bras'):jump 'loopkatsbras'
 
@@ -108,7 +108,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopsexshopbras 
-	if sexshop_brasS[i] = metka_bras and sexshop_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/bras/sexshop/<<i>>.jpg" 	height="300" /></a>'
+	if sexshop_brasS[i] = metka_bras and sexshop_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/bras/sexshop/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('sexshop_bras'):jump 'loopsexshopbras'
 
@@ -116,7 +116,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopsportbras 
-	if sport_brasS[i] = metka_bras and sport_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/bras/sport/<<i>>.jpg" 	height="300" /></a>'
+	if sport_brasS[i] = metka_bras and sport_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/bras/sport/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('sport_bras'):jump 'loopsportbras'
 end

locations/foto.qsrc

@@ -290,12 +290,12 @@ if $ARGS[0] = 'studio':
 			elseif pcs_skin < 40:
 				'	"Girl, your face is covered in acne unless you improve your appearance there is no chance of working here."'
 				act 'Leave':minut += 1 & gt 'down'
-			elseif bmi_calc >= foto_weight:
+			elseif bmi_calc >= foto_weight and foto_weight > 0:
 				'	You walk up to the front desk and find the same man who interviewed you previously. He looks up at you from his computer as you approach and frowns.'
 				'	Before you can say anything, he sternly says, "Girl, I told you to lose weight, not put it on! Now get out of here until you slim down some!"'
 				'	The comment turns your face bright red and you stop in your tracks. He stares at you angrily until you slowly start to back up and head towards the door.'
 				act 'Leave':minut += 1 & gt 'down'
-			elseif bmi_calc < foto_weight:
+			elseif bmi_calc < foto_weight and foto_weight > 0:
 				gt'foto','interview2'
 			elseif fotofakepassport = 1:
 				'	You walk up to the front desk and find the same man who "interviewed" you previously. He looks up at you from his computer as you approach.'

locations/mirasex.qsrc

@@ -11,117 +11,145 @@
 !---------------------------------------------
 menu_off = 1
 
-if $ARGS[0] = 'miralick_first':
-	*clr & cla
-	miralick += 1
-	if mirasex = 0:mirasex = 1 & girl += 1
-	if $pantyworntype ! 'none':
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga1.jpg"></center>'
-		'Kneeling down, Mira timidly reaches for your panties. She locks eyes with you and smiles shyly. You relax against the tree, close your eyes and tremble in the anticipation.'
-	else
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga0.jpg"></center>'
-		'Dropping to her knees and not finding you wearing panties, Mira timidly touches your vagina, causing you involuntary moan of pleasure. You lean against the tree, and close your eyes, wait for her to continue...'
-	end
-	gs 'arousal', 'foreplay', 5, 'lesbian'
-	gs 'stat'
-
-	act 'Moan':gt 'mirasex','miralick_stand1'
-end
+!!-------------------------------------------------multi act events---------------------------------------------------
 
 if $ARGS[0] = 'mirakiss':
 	*clr & cla
-	if mirahorny < 60:mirahorny += 5
+	mirahorny += 10
+	svetahorny += 10
 	'<center><img <<$set_imgh>> src="images/characters/village/mira/mirakiss'+rand(1,4)+'.jpg"></center>'
-	if pcs_horny < 60: pcs_horny += 5
 	temp = rand(1,4)
 	if temp = 1:'You passionately bite Mira''s luscious lips. She responds to your kiss no less passionately, causing you to moan out of joy.'
 	if temp = 2:'You kiss Mira feeling her soft lips and her slim nimble tongue penetrate into your mouth.'
 	if temp = 3:'Mira gently kisses your <<$liptalk3>> and you feel the thrill of her kiss washing over you.'
 	if temp = 4:'Mira passionately kisses your <<$liptalk3>> and you return the kiss, feeling the exhilaration in every part of your body.'
 	*nl
-	gs 'arousal', 'kiss', 5, 'lesbian'
+	gs 'arousal', 'kiss', 10, 'lesbian'
+	minut -= 5
 	gs 'stat'
 	if pcs_horny < 20 or mirahorny < 20:
 		act 'Continue kissing':gt 'mirasex','mirakiss'
 	else
-		act 'Continue':gt 'mirasex','foreplay'
+		act 'Escalate':gt 'mirasex','foreplay'
 	end
 end
 
 if $ARGS[0] = 'foreplay':
 	*clr & cla
-	if pcs_horny >= mirahorny:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miraforeplay'+rand(1,4)+'.jpg"></center>'
-		if pcs_horny < 60:pcs_horny += 5
-		temp = rand(1,3)
-		if temp = 1:'You passionately kiss with Mira, stroking her crotch and arousing both of you even more.'
-		if temp = 2:'You give Mira a gentle kiss while stroking her pussy through her panties...'
-		if temp = 3:'You kiss Mira, your <<$liptalk3>> touching her lips in a hot kiss, and your hand on her crotch making her moan excitedly.'
-	else
+	'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miraforeplay'+rand(1,4)+'.jpg"></center>'
+	temp = rand(1,3)
+	if temp = 1:'You passionately kiss with Mira, stroking her crotch and arousing both of you even more.'
+	if temp = 2:'You give Mira a gentle kiss while stroking her pussy through her panties...'
+	if temp = 3:'You kiss Mira, your <<$liptalk3>> touching her lips in a hot kiss, and your hand on her crotch making her moan excitedly.'
+	*nl
+	'Mira starts to unbutton your top.'
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	gs 'stat'
+	act 'Allow her to continue':
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miraforeplay'+rand(5,7)+'.jpg"></center>'
 		temp = rand(1,3)
 		if temp = 1:'Mira fondles your <<tits>> cup breasts, gently squeezing them in her hands and kissing them.'
 		if temp = 2:'You feel her hot breath on your chest, and her slick tongue caressing your nipples and giving you great pleasure.'
 		if temp = 3:'Mira fondles your breasts, gently squeezing them in her hands. She kisses and teases your nipples with her tongue.'
-	end
-	if mirahorny < 80:mirahorny += 5
-	*nl
-	gs 'arousal', 'foreplay', 5, 'lesbian'
-	gs 'stat'
-	if pcs_horny < 40 or mirahorny < 40:
-		act 'Continue to caress her':gt 'mirasex','foreplay'
-	else
-		if pcs_horny >= mirahorny:
-			act 'Lick Mira':gt 'mirasex','lickmira_start'
+		mirahorny += 10
+		svetahorny += 10
+		gs 'arousal', 'foreplay', 5, 'lesbian'
+		gs 'stat'
+		npc_rel['A60'] < 30:
+			act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
 		else
-			act 'Let Mira lick you':gt 'mirasex','miralick_start'
+			act 'Lick Mira':gt 'mirasex','lickmira_start'
 		end
+		act 'Continue':gt 'mirasex','horny_talk'
 	end
 end
 
-if $ARGS[0] = 'miralick_start':
+if $ARGS[0] = 'horny_talk':
 	*clr & cla
-	miralick += 1
-	if $pantyworntype ! 'none':
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga1.jpg"></center>'
-		'Kneeling down, Mira reaches out for your panties with a smile on her face, while looking you in the eyes. You lean against the tree, close your eyes, and wait for her to continue...'
+	mirahorny += 5
+	svetahorny += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/horny_talk.jpg"></center>'
+	'Mira caught your gaze and smiled. She turns you around and lifts your top so she can grope you breast.'
+	'You hold a tree branch for support and let her after a few minutes she guides your free hand into her panties.'
+	'You feel she is quite wet right now! She lets your hand stay in her panties for another couple of moments.'
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	if npc_rel['A60'] < 15:
+		'"Get the fuck off me you slut." Mira says, pulling away. She doesn''t sound convincing but you will have to improve you relationship is you want to take things further.'
+		'She walks home alone singing a song. You watch her for a moment before heading back to the village as well.'
+		act 'Leave':MiraLoc ! 2 & minut += 10 & gt'Gaddvor'
 	else
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga0.jpg"></center>'
-		'Dropping to her knees and not finding any panties, Mira licked your <<$vaginatipe2>> vagina, sampling it''s taste, and causing an involuntary moan of pleasure from you. You lean against the tree, close your eyes, and wait for her to continue...'
+		'Mira moans in enjoyment then starts to pull at your panties.'
+		'You help her pull them down and she step out of them.'
+		act 'Continue':gt 'mirasex','mirafinger'
 	end
-	*nl
-	gs 'arousal', 'foreplay', 5, 'lesbian'
 	gs 'stat'
-	if $pantyworntype ! 'none':
-
-		act 'Stand up':gt 'mirasex','miralick_stand2'
-		act 'Doggy':
-			temp = rand(1,2)
-			if temp = 1:gt 'mirasex','miralick_dog'
-			if temp = 2:gt 'mirasex','mirafinger_dog'
-		end
-	end
+end
 
-	if $pantyworntype = 'none':act 'Moan':gt 'mirasex','miralick_stand2'
+if $ARGS[0] = 'mirafinger':
+	*clr & cla
+	mirahorny += 5
+	svetahorny += 10
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirafinger'+rand(1,4)+'.jpg"></center>'
+	'Mira bends you over and slowly slides her fingers inside you.'
+	$textdog[4]+$textfinger[rand(1,3)]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,4))]
+	gs 'arousal', 'vaginal_finger', 10, 'lesbian'
+	minute -= 5
+	gs 'stat'
+	*nl
+	killvar '$textdog'
+	killvar '$textlick'
+	killvar '$text_emotions'
+	killvar '$text_cum'
+	act 'Moan':gt 'mirasex','miralick_dog'
 end
 
-if $ARGS[0] = 'lickmira_first':
+if $ARGS[0] = 'miralick_dog':
 	*clr & cla
-	if mirasex = 0:mirasex = 1 & girl += 1
-	'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_start.jpg"></center>'
-	if lesbian < 10:
-		'Kneeling down, you gently touch Mira''s panties and begin pulling them down. She is hot with excitement and wiggles her ass to help you get them off faster...'
+	mirahorny += 5
+	svetahorny += 10
+	gs 'stat'
+	if svetahorny >= 50 and rand(0,2) ! 0:
+		you_orgasm = 1
+		orgasm_or = 'yes'
+		$orgasm_txt = 'You cannot hold out any more from the stimulation that Mira is providing and with a shudder you cum in her face.'
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_dog_cum.jpg"></center>'
 	else
-		'Kneeling down, you reach for Mira''s panties and begin pulling them off of her. She is hot with excitement and wiggles her ass to help you get them off faster...'
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_dog'+rand(1,2)+'.jpg"></center>'
 	end
-	gs 'arousal', 'cuni_give', 5, 'lesbian'
+	$textdog[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,4))]
+	gs 'arousal', 'cuni', 10, 'lesbian'
+	minut -= 5
 	gs 'stat'
-	act 'Lick':gt 'mirasex','lickmira_mis1'
+	*nl
+	killvar '$textdog'
+	killvar '$textlick'
+	killvar '$text_emotions'
+	killvar '$text_cum'
+	if miraorgasm = 0 and you_orgasm = 0:
+		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
+		act 'Continue':	gt 'mirasex','miralick_dog'
+		act 'Stand up':gt 'mirasex','miralick_stand2'
+		act 'Lie on the ground':gt 'mirasex','69_1'
+	elseif miraorgasm = 1 and you_orgasm = 0:
+		act 'Continue':	gt 'mirasex','miralick_dog'
+		act 'Stand up':gt 'mirasex','miralick_stand2'
+	elseif miraorgasm = 0 and you_orgasm = 1:
+		act 'Its Mira''s turn':gt 'mirasex','lickmira_mis2'
+	else
+		act 'Leave':
+			gs 'mirasex', 'end'
+		end
+	end
 end
 
 if $ARGS[0] = 'lickmira_start':
 	*clr & cla
 	if mirasex = 0:mirasex = 1 & girl += 1
+	mirahorny += 10
+	svetahorny += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_start.jpg"></center>'
 	if lesbian < 10:
@@ -129,76 +157,48 @@ if $ARGS[0] = 'lickmira_start':
 	else
 		'Kneeling down, you reach for Mira''s panties and began pulling them off of her. She is hot with excitement and wiggles her ass to help you get them off faster...'
 	end
-	gs 'arousal', 'cuni_give', 5, 'lesbian'
+	gs 'arousal', 'cuni_give', 10, 'lesbian'
+	minut -= 5
 	gs 'stat'
 	act 'Lick':gt 'mirasex','lickmira_mis2'
 end
 
-if $ARGS[0] = 'horny_talk':
-	*clr & cla
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/horny_talk.jpg"></center>'
-	'Mira caught your gaze and smiled. She turns around and put your hand under her skirt so you can feel how wet she is.'
-	gs 'arousal', 'vaginal_finger_give', 5, 'lesbian'
-	if pcs_horny >= 80:
-		' - Oh, yes, there is a waterfall down there right now!'
-	else
-		' - You feel she is quite wet right now!'
-	end
-	'She lets your hand stay in her panties for another couple of moments, before saying:'
-	if npc_rel['A60'] < 15:
-		' - Get the fuck out of here slut, I have no time to deal with you.'
-		'She walks home alone singing a song. You watch her for a moment before heading back to the village as well.'
-	else
-		' - Okay, get ready, you asked for this.'
-		'You willingly pull off her panties and slip a finger inside of her.'
-	end
-	gs 'stat'
-
-	if npc_rel['A60'] < 15:act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
-	if npc_rel['A60'] >= 15:act 'Moan':gt 'mirasex','mirafinger'
-end
-
-if $ARGS[0] = 'miralick_orgasm':
-	if pcs_horny >= 100:
-		pcs_mood += 15
-		pcs_willpwr += 15
-		$orgasm_or = 'custom'
-		$orgasm_txt = 'Suddenly Mira begins to cum. You are still between her legs but keep licking as her warm cum covers your face and drips down onto your breasts.'
-	end
-end
-
-if $ARGS[0] = 'lickmira_mis1':
+if $ARGS[0] = 'lickmira_mis2':
 	*clr & cla
-	if lesbian < 10:mirahorny += 10 & pcs_horny += 5
-	if lesbian >= 10:mirahorny += 20 & pcs_horny += 7
+	mirahorny += 10
+	svetahorny += 5
 	gs 'stat'
-	if mirahorny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_mis'+rand(1,3)+'.jpg"></center>'
-		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]
-		gs 'mirasex','miralick_orgasm'
-		gs 'arousal', 'cuni', 5, 'lesbian'
-		gs 'stat'
-	else
+	if mirahorny >= 50 and rand(0,2) ! 0:
 		miraorgasm = 1
-		mirahorny = 0
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_mis_cum.jpg"></center>'
-		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[7]+$text_cum[2]
+		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[7]
 		gs 'mirasex','miralick_orgasm'
-		gs 'arousal', 'cuni_give', 5, 'lesbian'
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
+		minut -= 5
+		gs 'stat'
+		if you_orgasm = 0:'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and head home.'
+	elseif mirahorny < 50:
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_mis'+rand(1,3)+'.jpg"></center>'
+		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
+		minut -= 5
 		gs 'stat'
-		if pcs_horny < 60:
-			'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and head home.'
-		else
-			'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and smile at Mira before heading back to the village with her.'
-		end
 	end
-	*nl
-	if miraorgasm = 0:
-		act 'Continue licking Mira':gt 'mirasex','lickmira_mis1'
+	if miraorgasm = 0 and you_orgasm = 0:
+		act 'Continue licking Mira':gt 'mirasex','lickmira_mis2'
+		act 'Lie on the ground':gt 'mirasex','69_1'
+		act 'Stand up':gt 'mirasex','miralick_stand2'
+		act 'Get on all fours': gt 'mirasex','miralick_dog'
+	elseif miraorgasm = 1 and you_orgasm = 0:
+		act 'Stand up': gt 'mirasex','miralick_stand2'
+		act 'Get on all fours': gt 'mirasex','miralick_dog'
+	elseif miraorgasm = 0 and you_orgasm = 1:
+		act 'Continue licking Mira':gt 'mirasex','lickmira_mis2'
 	else
-		if pcs_horny < 60:act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
-		if pcs_horny >= 60:act 'Continue':gt 'mirasex','horny_talk'
+		'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and head back to village with Mira.'
+		act 'Leave':
+			gs 'mirasex', 'end'
+		end
 	end
 	killvar '$textmis'
 	killvar '$textlick'
@@ -206,151 +206,88 @@ if $ARGS[0] = 'lickmira_mis1':
 	killvar '$text_cum'
 end
 
-if $ARGS[0] = 'lickmira_mis2':
+if $ARGS[0] = 'miralick_start':
 	*clr & cla
-	if lesbian < 10:mirahorny += 10 & pcs_horny += 5
-	if lesbian >= 10:mirahorny += 20 & pcs_horny += 7
-	gs 'stat'
-	if mirahorny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_mis'+rand(1,3)+'.jpg"></center>'
-		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]
-		gs 'mirasex','miralick_orgasm'
-		gs 'arousal', 'cuni', 5, 'lesbian'
-		gs 'stat'
+	miralick += 1
+	if $pantyworntype ! 'none':
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga1.jpg"></center>'
+		'Kneeling down, Mira pulls down your panties with a smile on her face, while looking you in the eyes. You lean against the tree, close your eyes, and wait for her to continue...'
 	else
-		miraorgasm = 1
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_mis_cum.jpg"></center>'
-		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[7]+$text_cum[2]
-		gs 'mirasex','miralick_orgasm'
-		gs 'arousal', 'cuni_give', 5, 'lesbian'
-		gs 'stat'
-		if you_orgasm = 0:'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and head home.'
-		if you_orgasm = 1:'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and head back to village with Mira.'
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga0.jpg"></center>'
+		'Dropping to her knees and not finding any panties, Mira licked your <<$vaginatipe2>> vagina, sampling it''s taste, and causing an involuntary moan of pleasure from you. You lean against the tree, close your eyes, and wait for her to continue...'
 	end
 	*nl
-	if miraorgasm = 0 and you_orgasm = 0:
-		if pcs_horny >= mirahorny:
-			temp = rand(1,2)
-
-			if temp = 1:act 'Lie on the ground':gt 'mirasex','69_2'
-			if temp = 2:act 'Continue licking Mira':gt 'mirasex','lickmira_mis2'
-		else
-
-			act 'Lie on the ground':gt 'mirasex','69_2'
-			act 'Stand up':gt 'mirasex','miralick_stand2'
-			act 'Doggy':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-		end
-	elseif miraorgasm = 1 and you_orgasm = 0:
-
-		act 'Stand up':gt 'mirasex','miralick_stand2'
-		act 'Doggy':
-			temp = rand(1,2)
-			if temp = 1:gt 'mirasex','miralick_dog'
-			if temp = 2:gt 'mirasex','mirafinger_dog'
-		end
-	elseif miraorgasm = 0 and you_orgasm = 1:
-
-		act 'Continue licking Mira':gt 'mirasex','lickmira_mis2'
-	else
-		miraorgasm = 0
-		you_orgasm = 0
-		gs 'arousal', 'end'
-		gs 'stat'
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	gs 'stat'
+	act 'Moan':gt 'mirasex','miralick_stand2'
+end
 
-		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
+if $ARGS[0] = 'miralick_orgasm':
+	if pcs_horny >= 50:
+		$orgasm_or = 'custom'
+		$orgasm_txt = 'Suddenly Mira begins to cum. You are still between her legs but keep licking as her warm cum covers your face and drips down onto your breasts.'
 	end
-	killvar '$textmis'
-	killvar '$textlick'
-	killvar '$text_emotions'
-	killvar '$text_cum'
 end
 
 if $ARGS[0] = '69_1':
 	*clr & cla
-	if lesbian < 10:mirahorny += 10
-	if lesbian >= 10:mirahorny += 20
-	if miralick < 10:pcs_horny += 10
-	if miralick >= 10:pcs_horny += 20
+	mirahorny += 10
+	pcs_horny += 10
 
-	if mirahorny < 100 and pcs_horny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_'+rand(1,3)+'.jpg"></center>'
-		$text69[4]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
-		gs 'arousal', 'cuni', 5, 'lesbian'
-		gs 'arousal', 'cuni_give', 5, 'lesbian'
-		minut -= 5
-		gs 'stat'
-	elseif mirahorny >= 100 and pcs_horny < 100:
+	if mirahorny >= 50 and pcs_horny >= 50 and rand(0,2) ! 0:
 		miraorgasm = 1
 		mirahorny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum2.jpg"></center>'
-		$text69[4]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]+$text_cum[2]
-		'After a while Mira cums and she turns her attention to you...'
-		gs 'arousal', 'cuni', 5, 'lesbian'
-		gs 'arousal', 'cuni_give', 5, 'lesbian'
-		minut -= 5
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum'+rand(1,3)+'.jpg"></center>'
+		$text69[4]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
+		$orgasm_or = 'custom'
+		$orgasm_txt = 'Mira and you cum together. You mouth filled with her taste and her scent filling the air you lie for a minute blissed out before you slowly regain your senses and get ready to go.'
+		gs 'arousal', 'cuni', 10, 'lesbian'
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
+		minut -= 15
 		gs 'stat'
-	elseif mirahorny < 100 and pcs_horny >= 100:
-		orgasm += 1
+	elseif mirahorny < 50 and pcs_horny >= 50 and rand(0,2) ! 0:
 		you_orgasm = 1
-		pcs_horny = 0
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum1.jpg"></center>'
 		$text69[4]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]+$text_cum[1]
-		'After a while you cum and turn your attention to her...'
-		gs 'arousal', 'cuni', 5, 'lesbian'
-		gs 'arousal', 'cuni_give', 5, 'lesbian'
-		minut -= 5
+		$orgasm_or = 'yes'
+		$orgasm_ txt = 'The stimulation both from Mira''s ministrations and your efforts to get her off hits you hard and you cum. You take a moment then decide to focus on Mira.'
+		gs 'arousal', 'cuni', 10, 'lesbian'
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
+		minut -= 15
 		gs 'stat'
-	else
+	elseif mirahorny >= 50 and pcs_horny < 50 and rand(0,2) ! 0:
 		miraorgasm = 1
 		mirahorny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum'+rand(1,2)+'.jpg"></center>'
-		$text69[4]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]+$text_cum[3]
-		$orgasm_or = 'custom'
-		$orgasm_txt = 'After a while you and Mira cum together...'
-		gs 'arousal', 'cuni', 5, 'lesbian'
-		gs 'arousal', 'cuni_give', 5, 'lesbian'
-		minut -= 5
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum2.jpg"></center>'
+		$text69[4]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
+		'After a while Mira cums, her juices covering your face. For a minute she rides the wave of pleasure before she turns her attention to you...'
+		gs 'arousal', 'cuni', 10, 'lesbian'
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
+		minut -= 15
+		gs 'stat'
+	else
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_'+rand(1,3)+'.jpg"></center>'
+		$text69[4]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
+		gs 'arousal', 'cuni', 10, 'lesbian'
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
+		minut -= 15
 		gs 'stat'
 	end
 	*nl
 	if miraorgasm = 0 and you_orgasm = 0:
-		if pcs_horny >= mirahorny:
-			temp = rand(1,2)
-
-			if temp = 1:act 'Continue licking':gt 'mirasex','69_2'
-			if temp = 2:act 'Get on your knees':gt 'mirasex','lickmira_mis2'
-		else
-
-			act 'Continue licking':gt 'mirasex','69_2'
-			act 'Stand up':gt 'mirasex','miralick_stand2'
-			act 'Doggy':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-		end
+		act 'Continue licking':gt 'mirasex','69_1'
+		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
+		act 'Stand up':gt 'mirasex','miralick_stand2'
+		act 'Get on all fours': gt 'mirasex','miralick_dog'
 	elseif miraorgasm = 1 and you_orgasm = 0:
-
 		act 'Stand up':gt 'mirasex','miralick_stand2'
-		act 'Doggy':
-			temp = rand(1,2)
-			if temp = 1:gt 'mirasex','miralick_dog'
-			if temp = 2:gt 'mirasex','mirafinger_dog'
-		end
+		act 'Get on all fours':gt 'mirasex','miralick_dog'
 	elseif miraorgasm = 0 and you_orgasm = 1:
-
 		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
 	else
-		miraorgasm = 0
-		you_orgasm = 0
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
+		act 'Leave':
+			gs 'mirasex', 'end'
+		end
 	end
 	killvar '$text69'
 	killvar '$textlick'
@@ -358,106 +295,95 @@ if $ARGS[0] = '69_1':
 	killvar '$text_cum'
 end
 
-if $ARGS[0] = '69_2':
+if $ARGS[0] = 'miralick_stand2':
 	*clr & cla
-	if lesbian < 10:mirahorny += 10
-	if lesbian >= 10:mirahorny += 20
-	if miralick < 10:pcs_horny += 10
-	if miralick >= 10:pcs_horny += 20
-	if mirahorny < 100 and pcs_horny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_'+rand(1,3)+'.jpg"></center>'
-		$text69[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
-	elseif mirahorny >= 100 and pcs_horny < 100:
-		miraorgasm = 1
-		mirahorny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum2.jpg"></center>'
-		$text69[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]+$text_cum[2]
-		'After a while Mira cums and she turns her attention to you...'
-	elseif mirahorny < 100 and pcs_horny >= 100:
-		orgasm += 1
+	pcs_horny += 10
+	mirahorny += 5
+	if pcs_horny >= 50:
 		you_orgasm = 1
-		pcs_horny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum1.jpg"></center>'
-		$text69[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]+$text_cum[1]
-		$orgasm_or = 'custom'
-		$orgasm_txt = 'After a while you cum and turn your attention to her...'
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_stand_cum.jpg"></center>'
+		$textstand[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[3]
+		$orgasm_txt 'Mira licks your pussy, it feels great. In fact it feels incredible, you can''t hold back any more and a warmth spreads through your abdomen as you cum.'
+		$orgasm_or = 'yes'
 	else
-		miraorgasm = 1
-		mirahorny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_69_cum'+rand(1,2)+'.jpg"></center>'
-		$text69[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]+$text69[5]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]+$text_cum[3]
-		$orgasm_or = 'custom'
-		$orgasm_txt = 'After a while you and Mira cum together...'
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_stand'+rand(1,2)+'.jpg"></center>'
+		$textstand[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
 	end
-	gs 'arousal', 'cuni', 5, 'lesbian'
-	gs 'arousal', 'cuni_give', 5, 'lesbian'
+	gs 'arousal', 'cuni', 10, 'lesbian'
 	minut -= 5
 	gs 'stat'
 	*nl
 	if miraorgasm = 0 and you_orgasm = 0:
-		if pcs_horny >= mirahorny:
-			temp = rand(1,2)
-
-			if temp = 1:act 'Continue licking':gt 'mirasex','69_2'
-			if temp = 2:act 'Get on your knees':gt 'mirasex','lickmira_mis2'
-		else
-
-			act 'Continue licking':gt 'mirasex','69_2'
-			act 'Stand up':gt 'mirasex','miralick_stand2'
-			act 'Doggy':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-		end
+		act 'Continue standing':gt 'mirasex','miralick_stand2'
+		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
+		act 'Lie on the ground':gt 'mirasex','69_1'
+		act 'Get on all fours':gt 'mirasex','miralick_dog'
 	elseif miraorgasm = 1 and you_orgasm = 0:
-
-		act 'Stand up':gt 'mirasex','miralick_stand2'
-		act 'Doggy':
-			temp = rand(1,2)
-			if temp = 1:gt 'mirasex','miralick_dog'
-			if temp = 2:gt 'mirasex','mirafinger_dog'
-		end
+		act 'Continue standing':gt 'mirasex','miralick_stand2'
+		act 'Get on all fours':gt 'mirasex','miralick_dog'
 	elseif miraorgasm = 0 and you_orgasm = 1:
-
 		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
 	else
-		miraorgasm = 0
-		you_orgasm = 0
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
+		act 'Leave':
+			gs 'mirasex', 'end'
+		end
 	end
-	killvar '$text69'
+	killvar '$textstand'
 	killvar '$textlick'
 	killvar '$text_emotions'
 	killvar '$text_cum'
 end
 
+if $ARGS[0] = 'end':
+	miraorgasm = 0
+	you_orgasm = 0
+	gs 'arousal', 'end'
+	gs 'stat'
+	MiraLoc ! 2
+	minut += 20
+	gt'Gaddvor'
+end
+
+!!-------------------------------------------------single act events---------------------------------------------------
+
+if $ARGS[0] = 'miralick_first':
+	*clr & cla
+	miralick += 1
+	if mirasex = 0:mirasex = 1 & girl += 1
+	if $pantyworntype ! 'none':
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga1.jpg"></center>'
+		'Kneeling down, Mira timidly reaches for your panties. She locks eyes with you and smiles shyly. You relax against the tree, close your eyes and tremble in the anticipation.'
+	else
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mira_start_tanga0.jpg"></center>'
+		'Dropping to her knees and not finding you wearing panties, Mira timidly touches your vagina, causing you involuntary moan of pleasure. You lean against the tree, and close your eyes, wait for her to continue...'
+	end
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	gs 'stat'
+
+	act 'Moan':gt 'mirasex','miralick_stand1'
+end
+
 if $ARGS[0] = 'miralick_stand1':
 	*clr & cla
-	if miralick < 10:pcs_horny += 10
-	if miralick >= 10:pcs_horny += 20 & mirahorny += rand(0,5)
+	mirahorny += rand(0,5)
+	mira_counter += 1
 	gs 'stat'
-	if pcs_horny < 100:
+	if mira_counter < rand(3,5):
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_stand'+rand(1,2)+'.jpg"></center>'
 		$textstand[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
+		gs 'arousal', 'cuni', 10, 'lesbian'
+		minute -= 5
+		gs 'stat'
+		act 'Moan':gt 'mirasex','miralick_stand1'
 	else
-		orgasm += 1
-		you_orgasm = 1
-		pcs_horny = 0
+		killvar 'mira_counter'
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_stand_cum.jpg"></center>'
 		$textstand[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[3]+$text_cum[1]
 		$orgasm_or = 'custom'
 		$orgasm_txt = 'Mira continues to lick you until you cum. After some time, you head back to the village together.'
-	end
-	gs 'arousal', 'cuni', 5, 'lesbian'
-	gs 'stat'
-	*nl
-	if you_orgasm = 0:
-		act 'Moan':gt 'mirasex','miralick_stand1'
-	else
+		gs 'arousal', 'cuni', 10, 'lesbian'
+		minute -= 5
+		gs 'stat'
 		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
 	end
 	killvar '$textstand'
@@ -466,222 +392,55 @@ if $ARGS[0] = 'miralick_stand1':
 	killvar '$text_cum'
 end
 
-if $ARGS[0] = 'miralick_stand2':
+if $ARGS[0] = 'lickmira_first':
 	*clr & cla
-	if miralick < 10:pcs_horny += 10
-	if miralick >= 10:pcs_horny += 20 & mirahorny += rand(0,5)
-	if pcs_horny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_stand'+rand(1,2)+'.jpg"></center>'
-		$textstand[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,3))]
+	if mirasex = 0:mirasex = 1 & girl += 1
+	'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_start.jpg"></center>'
+	if lesbian < 10:
+		'Kneeling down, you gently touch Mira''s panties and begin pulling them down. She is hot with excitement and wiggles her ass to help you get them off faster...'
 	else
-		orgasm += 1
-		you_orgasm = 1
-		pcs_horny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_stand_cum.jpg"></center>'
-		$textstand[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[3]+$text_cum[1]
-		if miraorgasm = 0:'You lick Mira''s pussy but she hasn''t cum yet so you continue...'
-		if miraorgasm = 1:'You lick Mira''s pussy until she cums...'
-		$orgasm_or = 'yes'
+		'Kneeling down, you reach for Mira''s panties and begin pulling them off of her. She is hot with excitement and wiggles her ass to help you get them off faster...'
 	end
-	gs 'arousal', 'cuni', 5, 'lesbian'
+	gs 'arousal', 'cuni_give', 10, 'lesbian'
+	minut -= 5
 	gs 'stat'
-	*nl
-	if miraorgasm = 0 and you_orgasm = 0:
-		if pcs_horny >= mirahorny:
-			temp = rand(1,2)
-
-			if temp = 1:act 'Lie on the ground':gt 'mirasex','69_2'
-			if temp = 2:act 'Get on your knees':gt 'mirasex','lickmira_mis2'
-		else
-
-			act 'Stand up':gt 'mirasex','miralick_stand2'
-			act 'Lie on the ground':gt 'mirasex','69_2'
-			act 'Doggy':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-		end
-	elseif miraorgasm = 1 and you_orgasm = 0:
-
-		act 'Stand up':gt 'mirasex','miralick_stand2'
-		act 'Doggy':
-			temp = rand(1,2)
-			if temp = 1:gt 'mirasex','miralick_dog'
-			if temp = 2:gt 'mirasex','mirafinger_dog'
-		end
-	elseif miraorgasm = 0 and you_orgasm = 1:
-
-		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
-	else
-		miraorgasm = 0
-		you_orgasm = 0
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
-	end
-	killvar '$textstand'
-	killvar '$textlick'
-	killvar '$text_emotions'
-	killvar '$text_cum'
+	act 'Lick':gt 'mirasex','lickmira_mis1'
 end
 
-if $ARGS[0] = 'miralick_dog':
+if $ARGS[0] = 'lickmira_mis1':
 	*clr & cla
-	if miralick < 10:pcs_horny += 10
-	if miralick >= 10:pcs_horny += 20 & mirahorny += rand(0,5)
 	gs 'stat'
-	!gs'time'
-	if pcs_horny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_dog'+rand(1,2)+'.jpg"></center>'
-		$textdog[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,4))]
-		gs 'arousal', 'cuni', 5, 'lesbian'
+	if mirahorny < 50 and rand(0,1) = 0:
+		mirahorny += 20
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_mis'+rand(1,3)+'.jpg"></center>'
+		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[iif(pcs_horny < 60,5,iif(pcs_horny < 80,6,7))]
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
 		minut -= 5
 		gs 'stat'
+		act 'Continue licking Mira':gt 'mirasex','lickmira_mis1'
 	else
-		orgasm += 1
-		you_orgasm = 1
-		pcs_horny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_dog_cum.jpg"></center>'
-		$textdog[rand(1,3)]+$textlick[iif(miralick < 10,rand(1,3),rand(4,6))]+$text_emotions[4]+$text_cum[1]
-		if miraorgasm = 0:'You lick Mira''s pussy but she hasn''t cum yet so you continue...'
-		if miraorgasm = 1:'You lick Mira''s pussy until she cums...'
-		$orgasm_or = 'yes'
-		gs 'arousal', 'cuni', 5, 'lesbian'
+		miraorgasm = 1
+		mirahorny = 0
+		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/lickmira_mis_cum.jpg"></center>'
+		$textmis[rand(1,3)]+$textlick[iif(lesbian < 10,rand(7,9),rand(10,12))]+$text_emotions[7]+$text_cum[2]
+		gs 'mirasex','miralick_orgasm'
+		gs 'arousal', 'cuni_give', 10, 'lesbian'
+		minut -= 5
 		gs 'stat'
-	end
-	*nl
-	killvar '$textdog'
-	killvar '$textlick'
-	killvar '$text_emotions'
-	killvar '$text_cum'
-	if miraorgasm = 0 and you_orgasm = 0:
-		if pcs_horny >= mirahorny:
-			temp = rand(1,2)
-			if temp = 1:act 'Lie on the ground':gt 'mirasex','69_2'
-			if temp = 2:act 'Get on your knees':gt 'mirasex','lickmira_mis2'
+		if pcs_horny < 60:
+			'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and head home.'
 		else
-			act 'Continue licking':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-			act 'Stand up':gt 'mirasex','miralick_stand2'
-			act 'Lie on the ground':gt 'mirasex','69_2'
+			'After Mira orgasms,you get out from between her legs and wipe her juices off your face. You clean yourself up and smile at Mira before heading back to the village with her.'
 		end
-	elseif miraorgasm = 1 and you_orgasm = 0:
-			act 'Continue licking':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-		act 'Stand up':gt 'mirasex','miralick_stand2'
-	elseif miraorgasm = 0 and you_orgasm = 1:
-		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
-	else
-		miraorgasm = 0
-		you_orgasm = 0
-		gs 'arousal', 'end'
-		gs 'stat'
-		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
-	end
-end
-
-if $ARGS[0] = 'mirafinger':
-	*clr & cla
-	mirahorny += rand(0,5)
-	gs 'stat'
-	!gs'time'
-	if pcs_horny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirafinger_dog'+rand(1,2)+'.jpg"></center>'
-		$textdog[4]+$textfinger[rand(1,3)]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,4))]
-		gs 'arousal', 'vaginal_finger_give', 5, 'lesbian'
-		gs 'stat'
-	else
-		orgasm += 1
-		you_orgasm = 1
-		pcs_horny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirafinger_dog_cum.jpg"></center>'
-		$textdog[4]+$textfinger[rand(1,3)]+$text_emotions[4]+$text_cum[1]
-		if miraorgasm = 0:'Mira slyly looks at you and puts her fingers in your mouth to clean them off from your secretions.'
-		if miraorgasm = 1:'Mira slyly looks at you and puts her fingers in your mouth to clean them off from your secretions. You promptly return the favor.'
-		$orgasm_or = 'yes'
-		gs 'arousal', 'vaginal_finger', 5, 'lesbian'
-		gs 'stat'
-	end
-	*nl
-	killvar '$textdog'
-	killvar '$textlick'
-	killvar '$text_emotions'
-	killvar '$text_cum'
-	if you_orgasm = 0:
-		act 'Continue':gt 'mirasex','mirafinger'
-	else
 		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
 	end
-end
-
-if $ARGS[0] = 'mirafinger_dog':
-	*clr & cla
-	mirahorny += rand(0,5)
-	gs 'stat'
-	!gs'time'
-	if pcs_horny < 100:
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirafinger_dog'+rand(1,4)+'.jpg"></center>'
-		$textdog[rand(1,3)]+$textfinger[rand(1,3)]+$text_emotions[iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,4))]
-		gs 'arousal', 'vaginal_finger_give', 5, 'lesbian'
-		gs 'stat'
-	else
-		orgasm += 1
-		you_orgasm = 1
-		pcs_horny = 0
-		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirafinger_dog_cum.jpg"></center>'
-		$textdog[rand(1,3)]+$textfinger[rand(1,3)]+$text_emotions[4]+$text_cum[1]
-		if miraorgasm = 0:'Mira slyly looks at you and puts her fingers in your mouth to clean them off from your secretions.'
-		if miraorgasm = 1:'Mira slyly looks at you and puts her fingers in your mouth to clean them off from your secretions. You promptly return the favor.'
-		$orgasm_or = 'yes'
-		gs 'arousal', 'vaginal_finger', 5, 'lesbian'
-		gs 'stat'
-	end
 	*nl
-	killvar '$textdog'
+	killvar '$textmis'
 	killvar '$textlick'
 	killvar '$text_emotions'
 	killvar '$text_cum'
-	if miraorgasm = 0 and you_orgasm = 0:
-		if pcs_horny >= mirahorny:
-			temp = rand(1,2)
-			if temp = 1:act 'Lie on the ground':gt 'mirasex','69_2'
-			if temp = 2:act 'Get on your knees':gt 'mirasex','lickmira_mis2'
-		else
-			act 'Continue':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-			act 'Stand up':gt 'mirasex','miralick_stand2'
-			act 'Lie on the ground':gt 'mirasex','69_2'
-		end
-	elseif miraorgasm = 1 and you_orgasm = 0:
-			act 'Continue':
-				temp = rand(1,2)
-				if temp = 1:gt 'mirasex','miralick_dog'
-				if temp = 2:gt 'mirasex','mirafinger_dog'
-			end
-		act 'Stand up':gt 'mirasex','miralick_stand2'
-	elseif miraorgasm = 0 and you_orgasm = 1:
-		act 'Get on your knees':gt 'mirasex','lickmira_mis2'
-	else
-		miraorgasm = 0
-		you_orgasm = 0
-		gs 'arousal', 'end'
-		gs 'stat'
-		act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
-	end
 end
 
-
 $textstand[1] = 'Leaning against the tree, you feel the Mira''s hot breath and stimulating touch of her toungue between your legs. '
 $textstand[2] = 'Closing your eyes and leaning against the tree, you feel the light touch of Mira''s tongue lick your vagina. '
 $textstand[3] = 'Leaning against the tree, you feel Mira''s hot breath and light touch of her tongue on your vagina. '

locations/panties.qsrc

@@ -69,7 +69,7 @@ if $ARGS[0] = 'view_panty_list':
 
 	i = 1
 	:loopcheappanties 
-	if cheap_pantiesS[i] = metka_panties and cheap_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/panties/basic/<<i>>.jpg" 	height="300" /></a>'
+	if cheap_pantiesS[i] = metka_panties and cheap_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/panties/basic/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('cheap_panties'):jump 'loopcheappanties'
 
@@ -77,7 +77,7 @@ if $ARGS[0] = 'view_panty_list':
 
 	i = 1
 	:loopboutiquepanties 
-	if boutique_pantiesS[i] = metka_panties and boutique_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/panties/boutique/<<i>>.jpg" 	height="300" /></a>'
+	if boutique_pantiesS[i] = metka_panties and boutique_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/panties/boutique/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('boutique_panties'):jump 'loopboutiquepanties'
 
@@ -85,7 +85,7 @@ if $ARGS[0] = 'view_panty_list':
 
 	i = 1
 	:loopexhibitionistpanties 
-	if exhibitionist_pantiesS[i] = metka_panties and exhibitionist_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/panties/exhibitionist/<<i>>.jpg" 	height="300" /></a>'
+	if exhibitionist_pantiesS[i] = metka_panties and exhibitionist_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/panties/exhibitionist/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('exhibitionist_panties'):jump 'loopexhibitionistpanties'
 
@@ -93,7 +93,7 @@ if $ARGS[0] = 'view_panty_list':
 
 	i = 1
 	:loopfashionistapanties 
-	if fashionista_pantiesS[i] = metka_panties and fashionista_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/panties/fashionista/<<i>>.jpg" 	height="300" /></a>'
+	if fashionista_pantiesS[i] = metka_panties and fashionista_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/panties/fashionista/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('fashionista_panties'):jump 'loopfashionistapanties'
 
@@ -101,7 +101,7 @@ if $ARGS[0] = 'view_panty_list':
 
 	i = 1
 	:loopkatspanties 
-	if kats_pantiesS[i] = metka_panties and kats_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''kats'', <<i>>"><img src="images/pc/panties/kats/<<i>>.jpg" 	height="300" /></a>'
+	if kats_pantiesS[i] = metka_panties and kats_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''kats'', <<i>>"><img src="images/pc/panties/kats/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('kats_panties'):jump 'loopkatspanties'
 
@@ -109,7 +109,7 @@ if $ARGS[0] = 'view_panty_list':
 
 	i = 1
 	:loopsexshoppanties 
-	if sexshop_pantiesS[i] = metka_panties and sexshop_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/panties/sexshop/<<i>>.jpg" 	height="300" /></a>'
+	if sexshop_pantiesS[i] = metka_panties and sexshop_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/panties/sexshop/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('sexshop_panties'):jump 'loopsexshoppanties'
 
@@ -117,7 +117,7 @@ if $ARGS[0] = 'view_panty_list':
 
 	i = 1
 	:loopsportpanties 
-	if sport_pantiesS[i] = metka_panties and sport_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/panties/sport/<<i>>.jpg" 	height="300" /></a>'
+	if sport_pantiesS[i] = metka_panties and sport_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/panties/sport/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('sport_panties'):jump 'loopsportpanties'
 end

locations/stat_display.qsrc

@@ -1024,22 +1024,28 @@ if fingal > 0:$stat_msg += '<BR><b><font color="red">You have a black eye.</font
 ! WD: Bimbo look
 if bimbolevel > 0: $stat_msg += '<BR><<$bimbostatus>>'
 
-if CloThinness = 6 and $clothingworntype ! 'swimwear':
-	if $braworntype ! 'none':
-		'<BR><b><font color = red>Your bra is clearly showing through your transparent top.</font></b>'
+if CloThinness = 6:
+	if $clothingworntype = 'swimwear':
+		$stat_msg += '<BR><b><font color = red>Your nipples are clearly showing through your transparent swimsuit.</font></b>'
+	elseif $braworntype ! 'none':
+		$stat_msg += '<BR><b><font color = red>Your bra is clearly showing through your transparent top.</font></b>'
 	else
-		'<BR><b><font color = red>You are not wearing a bra and your breasts are fully on display through your transparent top.</font></b>'
+		$stat_msg += '<BR><b><font color = red>You are not wearing a bra and your breasts are fully on display through your transparent top.</font></b>'
 	end
 elseif CloThinness = 5:
-	if $braworntype = 'none':
-		'<BR><b><font color = red>You are not wearing a bra and your nipples are noticably poking through the thin fabric of your top.</font></b>'
+	if $clothingworntype = 'swimwear':
+		$stat_msg += '<BR><b><font color = red>Your nipples are noticeably poking through your swimsuit.</font></b>'
+	elseif $braworntype = 'none':
+		$stat_msg += '<BR><b><font color = red>You are not wearing a bra and your nipples are noticably poking through the thin fabric of your top.</font></b>'
 	end
 elseif CloThinness = 4:
-	if $braworntype = 'none':
-		'<BR><b><font color = red>You are not wearing a bra and your nipples are being subtly outlined by the fabric of your top.</font></b>'
+	if $clothingworntype = 'swimwear':
+		$stat_msg += '<BR><b><font color = red>Your nipples are very slightly poking through your swimsuit.</font></b>'
+	elseif $braworntype = 'none':
+		$stat_msg += '<BR><b><font color = red>You are not wearing a bra and your nipples are being subtly outlined through your top.</font></b>'
 	end
 elseif $braworntype = 'none':
-		'<BR><b><font color = red>You are not wearing a bra.</font></b>'
+		$stat_msg += '<BR><b><font color = red>You are not wearing a bra.</font></b>'
 	end
 end
 

locations/vann.qsrc

@@ -89,7 +89,7 @@ if $ARGS[0] = 'v1':
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v0.jpg"></center>'
 	'You enter into the bathroom and see a girl sitting on the edge of the bath tub smearing her feet with cream.'
 	'"Oops... Sorry, I''ll come back later." you say and turn to leave.'
-	'"Weel, no... It's okay, you can stay, I''m almost finished." she says with a smile. You come back and go to the sink to wash your hands to keep yourself busy until she leaves. But she seems not to be in a hurry and, a couple of minutes later, she asks "Do you want your feet smeared too?"'
+	'"Weel, no... It''s okay, you can stay, I''m almost finished." she says with a smile. You come back and go to the sink to wash your hands to keep yourself busy until she leaves. But she seems not to be in a hurry and, a couple of minutes later, she asks "Do you want your feet smeared too?"'
 
 	act 'Refuse':
 		cla