Finished initial dinsex improvements

locations/dinSex.qsrc

@@ -139,11 +139,11 @@ if ARGS[0] = 'wear_condom':
 		dynamic $prezik
 		protect = 1
 		if preziktype = 2:
-			sexcontra = 7
+			sexcontra = 4
 			'<<$boydesc>> takes your sabotaged condom and puts it on, not even noticing anything off.'
 		else
 			sexcontra = 3
-			'<<$boydesc>> takes your condom and puts it on his <<$xyr>> cock.'
+			'<<$boydesc>> takes your condom and puts it on <<$xyr>> cock.'
 		end
 	else
 		sexcontra = 0
@@ -241,7 +241,7 @@ if $ARGS[0] = 'boy_puts_his_condom':
 	$bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
 	protect = 1
 	sexcontra = 3
-	*p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy)-1)>> takes his condom and puts it on his <<dick>> centimeter dick.'
+	*p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy)-1)>> takes his condom and puts it on <<$xyr>> <<$penis_desc>>.'
 	!! the hormonal contraception is still taken in account
 end &! --- boy_puts_his_condom ---
 
@@ -388,7 +388,7 @@ if $ARGS[0] = 'analsex':
 		pcs_horny += 10
 		'You savor <<$xyr>>''s cock moving inside you, lightly moaning in rhythm.'
 	end
-	'After some time <<$boydesc>> groans and you feel <<$xyr>> cock pulsing inside you as a pleasant warmth filling your ass.'
+	'After some time <<$boydesc>> groans and you feel <<$xyr>> cock pulsing inside you and a pleasant warmth filling your ass.'
 	gs 'cum_call','anus',$boy,1
 end &! --- analsex ---
 
@@ -435,40 +435,37 @@ if $ARGS[0] = 'sexcum':
 end &! --- sexcum ---
 
 if $ARGS[0] = 'bj_random':
-	tperbjran = rand(0, 3)
-	if tperbjran = 0:$tperbj = 'You wraps your <<$liptalk>> around <<$xyr>> <<dick>>cm member.'
-	if tperbjran = 1:$tperbj = 'Your <<$liptalk>> engulf the purple head of <<$xyr>> <<dick>>cm member.'
-	if tperbjran = 2:$tperbj = 'You plant your <<$liptalk>> on the bulbous tip of <<$xyr>> <<dick>>cm cock and greedily slide your mouth down along <<$xyr>> throbbing maleness.'
-	if tperbjran = 3:$tperbj = 'The <<dick>> centimeters dick rests between your <<$liptalk>> then you slightly part them and allow the delicious invador to slide into your mouth.'
-
-	tperbjran = rand(0, 2)
-	if tperbjran = 0:$tperbj2 = 'You give <<$xyr>> face a sultry look while <<$xyr>> cock rests in your mouth then you greedily lean forwards, taking <<$xyr>> tasty penis deeper in your mouth and lustfully start to bob your head back and forth along <<$xyr>> <<dick>>cm tool.'
-	if tperbjran = 1:$tperbj2 = 'You playfully roll your tongue around the engorged boner and start giving one hell of a blowjob, swallowing the whole length down your throat and making lewd slurping noises everytime you hilt.'
-	if tperbjran = 2:$tperbj2 = 'That hard cock between your <<$liptalk>> is definitely yummy! You just can''t hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat, you grin and relax your muscles to let it in, deepthroating this <<dick>>cm cock like there''s no tomorrow.'
-	'<<$tperbj>> <<$tperbj2>>'
-	killvar 'tperbjran'
-	killvar '$tperbj2'
-	killvar '$tperbj'
+	if stat['bj'] = 0:'You are anxious about the idea of sucking a cock, having never given a blowjob before. You wonder what it will taste like.'
+	if stat['bj'] <= 10:
+		'Hesitantly bringing your face to <<$boydesc>>''s crotch, you lightly press your <<$liptalk>> against <<$xyr>> dick, tasting the slight saltiness.'
+		'Then you start flicking your tongue around the head as you wrap your lips further, stroking the shaft in the meantime.'
+	elseif stat['bj'] <= 25:
+		'You lightly put <<$boydesc>>''s cock into your mouth, rolling your tongue around the head as you rhytmically stroke the shaft.'
+		'After a moment you start getting into rhythm, lightly bobbing your head although not sucking his dick much further than the tip.'
+	elseif stat['bj'] <= 40:
+		'You wrap your <<$liptalk>> around the <<$penis_desc>> in front of you. You give <<$boydesc>> a moment to adjust to the warmthness with more than half his cock resting in your mouth'
+		'Then you greedily lean forwards, taking <<$xyr>> dick deeper in your mouth and start to bob your head back and forth along <<$xyr>> <<$penis_desc>>'
+	elseif stat['bj'] <= 60:
+		'Imagining how the hard cock in front of your face would feel between your <<$liptalk>>, you just can''t hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat'
+		'You playfully roll your tongue around the cock you are sucking and try to see if you can swallow the whole length down your throat.'
+	else
+		'You lock eyes with <<$boydesc>> and relax your throat as you swallow <<$xyr>> <<$penis_desc>> in one move like the veteran cocksucker you are, milking <<$xyr>> cock with just your throat.'
+	end
 end &! --- bj_random ---
 
 if $ARGS[0] = 'bj_swallow_random':
