Arousal system main files and sexstat update

glife-notepad++

@@ -17,6 +17,7 @@
             <File name="locations\andrey" />
             <File name="locations\anekdot" />
             <File name="locations\annafrends" />
+            <File name="locations\arousal" />
             <File name="locations\artemEv" />
             <File name="locations\artemev2" />
             <File name="locations\artemEv3" />
@@ -472,6 +473,7 @@
             <File name="locations\office" />
             <File name="locations\onobjsel" />
             <File name="locations\oral" />
+            <File name="locations\orgasm" />
             <File name="locations\orgazm" />
             <File name="locations\otelPRE" />
             <File name="locations\outdoors" />

glife.qproj

@@ -45,6 +45,8 @@
       <Location name="body_shape"/>
       <Location name="cikl"/>
       <Location name="pain"/>
+      <Location name="arousal"/>
+      <Location name="orgasm"/>
       <Location name="daystart"/>
       <Location name="dina"/>
       <Location name="dinBoroda"/>

locations/arousal

@@ -0,0 +1,503 @@
+# arousal
+
+!{For checking arousal and when applicable triggering orgasms.
+$ARGS[0] the action causing arousal can be when receiving any of the following:
+'masturbate' 'porn' 'voyeur' 'kiss' 'breasts' 'massage' 'foreplay' 'cuni' 'rimming' 'trib' 'anal' 'anal_finger' 'anal_fist' 'anal_dildo' 'anal_strap' 'anal_vibe' 'vaginal' 'vaginal_finger' 'vaginal_fist' 'vaginal_dildo' 'vaginal_strap' 'vaginal_vibe'
+also when giving any of the following:
+'flash_breasts' 'flash_pussy' 'flash_ass' 'kiss_give' 'breasts_give' 'massage_give' 'foreplay_give' 'cuni_give' 'rimming_give' 'anal_finger_give' 'anal_fist_give' 'anal_dildo_give' 'anal_vibe_give' 'anal_strap_give'
+'vaginal_finger_give' 'vaginal_fist_give' 'vaginal_dildo_give' 'vaginal_strap_give' 'vaginal_vibe_give' 'hj' 'bj' 'footjob'
+In cases of both giving and receiving, receiving should be used.
+ARGS[1] for time taken in minutes
+$ARGS[2] - [9] Are optional but can be upto 7 fetishes involved in the act and can be any of the following:
+'maso' 'bound' 'beast' 'exhibitionism' 'rough' 'prostitution' 'dom' 'sub' 'incest' 'feet' 'lesbian' 'group' 'gangbang' 'humiliation' 'deepthroat'
+Format to use: gs 'arousal', 'act', 'duration', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish'
+eg: gs 'arousal', 'trib', 10, 'bound', 'sub'
+In this case lesbianism is automatically added, much as feet would be applied to 'footjob'
+Only call one at a time, if more required, use multiple calls}
+
+if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks':
+
+	!set a magnitude as a random
+	stim['mag'] = rand(1,100)
+
+	if stim['mag'] > 3:
+		stim['mag'] = 0
+	elseif stim['mag'] > 13:
+		stim['mag'] = 1
+	elseif stim['mag'] > 24:
+		stim['mag'] = 2
+	elseif stim['mag'] > 40:
+		stim['mag'] = 3
+	elseif stim['mag'] > 50:
+		stim['mag'] = 4
+	elseif stim['mag'] > 60:
+		stim['mag'] = 5
+	elseif stim['mag'] > 70:
+		stim['mag'] = 6
+	elseif stim['mag'] > 85:
+		stim['mag'] = 7
+	elseif stim['mag'] > 95:
+		stim['mag'] = 8
+	else
+		stim['mag'] = 9
+	end
+
+	if $ARGS[0] = 'masturbate':
+		counter['mast'] = 1
+		stim['mag'] += 4
+		stim['act'] = 100
+	if $ARGS[0] = 'porn':
+		counter['porn'] = 1
+		stim['act'] = 20
+	elseif $ARGS[0] = 'voyeur':
+		counter['voyeur'] = 1
+		stim['act'] = 30
+	elseif $ARGS[0] = 'kiss':
+		stim['act'] = 10
+	elseif $ARGS[0] = 'breasts':
+		stim['act'] = 30
+	elseif $ARGS[0] = 'massage':
+		stim['act'] = 25
+	elseif $ARGS[0] = 'foreplay':
+		stim['act'] = 20
+	elseif $ARGS[0] = 'cuni':
+		counter['cuni'] = 1
+		stim['mag'] += 3
+		stim['act'] = 80
+	elseif $ARGS[0] = 'rimming':
+		counter['rimming'] = 1
+		stim['act'] = 30
+	elseif $ARGS[0] = 'trib':
+		counter['trib'] = 1
+		stim['mag'] += 1
+		stim['act'] = 70
+	elseif $ARGS[0] = 'anal':
+		counter['anal'] = 1
+		if ((anus + lubonus + 2) * 2) <= dick:
+			!!Painfully too big for PC
+			stim['act'] = 20
+			if agape < 3:agape = 3 & agapetime = totminut
+		elseif (anus + lubonus + 2) < dick:
+			!!Big, but more bearable
+			stim['act'] = 65
+			if agape < 1:agape = 1 & agapetime = totminut
+		elseif anus + lubonus + 2 >= dick:
+			!!Perfect size
+			stim['act'] = 80
+		end
+	elseif $ARGS[0] = 'anal_finger':
+		counter['anal_finger'] = 1
+		stim['act'] = 40
+	elseif $ARGS[0] = 'anal_fist':
+		counter['anal_fist'] = 1
+		stim['act'] = 30
+		if anus > 30:
+			anus += 30
+			if agape < 3:agape = 3 & agapetime = totminut
+		end
+	elseif $ARGS[0] = 'anal_dildo':
+		counter['anal_dildo'] = 1
+		if ((anus + lubonus + 2) * 2) <= dick:
+			!!Painfully too big for PC
+			stim['act'] = 20
+			if agape < 3:agape = 3 & agapetime = totminut
+		elseif (anus + lubonus + 2) < dick:
+			!!Big, but more bearable
+			stim['act'] = 65
+			if agape < 1:agape = 1 & agapetime = totminut
+		elseif anus + lubonus + 2 >= dick:
+			!!Perfect size
+			stim['act'] = 80
+		end
+	elseif $ARGS[0] = 'anal_strap':
+		counter['anal_strap'] = 1
+		if ((anus + lubonus + 2) * 2) <= dick:
+			!!Painfully too big for PC
+			stim['act'] = 20
+			if agape < 3:agape = 3 & agapetime = totminut
+		elseif (anus + lubonus + 2) < dick:
+			!!Big, but more bearable
+			stim['act'] = 65
+			if agape < 1:agape = 1 & agapetime = totminut
+		elseif anus + lubonus + 2 >= dick:
+			!!Perfect size
+			stim['act'] = 80
+		end
+	elseif $ARGS[0] = 'anal_vibe':
+		counter['anal_vibe'] = 1
+		stim['mag'] += 1
+		stim['act'] = 60
+	elseif $ARGS[0] = 'vaginal':
+		counter['vaginal'] = 1
+		stim['mag'] += 3
+		prinat = vagina + (horny / 10)
+		if dick >= prinat * 2:
+			!!Painfully too big for PC
+			stim['act'] = 40
+			if vgape < 3:vgape = 3 & vgapetime = totminut
+		elseif dick > prinat:
+			!!Big, but more bearable
+			stim['act'] = 75
+			if vgape < 1:vgape = 1 & vgapetime = totminut
+		elseif dick <= prinat and dick >= vagina:
+			!!Perfect size
+			stim['act'] = 90
+		elseif dick < vagina:
+			!!On the small side
+			stim['act'] = 80
+		end
+	elseif $ARGS[0] = 'vaginal_finger':
+		counter['vaginal_finger'] = 1
+		stim['mag'] += 1
+		stim['act'] = 80
+	elseif $ARGS[0] = 'vaginal_fist':
+		counter['vaginal_fist'] = 1
+		stim['act'] = 70
+		if vagina + (horny / 10) < 30:
+			vagina += 3
+			if vgape < 3:vgape = 3 & vgapetime = totminut
+		end
+	elseif $ARGS[0] = 'vaginal_dildo':
+		counter['vaginal_dildo'] = 1
+		stim['mag'] += 1
+		prinat = vagina + (horny / 10)
+		if dick >= prinat * 2:
+			!!Painfully too big for PC
+			stim['act'] = 20
+			if vgape < 3:vgape = 3 & vgapetime = totminut
+		elseif dick > prinat:
+			!!Big, but more bearable
+			stim['act'] = 65
+			if vgape < 1:vgape = 1 & vgapetime = totminut
+		elseif dick <= prinat and dick >= vagina:
+			!!Perfect size
+			stim['act'] = 80
+		elseif dick < vagina:
+			!!On the small side
+			stim['act'] = 70
+		end
+	elseif $ARGS[0] = 'vaginal_strap':
+		counter['vaginal_strap'] = 1
+		stim['mag'] += 1
+		stim['act'] = 80
+		prinat = vagina + (horny / 10)
+		if dick >= prinat * 2:
+			!!Painfully too big for PC
+			stim['act'] = 20
+			if vgape < 3:vgape = 3 & vgapetime = totminut
+		elseif dick > prinat:
+			!!Big, but more bearable
+			stim['act'] = 65
+			if vgape < 1:vgape = 1 & vgapetime = totminut
+		elseif dick <= prinat and dick >= vagina:
+			!!Perfect size
+			stim['act'] = 80
+		elseif dick < vagina:
+			!!On the small side
+			stim['act'] = 70
+		end
+	elseif $ARGS[0] = 'vaginal_vibe':
+		counter['vaginal_vibe'] = 1
+		stim['mag'] += 2
+		stim['act'] = 90
+	elseif $ARGS[0] = 'flash_breasts':
+		counter['flash_breasts'] = 1
+		stim['act'] = 30
+	elseif $ARGS[0] = 'flash_pussy':
+		counter['flash_pussy'] = 1
+		stim['act'] = 10
+	elseif $ARGS[0] = 'flash_ass':
+		counter['flash_ass'] = 1
+		stim['act'] = 10
+	elseif $ARGS[0] = 'kiss_give':
+		stim['act'] = 20
+	elseif $ARGS[0] = 'breasts_give':
+		stim['act'] = 20
+	elseif $ARGS[0] = 'massage_give':
+		stim['act'] = 10
+	elseif $ARGS[0] = 'foreplay_give':
+		stim['act'] = 20
+	elseif $ARGS[0] = 'cuni_give':
+		counter['cuni_give'] = 1
+		stim['act'] = 30
+	elseif $ARGS[0] = 'rimming_give':
+		counter['rimming_give'] = 1
+		stim['act'] = 25
+	elseif $ARGS[0] = 'anal_finger_give':
+		counter['anal_finger_give'] = 1
+		stim['act'] = 40
+	elseif $ARGS[0] = 'anal_fist_give':
+		counter['anal_fist_give'] = 1
+		stim['act'] = 30
+	elseif $ARGS[0] = 'anal_dildo_give':
+		counter['anal_dildo_give'] = 1
+		stim['act'] = 40
+	elseif $ARGS[0] = 'anal_vibe_give':
+		counter['anal_vibe_give'] = 1
+		stim['act'] = 40
+	elseif $ARGS[0] = 'anal_strap_give':
+		counter['anal_strap_give'] = 1
+		stim['act'] = 40
+	elseif $ARGS[0] = 'vaginal_finger_give':
+		counter['vaginal_finger_give'] = 1
+		stim['act'] = 60
+	elseif $ARGS[0] = 'vaginal_fist_give':
+		counter['vaginal_fist_give'] = 1
+		stim['act'] = 50
+	elseif $ARGS[0] = 'vaginal_dildo_give':
+		counter['vaginal_dildo_give'] = 1
+		stim['act'] = 60
+	elseif $ARGS[0] = 'vaginal_strap_give':
+		counter['vaginal_strap_give'] = 1
+		stim['act'] = 70
+	elseif $ARGS[0] = 'vaginal_vibe_give':
+		counter['vaginal_vibe_give'] = 1
+		stim['act'] = 60
+	elseif $ARGS[0] = 'hj':
+		counter['hj'] = 1
+		stim['act'] = 25
+	elseif $ARGS[0] = 'bj':
+		counter['bj'] = 1
+		stim['act'] = 45
+	elseif $ARGS[0] = 'footjob':
+		counter['footjob'] = 1
+		stim['act'] = 25
+	end
+
+	if stim['mag'] > 9: stim['mag'] = 9
+
+	minut += ARGS[1]
+	stim['time'] = ARGS[1]
+
+
+
+	stim['kinkno'] = 0
+	stim['kink'] = 0
+
+	i = 2
+	:stimloop
+	if $ARGS[i] ! '':
+		if $ARGS[i] = 'bound':
+			stim['kink'] += bondage['exp']
+			stim['pref'] += bondage['pref']
+			stim['kinkno'] += 1
+			stim['bound'] = 1
+		elseif $ARGS[i] = 'beast':
+			stim['kink'] += bestiality['exp']
+			stim['pref'] += bestiality['pref']
+			stim['kinkno'] += 1
+			stim['beast'] = 1
+		elseif $ARGS[i] = 'exhibitionism':
+			stim['kink'] += exhibitionism['exp']
+			stim['pref'] += exhibitionism['pref']
+			stim['kinkno'] += 1
+			stim['exhibitionism'] = 1
+		elseif $ARGS[i] = 'rough':
+			stim['kink'] += rough['exp']
+			stim['pref'] += rough['pref']
+			stim['kinkno'] += 1
+			stim['rough'] = 1
+		elseif $ARGS[i] = 'prostitution':
+			stim['kink'] += prostitution['exp']
+			stim['pref'] += prostitution['pref']
+			stim['kinkno'] += 1
+			stim['prostitution'] = 1
+		elseif $ARGS[i] = 'dom':
+			stim['kink'] += dom['exp']
+			stim['pref'] += dom['pref']
+			stim['kinkno'] += 1
+			stim['dom'] = 1
+		elseif $ARGS[i] = 'sub':
+			stim['kink'] += sub['exp']
+			stim['pref'] += sub['pref']
+			stim['kinkno'] += 1
+			stim['sub'] = 1
+		elseif $ARGS[i] = 'incest':
+			stim['kink'] += incest['exp']
+			stim['pref'] += incest['pref']
+			stim['kinkno'] += 1
+			stim['incest'] = 1
+		elseif $ARGS[i] = 'feet':
+			stim['kink'] += feet['exp']
+			stim['pref'] += feet['pref']
+			stim['kinkno'] += 1
+			stim['feet'] = 1
+		elseif $ARGS[i] = 'lesbian
+			stim['kink'] += lesbian['exp']
+			stim['pref'] += lesbian['pref']
+			stim['kinkno'] += 1
+			stim['lesbian'] = 1
+		elseif $ARGS[i] = 'group':
+			stim['kink'] += group['exp']
+			stim['pref'] += group['pref']
+			stim['kinkno'] += 1
+			stim['group'] = 1
+		elseif $ARGS[i] = 'gangbang':
+			stim['kink'] += gangbang['exp']
+			stim['pref'] += gangbang['pref']
+			stim['kinkno'] += 1
+			stim['gangbang'] = 1
+		elseif $ARGS[i] = 'humiliation':
+			stim['kink'] += humiliation['exp']
+			stim['pref'] += humiliation['pref']
+			stim['kinkno'] += 1
+			stim['humiliation'] = 1
+		elseif $ARGS[i] = 'maso':
+			stim['kink'] += maso['exp']
+			stim['pref'] += maso['pref']
+			stim['kinkno'] += 1
+			stim['maso'] = 1
+		elseif $ARGS[i] = 'deepthroat':
+			stim['kink'] += deepthroat['exp']
+			stim['pref'] += deepthroat['pref']
+			stim['kinkno'] += 1
+			stim['deepthroat'] = 1
+		end
+
+		i += 1
+		loop 'stimloop'
+	end
+
+
+	!Fetishes are divided by total number of fetishes
+	if stim['kinkno'] ! 0:
+		stim['kink'] = stim['kink']/stim['kinkno']
+		stim['pref'] = (stim['pref']/stim['kinkno']) + 50
+		stim['kinkno'] = 0
+	else
+		stim['kink'] = 1
+		stim['pref'] = 1
+	end
+
+	!arousal calculation
+	stim['total'] = stim[mag]*(stim['act']*stim['kink']*stim['pref'])/60*stim['time'] / 1000000
+
+	if maso['pref'] <= 0 and pain ['total'] < 50:
+		if pain['total'] - (maso['exp'] / 6) > 0:stim['total'] -= (pain['total'] - (maso['exp'] / 6))
+	elseif maso['pref'] < 25 and pain ['total'] < 55:
+		stim['total'] += (pain['total'] * maso['exp'] / 400)/60*stim['time']
+	elseif maso['pref'] < 50 and pain ['total'] < 70:
+		stim['total'] += (pain['total'] * maso['exp'] / 300)/60*stim['time']
+	elseif maso['pref'] < 75 and pain ['total'] < 85:
+		stim['total'] += (pain['total'] * maso['exp'] / 200)/60*stim['time']
+	elseif maso['pref'] >= 75:
+		stim['total'] += (pain['total'] * maso['exp'] / 100)/60*stim['time']
+	else
+		stim['total'] = 0
+	end
+
+	stim['event'] += stim['total']
+
+	horny += stim['total']
+
+	
+	!-------------------Orgasm-------------------
+	!This is intended to be hidden and the stats and calculations should not appear in game.
+
+	orgasm[total] += stim['total'] + horny
+
+	if orgasm[total] >= 100:gt 'orgasm'
+
+if $ARG[0] = 'end':
+	gs 'arousal', 'checks', 'maso'
+	gs 'arousal', 'checks', 'bound'
+	gs 'arousal', 'checks', 'beast'
+	gs 'arousal', 'checks', 'exhibitionism'
+	gs 'arousal', 'checks', 'rough'
+	gs 'arousal', 'checks', 'prostitution'
+	gs 'arousal', 'checks', 'dom'
+	gs 'arousal', 'checks', 'sub'
+	gs 'arousal', 'checks', 'incest'
+	gs 'arousal', 'checks', 'feet'
+	gs 'arousal', 'checks', 'lesbian'
+	gs 'arousal', 'checks', 'group'
+	gs 'arousal', 'checks', 'gangbang'
+	gs 'arousal', 'checks', 'humiliation'
+	gs 'arousal', 'checks', 'deepthroat'
+
+	stim['event'] = 0
+
+	if counter['mast'] = 1:
+		stat['mast'] += 1
+	if counter['porn'] = 1
+		stat['porn'] += 1
+	if counter['voyeur'] = 1
+		stat['voyeur'] += 1
+	if counter['cuni'] = 1
+		stat['cuni'] += 1
+	if counter['rimming'] = 1
+		stat['rimming'] += 1
+	if counter['trib'] = 1
+		stat['trib'] += 1
+	if counter['anal'] = 1
+		stat['anal'] += 1
+	if counter['anal_finger'] = 1
+		stat['anal_finger'] += 1
+	if counter['anal_fist'] = 1
+		stat['anal_fist'] += 1
+	if counter['anal_dildo'] = 1
+		stat['anal_dildo'] += 1
+	if counter['anal_strap'] = 1
+		stat['anal_strap'] += 1
+	if counter['anal_vibe'] = 1
+		stat['anal_vibe'] += 1
+	if counter['vaginal'] = 1
+		stat['vaginal'] += 1
+	if counter['vaginal_finger'] = 1
+		stat['vaginal_finger'] += 1
+	if counter['vaginal_fist'] = 1
+		stat['vaginal_fist'] += 1
+	if counter['vaginal_dildo'] = 1
+		stat['vaginal_dildo'] += 1
+	if counter['vaginal_strap'] = 1
+		stat['vaginal_strap'] += 1
+	if counter['vaginal_vibe'] = 1
+		stat['vaginal_vibe'] += 1
+	if counter['flash_breasts'] = 1
+		stat['flash_breasts'] += 1
+	if counter['flash_pussy'] = 1
+		stat['flash_pussy'] += 1
+	if counter['flash_ass'] = 1
+		stat['flash_ass'] += 1
+	if counter['cuni_give'] = 1
+		stat['cuni_give'] += 1
+	if counter['rimming_give'] = 1
+		stat['rimming_give'] += 1
+	if counter['anal_finger_give'] = 1
+		stat['anal_finger_give'] += 1
+	if counter['anal_fist_give'] = 1
+		stat['anal_fist_give'] += 1
+	if counter['anal_dildo_give'] = 1
+		stat['anal_dildo_give'] += 1
+	if counter['anal_vibe_give'] = 1
+		stat['anal_vibe_give'] += 1
+	if counter['anal_strap_give'] = 1
+		stat['anal_strap_give'] += 1
+	if counter['vaginal_finger_give'] = 1
+		stat['vaginal_finger_give'] += 1
+	if counter['vaginal_fist_give'] = 1
+		stat['vaginal_fist_give'] += 1
+	if counter['vaginal_dildo_give'] = 1
+		stat['vaginal_dildo_give'] += 1
+	if counter['vaginal_strap_give'] = 1
+		stat['vaginal_strap_give'] += 1
+	if counter['vaginal_vibe_give'] = 1
+		stat['vaginal_vibe_give'] += 1
+	if counter['hj'] = 1
+		stat['hj'] += 1
+	if counter['bj'] = 1
+		stat['bj'] += 1
+	if counter['footjob'] = 1
+		stat['footjob'] += 1
+	end
+end
+
+if $ARG[0] = 'checks':
+	if stim['<<$ARGS[1]>>'] = 1:
+		stim['<<$ARGS[1]>>'] = 0
+		<<$ARGS[1]>>['exp'] += 1
+	end
+end
+
+--- arousal ---------------------------------
+