-	tperswalrand = rand(0, 2)
-	if tperswalrand = 0:$tperswal = 'Suddenly, your mouth is filled with a viscous load of semen.'
-	if tperswalrand = 1:$tperswal = 'The cock twitches and jets of sperm flew between your lips into your greedy mouth.'
-	if tperswalrand = 2:$tperswal = 'Your mouth is filled with warm and sticky sperm and you lovingly close your <<$liptalk>> around the drained member to suck it clean.'
-	tperswalrand = rand(0, 2)
-	if tperswalrand = 0:$tperswal2 = 'Your mouth is quickly filled with warm sperm and you smile as you gulp it down and enjoy the sharp taste.'
-	if tperswalrand = 1:$tperswal2 = 'Your mouth is filled with cum which messily runs out on your <<$liptalk>> and falls on the floor.'
-	if tperswalrand = 2:$tperswal2 = 'Hot seed fills your mouth making you smile with pride before you greedily swallow the salty load.'
-	tperswalrand = rand(0, 2)
-	if tperswalrand = 0:$tperswal3 = 'You gulp down and swallow the sperm filling your mouth, the taste remains intact and you lean forward to plant a tender kiss on that freshly milked cock.'
-	if tperswalrand = 1:$tperswal3 = 'You swallow the warm cum that fills your mouth and greedily lick the sticky leftovers with your tongue.'
-	if tperswalrand = 2:$tperswal3 = 'You swallow the viscous semen that is filling your mouth, then lick the softening member clean.'
-	'<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
-	killvar 'tperswalrand'
-	killvar '$tperswal'
-	killvar '$tperswal2'
-	killvar '$tperswal3'
+	if stat['bj'] <= 10:
+		'Not knowing what else to do, you forcefully gulp down and swallow the sperm filling your mouth. The taste lingers at the back of your throat'
+	elseif stat['bj'] <= 25:
+		'You swallow the viscous semen that is filling your mouth, then lick the softening member clean.'
+		'Afterwards you lean forward to plant a tender kiss on the freshly milked cock.'
+	elseif stat['bj'] <= 40:
+		'You swallow the warm cum that fills your mouth and smile as you lick the sticky leftovers with your tongue.'
+	elseif stat['bj'] <= 60:
+		'Your mouth is quickly filled with warm sperm and you smile as you gulp it down and enjoy the now familiar tart taste.'
+	else
+		'You let the warm cum drain down the throat, enjoying the familiar taste as you feel it slowly making its way down.'
+	end
 end &! --- bj_swallow_random ---
 
 !! use gs 'dinsex','enema'