locations/obj_din

@@ -112,28 +112,48 @@ if $ARGS[0] = 'skills':
 	pl 'Spirit <<will>>'
 	pl 'Reaction <<react>>'
 	pl '<<$fat>>'
-	!!pl 'Shamelessness <<shameless>>'
 
 	nl
 	pl '<b>Sexual characteristics</b>'
 	nl
 	pl 'Exhibitionism <<exhibition>>'
+	pl 'Exhibitionist sex preference: <<exhibitionism['pref']>>'
+	pl 'Exhibitionist sex experence: <<exhibitionism['exp']>>'
 	if SUB > 0:pl 'Submissiveness <<SUB>>'
 	if DOM > 0:pl 'Dominance <<DOM>>'
+	pl 'Submissive preference: <<sub['pref']>>'
+	pl 'Submissive experence: <<sub['exp']>>'
+	pl 'Dominance preference: <<dom['pref']>>'
+	pl 'Dominance experence: <<dom['exp']>>'
+	pl 'Lesbian sex preference: <<lesbian['pref']>>'
+	pl 'Lesbian sex experence: <<lesbian['exp']>>'
 	pl 'Curiosity <<curiosity>>'
 	pl 'Inhibition <<inhibition>>'
 	pl 'Perversion <<perversion>>'
 	nl
 	pl '<b>Fetishes</b>'
-	pl 'Porn <<porn>>'
-	pl 'Interracial <<interracial>>'
-	pl 'Prostitution <<prostitution>>'
-	pl 'Bondage <<bondage>>'
-	pl 'Masochism <<masochism>>'
-	pl 'Sadism <<sadist>>'
-	pl 'Bestiality <<zoo/5>>'
-	pl 'Rape <<rape>>'
-	pl 'Incest <<incest>>'
+	pl 'Feet preference: <<feet['pref']>>'
+	pl 'Feet experence: <<feet['exp']>>'
+	pl 'Deepthroat preference: <<deepthroat['pref']>>'
+	pl 'Deepthroat deepthroat['exp']>>'
+	pl 'Group preference: <<group['pref']>>'
+	pl 'Group experence: <<group['exp']>>'
+	pl 'Gangbang preference: <<gangbang['pref']>>'
+	pl 'Gangbang experence: <<gangbang['exp']>>'
+	pl 'Humiliation preference: <<humiliation['pref']>>'
+	pl 'Humiliation experence: <<humiliation['exp']>>'
+	pl 'Prostitution preference: <<prostitution['pref']>>'
+	pl 'Prostitution experence: <<prostitution['exp']>>'
+	pl 'Bondage preference: <<bound['pref']>>'
+	pl 'Bondage experence: <<bound['exp']>>'
+	pl 'Masochism preference: <<maso['pref']>>'
+	pl 'Masochism experence: <<maso['exp']>>'
+	pl 'Bestiality preference: <<beast['pref']>>'
+	pl 'Bestiality experence: <<beast['exp']>>'
+	pl 'Rough sex preference: <<rough['pref']>>'
+	pl 'Rough sex experence: <<rough['exp']>>'
+	pl 'Incest preference: <<incest['pref']>>'
+	pl 'Incest experence: <<incest['exp']>>'
 	nl
 	!!pl 'Muscles <<$musle>>'
 

locations/orgasm

@@ -0,0 +1,112 @@
+# orgasm
+
+!This is intended to be hidden and the stats and calculations should not appear in game.
+
+if orgasm[total] >= 100:
+	orgasm[total] -= 100
+	if arousal <= 10:
+		i = rand(0,3)
+		if i = 0:
+			'What?'
+		elseif i = 1:
+			'What?'
+		elseif i = 2:
+			'What?'
+		elseif i = 3:
+			'What?'
+		end
+	elseif arousal <= 20:
+		i = rand(0,3)
+		if i = 0:
+			'Meh'
+		elseif i = 1:
+			'Meh'
+		elseif i = 2:
+			'Meh'
+		elseif i = 3:
+			'Meh'
+		end
+	elseif arousal <= 30:
+		i = rand(0,3)
+		if i = 0:
+			'Hmm'
+		elseif i = 1:
+			'Hmm'
+		elseif i = 2:
+			'Hmm'
+		elseif i = 3:
+			'Hmm'
+		end
+	elseif arousal <= 40:
+		i = rand(0,3)
+		if i = 0:
+			'Oh'
+		elseif i = 1:
+			'Oh'
+		elseif i = 2:
+			'Oh'
+		elseif i = 3:
+			'Oh'
+		end
+	elseif arousal <= 50:
+		i = rand(0,3)
+		if i = 0:
+			'Whew'
+		elseif i = 1:
+			'Whew'
+		elseif i = 2:
+			'Whew'
+		elseif i = 3:
+			'Whew'
+		end
+	elseif arousal <= 60:
+		i = rand(0,3)
+		if i = 0:
+			'Yeah'
+		elseif i = 1:
+			'Yeah'
+		elseif i = 2:
+			'Yeah'
+		elseif i = 3:
+			'Yeah'
+		end
+	elseif arousal <= 70:
+		i = rand(0,3)
+		if i = 0:
+			'Hell yeah'
+		elseif i = 1:
+			'Hell yeah'
+		elseif i = 2:
+			'Hell yeah'
+		elseif i = 3:
+			'Hell yeah'
+		end
+	elseif arousal <= 80:
+		i = rand(0,3)
+		if i = 0:
+			'Fuck yeah'
+		elseif i = 1:
+			'Fuck yeah'
+		elseif i = 2:
+			'Fuck yeah'
+		elseif i = 3:
+			'Fuck yeah'
+		end
+	elseif arousal <= 90:
+		i = rand(0,3)
+		if i = 0:
+			'Woo hoo!'
+		elseif i = 1:
+			'Woo hoo!'
+		elseif i = 2:
+			'Woo hoo!'
+		elseif i = 3:
+			'Woo hoo!'
+		end
+	else
+		'...'
+	end
+end
+
+--- orgasm ---------------------------------
+