glife/locations/arousal.qsrc

# 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:
'flashlite' 'flash' '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'
All acts are from Sveta''s perspective and in cases of both giving and receiving, receiving should be used.
ARGS[1] for time taken in minutes - it is use partly for arousal calculation and partly for moving time ahead. If you want to calculate just the arousal and do not move time (simultaneous stimulation), use negative value.
$ARGS[2] can be used for passing the name of boys dick variable .. 'dick' is default, which belong to $boy, else can be passed 'dick1' .. 'dick4' or 'dick[i]' along the boys parameters activation 
$ARGS[2] - [8] 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' 'unknown' 'gloryhole' 'rape' 'futa'
Format to use: gs 'arousal', 'act', 'duration', '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'
Lubrication - if one of the arguments $ARGS[2] - [8] is set to 'lube', it supposes that it is used some kind of lubricant - preferably from PCs supply of lube.
Unaware - if one of the arguments $ARGS[2] - [8] is set to 'unaware', Sveta is not aware of this Sexact. Sveta will never know she had Sex!
The lubrication is binded with anal or vaginal action. I think that the best combo is with 'anal_finger' and 'vaginal_finger'
Only call one at a time, if more required, use multiple calls
You can override the orgasm to force or prevent, to do so use:
$orgasm_or = 'yes' to force orgasm, it will reset in orgasm call so if you want to force it again, you have to enter it again
*$orgasm_or = 'custom' to force orgasm and use custom text set as $orgasm_txt - *you can just add the text and call with 'yes' this is old method
$orgasm_or = 'no' to prevent orgasm, it will remain in place until manually changed, or if end is called.
$orgasm_txt is used to add custom text that will be called if Sveta orgasms in the next arousal call. It will remain until cleared or orgasm so you must clear it if not forcing orgasm and don''t want it to be used on next orgasm.
}

temp_anal = 0
temp_unaware = 0

if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0] ! 'count2':

	if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'unaware') > 0:
		temp_unaware = 1
	end

	if mid($ARGS[2],1,4) = 'dick':
		temp_dick = dyneval('result='+$ARGS[2])
		temp_silavag = dyneval('result=silavag'+mid($ARGS[2],5,len($ARGS[2])-4))
		$temp_dick_girth = dyneval('$result=$dick_girth'+mid($ARGS[2],5,len($ARGS[2])-4))
	else
		temp_dick = dick
		temp_silavag = silavag
		$temp_dick_girth = $dick_girth
	end
	if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'rough')+strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'beast') > 0: temp_silavag = 0
	grange = dyneval('result=strpos(''skinny   slimx     well pr   thicker   thickx    massive   monstrous'',$ARGS[0])',mid($temp_dick_girth+'x',1,6))/2

	!! first let us determine how slippery are pc''s holes
	if vaginal_slip < pcs_horny / 10: vaginal_slip = pcs_horny / 10
	if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'lube') > 0:
		if mid($ARGS[0],1,4) = 'anal':
			anal_slip += iif(lubri = 0,2,8)
			if anal_slip > 10: anal_slip=10
			if lubri > 0: lubri -= 1
		end
		if mid($ARGS[0],1,4) = 'vagi':
			vaginal_slip += iif(lubri = 0,2,8)
			if vaginal_slip > 12: vaginal_slip=12
			if lubri > 0: lubri -= 1
		end
	end
	!!	This is to allow a Succubus with the right skill level to handle any size then go back to original size
	if succubusflag = 1 and sucskill >= 4:
		if temp_dick ! pcs_vag:
			if temp_dick < pcs_vag - 5 or temp_dick > pcs_vag + 5: pcs_mood -= 10
			if sucvagorg = 0: sucvagorg = pcs_vag
			pcs_vag = temp_dick
		end
		if temp_dick ! pcs_ass:
			if temp_dick < pcs_ass - 5 or temp_dick > pcs_ass + 5: pcs_mood -= 10
			if sucanusorg = 0: sucanusorg = pcs_ass
			pcs_ass = temp_dick
		end
	end

!!set a magnitude as a random
	stim['mag'] = rand(0,3) + rand(0,3) + rand(0,3) 

!!add count and effects due to action
	if $ARGS[0] = 'masturbate':
		count['mast'] = 1
		stim['mag'] += 6
		stim['act'] = 100
	elseif $ARGS[0] = 'porn':
		count['porn'] = 1
		stim['act'] = 20
	elseif $ARGS[0] = 'voyeur':
		count['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':
		count['cuni'] = 1
		stim['mag'] += 4
		stim['act'] = 80
	elseif $ARGS[0] = 'rimming':
		count['rimming'] = 1
		stim['act'] = 30
	elseif $ARGS[0] = 'trib':
		count['trib'] = 1
		stim['mag'] += 3
		stim['act'] = 70
		stim_les = 1
	elseif $ARGS[0] = 'anal':
		temp_anal = 1
		if temp_unaware = 1:
			count['hidden_anal'] = 1
		else
			count['anal'] = 1
		end
		if pcs_ass < dick:pcs_ass += 1
		if pcs_ass*2 < dick:pcs_ass += 1
		!! length and girth abilities of anus are not also separated , but I suppose that they are related although it is not propable
		!! we can estimate difference in girth and length anal_girth_difference and anal_lenght_difference - names are shortened
		altdif = temp_dick - pcs_ass
		agrdif = grange - pcs_ass
		!! negative influence of the difference can be reduced by sex skill and also by lubricant
		!! I made it as simply as posible so you do not complain about reality, feel free to modify the algorithm
		!! when the boy is skilled, he can compensate the difference partly
		altdif = altdif / (temp_silavag+1)
		agrdif = agrdif *(5/4 - 1/(4 - temp_silavag))
		!! when the boy is skilled, he does not harm PC with his long dick
		if (temp_silavag = 2) and (altdif > 0): altdif = 0
		!! lube can compensate the difference a bit
		if  agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
		if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0

		stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
		!! if the dick is smaller, it cannot harm PC
		if agrdif < 0: agrdif = 0
		if altdif < 0: altdif = 0
		!! calculate the harm
		agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
		!! the pain lover the pleasure
		gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
		stim['act'] = stim['act'] - (agrdif + altdif)
	elseif $ARGS[0] = 'anal_finger':
		temp_anal = 1
		count['anal_finger'] = 1
		stim['act'] = 40
	elseif $ARGS[0] = 'anal_fist':
		temp_anal = 1
		count['anal_fist'] = 1
		gs 'pain', 4-agape, 'asshole', 'stretch'
		stim['act'] = 30
		if pcs_ass > 30:
			pcs_ass += 30
			if agape < 3:agape = 3
		end
	elseif $ARGS[0] = 'anal_dildo':
		temp_anal = 1
		count['anal_dildo'] = 1
		!! the same as for 'anal'
		altdif = temp_dick - pcs_ass
		agrdif = grange - pcs_ass
		altdif = altdif / (temp_silavag+1)
		agrdif = agrdif *(5/4 - 1/(4 - temp_silavag))
		if (temp_silavag = 2) and (altdif > 0): altdif = 0
		if  agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
		if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0
		stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
		if agrdif < 0: agrdif = 0
		if altdif < 0: altdif = 0
		agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
		gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
		stim['act'] = stim['act'] - (agrdif + altdif)
	elseif $ARGS[0] = 'anal_strap':
		temp_anal = 1
		count['anal_strap'] = 1
		!! the same as for 'anal'
		altdif = temp_dick - pcs_ass
		agrdif = grange - pcs_ass
		altdif = altdif / (temp_silavag+1)
		agrdif = agrdif *(5/4 - 1/(4 - temp_silavag))
		if (temp_silavag = 2) and (altdif > 0): altdif = 0
		if  agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
		if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0
		stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
		if agrdif < 0: agrdif = 0
		if altdif < 0: altdif = 0
		agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
		gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
		stim['act'] = stim['act'] - (agrdif + altdif)
	elseif $ARGS[0] = 'anal_vibe':
		temp_anal = 1
		count['anal_vibe'] = 1
		stim['mag'] += 1
		stim['act'] = 60
	elseif $ARGS[0] = 'vaginal':

		!! pre-cum check
		if rand(0,120) < ARGS[1]: cumprecheck = 1 & gs 'cum_manage'
		
		if temp_unaware = 1:
			count['hidden_vaginal'] = 1
		else
			count['vaginal'] = 1
		end
		stim['mag'] += 3
		!! This section deals with pcs_vag if she still thinks she is virgin. There are many instances where virginity is 
		!! checked via pcs_vag = 0, so for the time being i will not adjust pcs_vag if she believes. 
		if temp_unaware = 0 or count['vaginal'] > 0:
			if pcs_vag < dick:pcs_vag += 1
			if pcs_vag*2 < dick:pcs_vag += 1
		end 
		!! length and girth abilities of vagina are not separated , but I suppose that they are related
		!! we can estimate difference in girth and length vaginal_girth_difference and vaginal_lenght_difference - names are shortened
		vgrdif = grange - pcs_vag
		vltdif = temp_dick - pcs_vag
		!! negative influence of the difference can be reduced by sex skill and also by PCs horniness, using of a lubricant is not established yet
		!! I made it as simply as posible so you do not complain about reality, feel free to modify the algorithm
		!! when the boy is skilled, he can compensate the difference partly
		vltdif = vltdif / (temp_silavag+1)
		vgrdif = vgrdif *(5/4 - 1/(4 - temp_silavag))
		!! when the boy is skilled, he does not harm PC with his long dick
		if (temp_silavag = 2) and (vltdif > 0): vltdif = 0
		!! even PC horniness can compensate the difference 
		if    vgrdif > vaginal_slip: vgrdif = vgrdif - vaginal_slip else if (vgrdif > 0): vgrdif = 0
		if -1*vgrdif > vaginal_slip: vgrdif = vgrdif + vaginal_slip else if (vgrdif < 0): vgrdif = 0

		stim['act'] = 80 - (iif(vltdif>0,vltdif,-vltdif) + iif(vgrdif >0,vgrdif,-vgrdif)) + temp_silavag*8
		!! if the dick is smaller, it cannot harm PC
		if vgrdif < 0: vgrdif = 0
		if vltdif < 0: vltdif = 0
		!! calculate the harm
		vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
		!! the pain lover the pleasure
		gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
		stim['act'] = stim['act'] - (vgrdif + vltdif)
	elseif $ARGS[0] = 'vaginal_finger':
		count['vaginal_finger'] = 1
		stim['mag'] += 1
		stim['act'] = 80
	elseif $ARGS[0] = 'vaginal_fist':
		count['vaginal_fist'] = 1
		stim['act'] = 70
		gs 'pain', 3 - vgape, 'vaginal', 'stretch'
		if pcs_vag + vaginal_slip < 30:
			!! same as for 'vaginal'
			if temp_unaware = 0 or count['vaginal'] > 0:pcs_vag += 3
			if vgape < 3:vgape = 3
		end
	elseif $ARGS[0] = 'vaginal_dildo':
		count['vaginal_dildo'] = 1
		stim['mag'] += 1
		!! the same as for 'vaginal'
		vgrdif = grange - pcs_vag
		vltdif = temp_dick - pcs_vag
		vltdif = vltdif / (temp_silavag+1)
		vgrdif = vgrdif *(5/4 - 1/(4 - temp_silavag))
		if (temp_silavag = 2) and (vltdif > 0): vltdif = 0
		if    vgrdif > vaginal_slip: vgrdif = vgrdif - vaginal_slip else if (vgrdif > 0): vgrdif = 0
		if -1*vgrdif > vaginal_slip: vgrdif = vgrdif + vaginal_slip else if (vgrdif < 0): vgrdif = 0
		stim['act'] = 80 - (iif(vltdif>0,vltdif,-vltdif) + iif(vgrdif >0,vgrdif,-vgrdif)) + temp_silavag*8
		if vgrdif < 0: vgrdif = 0
		if vltdif < 0: vltdif = 0
		vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
		gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
		stim['act'] = stim['act'] - (vgrdif + vltdif)
	elseif $ARGS[0] = 'vaginal_strap':
		count['vaginal_strap'] = 1
		stim['mag'] += 1
		!! virginal capacity increase
		if pcs_vag < dick:pcs_vag += 1
		if pcs_vag*2 < dick:pcs_vag += 1
		!! the same as for 'vaginal'
		vgrdif = grange - pcs_vag
		vltdif = temp_dick - pcs_vag
		vltdif = vltdif / (temp_silavag+1)
		vgrdif = vgrdif *(5/4 - 1/(4 - temp_silavag))
		if (temp_silavag = 2) and (vltdif > 0): vltdif = 0
		if    vgrdif > vaginal_slip: vgrdif = vgrdif - vaginal_slip else if (vgrdif > 0): vgrdif = 0
		if -1*vgrdif > vaginal_slip: vgrdif = vgrdif + vaginal_slip else if (vgrdif < 0): vgrdif = 0
		stim['act'] = 80 - (iif(vltdif>0,vltdif,-vltdif) + iif(vgrdif >0,vgrdif,-vgrdif)) + temp_silavag*8
		if vgrdif < 0: vgrdif = 0
		if vltdif < 0: vltdif = 0
		vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
		gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
		stim['act'] = stim['act'] - (vgrdif + vltdif)
	elseif $ARGS[0] = 'vaginal_vibe':
		count['vaginal_vibe'] = 1
		stim['mag'] += 2
		stim['act'] = 90
	elseif $ARGS[0] = 'flashlite':
		count['flashlite'] = 1
		stim['act'] = 10
	elseif $ARGS[0] = 'flash':
		count['flash'] = 1
		stim['act'] = 30
	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':
		count['cuni_give'] = 1
		stim['act'] = 30
		stim_les = 1
	elseif $ARGS[0] = 'rimming_give':
		count['rimming_give'] = 1
		stim['act'] = 25
	elseif $ARGS[0] = 'anal_finger_give':
		count['anal_finger_give'] = 1
		stim['act'] = 40
	elseif $ARGS[0] = 'anal_fist_give':
		count['anal_fist_give'] = 1
		stim['act'] = 30
	elseif $ARGS[0] = 'anal_dildo_give':
		count['anal_dildo_give'] = 1
		stim['act'] = 40
	elseif $ARGS[0] = 'anal_vibe_give':
		count['anal_vibe_give'] = 1
		stim['act'] = 40
	elseif $ARGS[0] = 'anal_strap_give':
		count['anal_strap_give'] = 1
		stim['act'] = 40
	elseif $ARGS[0] = 'vaginal_finger_give':
		count['vaginal_finger_give'] = 1
		stim['act'] = 60
		stim_les = 1
	elseif $ARGS[0] = 'vaginal_fist_give':
		count['vaginal_fist_give'] = 1
		stim['act'] = 50
		stim_les = 1
	elseif $ARGS[0] = 'vaginal_dildo_give':
		count['vaginal_dildo_give'] = 1
		stim['act'] = 60
		stim_les = 1
	elseif $ARGS[0] = 'vaginal_strap_give':
		count['vaginal_strap_give'] = 1
		stim['act'] = 70
		stim_les = 1
	elseif $ARGS[0] = 'vaginal_vibe_give':
		count['vaginal_vibe_give'] = 1
		stim['act'] = 60
		stim_les = 1
	elseif $ARGS[0] = 'hj':
		if temp_unaware = 1:
			count['hidden_hj'] = 1
		else
			count['hj'] = 1
		end
		stim['act'] = 25
	elseif $ARGS[0] = 'bj':
		if temp_unaware = 1:
			count['hidden_bj'] = 1
		else
			count['bj'] = 1
		end
		stim['act'] = 45
		if temp_dick > pcs_throat: pcs_throat += 1
	elseif $ARGS[0] = 'footjob':
		if temp_unaware = 1:
			count['hidden_footjob'] = 1
		else
			count['footjob'] = 1
		end
		stim['act'] = 25
		stim_foot = 1
	end

	if stim['mag'] > 9: stim['mag'] = 9

	if ARGS[1] > 0: minut += ARGS[1]
	stim['time'] = iif(ARGS[1]>0,ARGS[1],-ARGS[1])


!!Adds effects due to sexual perversions
	stim['kinkno'] = 0
	stim['kink'] = 0

!! Auto adding of lesbian and foot fetishes for acts that must involve them
	if stim_les = 1:
		stim['kink'] += lesbian['exp']
		stim['pref'] += lesbian['pref']
		stim['kinkno'] += 1
		if temp_unaware = 1:
			stim['hidden_lesbian'] = 1
		else
			stim['lesbian'] = 1
		end
	end

	if stim_foot = 1:
		stim['kink'] += feet['exp']
		stim['pref'] += feet['pref']
		stim['kinkno'] += 1
		stim['feet'] = 1
	end

	i = 2
	:stimloop
	if $ARGS[i] ! '':
!!Skipping lesbian and foot where auto added to avoid duplication
		if stim_les = 1 and $ARGS[i] = 'lesbian':i += 1 & jump 'stimloop'
		if stim_foot = 1 and $ARGS[i] = 'feet':i += 1 & jump 'stimloop'
		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']
			inhib_exp += rand(2,6)
			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
			if temp_unaware = 1:
				stim['hidden_prostitution'] = 1
			else
				stim['prostitution'] = 1
			end
		elseif $ARGS[i] = 'dom':
			stim['kink'] += dom['exp']
			stim['pref'] += pcs_dom
			stim['kinkno'] += 1
			stim['dom'] = 1
		elseif $ARGS[i] = 'sub':
			stim['kink'] += sub['exp']
			stim['pref'] += sub
			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
			if temp_unaware = 1:
				stim['hidden_lesbian'] = 1
			else
				stim['lesbian'] = 1
			end
		elseif $ARGS[i] = 'group':
			stim['kink'] += group['exp']
			stim['pref'] += group['pref']
			stim['kinkno'] += 1
			if temp_unaware = 1:
				stim['hidden_group'] = 1
			else
				stim['group'] = 1
			end
		elseif $ARGS[i] = 'gangbang':
			stim['kink'] += gangbang['exp']
			stim['pref'] += gangbang['pref']
			stim['kinkno'] += 1
			if temp_unaware = 1:
				stim['hidden_gang'] = 1
			else
				stim['gang'] = 1
			end
		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
!!unknown is for sex with an unknown partner, this could be a gloryhole or unconscious
		elseif $ARGS[i] = 'unknown':
			stim['kink'] += unknown['exp']
			stim['pref'] += unknown['pref']
			stim['kinkno'] += 1
			stim['unknown'] = 1
		elseif $ARGS[i] = 'gloryhole':
			stim['kink'] += gloryhole['exp']
			stim['pref'] += gloryhole['pref']
			stim['kinkno'] += 1
			if temp_unaware = 1:
				stim['hidden_gloryhole'] = 1
			else
				stim['gloryhole'] = 1
			end
		elseif $ARGS[i] = 'rape':
			stim['kink'] += rape['exp']
			stim['pref'] += rape['pref']
			stim['kinkno'] += 1
			if temp_unaware = 1:
				stim['hidden_rape'] = 1
			else
				stim['rape'] = 1
			end	
		elseif $ARGS[i] = 'futa':
			stim['kink'] += futa['exp']
			stim['pref'] += futa['pref']
			stim['kinkno'] += 1
			if temp_unaware = 1:
				stim['hidden_futa'] = 1
			else
				stim['futa'] = 1
			end		
		end

		i += 1
		jump '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'])
		stim['kinkno'] = 0
	end

!!Bonus from fetishes, randomised chance for each level of bonus
	if rand(0,100) < stim['kink']:
		stim['kink'] = 120
	elseif rand(0,80) < stim['kink']:
		stim['kink'] = 110
	elseif rand(0,60) < stim['kink']:
		stim['kink'] = 100
	elseif rand(0,40) < stim['kink']:
		stim['kink'] = 90
	else
		stim['kink'] = 80
	end

!!arousal calculation
	stim['total'] = ((stim['mag']*stim['act']*stim['kink']/100) + stim['pref'])*stim['time'] / 120

!!Reduction in arousal linked to pain, masochism helps to deal with this
	if pain['total'] > 0:
		if maso['pref'] <= 0 and pain['total'] < 50:
			if pain['total'] - (maso['exp'] + 1 / 6) > 0:stim['total'] -= (pain['total'] - (maso['exp'] / 6))
		elseif maso['pref'] < 25 and pain['total'] < 55:
			stim['total'] += (pain['total'] * maso['exp'] +1 / 400)/60*stim['time']
		elseif maso['pref'] < 50 and pain['total'] < 70:
			stim['total'] += (pain['total'] * maso['exp'] + 1 / 300)/60*stim['time']
		elseif maso['pref'] < 75 and pain['total'] < 85:
			stim['total'] += (pain['total'] * maso['exp'] + 1 / 200)/60*stim['time']
		elseif maso['pref'] >= 75:
			stim['total'] += (pain['total'] * maso['exp'] + 1 / 100)/60*stim['time']
		else
			stim['total'] = 0
		end
	end

	stim['event'] += stim['total']

	pcs_horny += stim['total']

!!	This is to allow a Succubus with the right skill level to handle any size then go back to original size
	if sucvagorg  ! 0 and sucvagorg  ! pcs_vag: pcs_vag = sucvagorg  & killvar 'sucvagorg'
	if sucanusorg ! 0 and sucanusorg ! pcs_ass: pcs_ass = sucanusorg & killvar 'sucanusorg'

!!-------------------Orgasm-------------------
!!This is intended to be hidden and the stats and calculations should not appear in game.

	orgasm_buildup += stim['total']

	if $orgasm_or ! 'no' and $ARGS[0] ! 'flashlite' and $ARGS[0] ! 'flash':
		if $orgasm_or = 'yes' or $orgasm_or = 'custom':
			gs 'orgasm', $ARGS[0]
		elseif orgasm_buildup >= 100 and stim['total'] > 10 and rand(1,100) <= 20:
			gs 'orgasm', $ARGS[0]
		elseif orgasm_buildup >= 150 and stim['total'] > 6 and rand(1,100) <= 50:
			gs 'orgasm', $ARGS[0]
		elseif orgasm_buildup >= 200 and stim['total'] > 4:
			gs 'orgasm', $ARGS[0]
		end
	end
	killvar 'temp_dick'
	killvar 'temp_unaware'
	killvar '$orgasm_txt'
	killvar '$stim_les'
	killvar '$stim_foot'

end

!!-----------------------------------------------

if $ARGS[0] = 'end':
	if orgasm_buildup > 250: orgasm_buildup = 250
	if orgasm_buildup > 200: orgasm_buildup -= 10
	if orgasm_buildup > 150: orgasm_buildup -= 10
	if orgasm_buildup > 100: orgasm_buildup -= 10
	if stim['lesbian'] = 1: lesbian += 1
	if stim['hidden_lesbian'] = 1: hidden_lesbian += 1
	if stim['gang'] = 1 or stim['group'] = 1: gang += 1
	if stim['hidden_gang'] = 1 or stim['hidden_group'] = 1: hidden_gang += 1
	if stim['gloryhole'] = 1: gloryhole += 1
	if stim['hidden_gloryhole'] = 1: hidden_gloryhole += 1
	if stim['rape'] = 1: rape += 1
	if stim['hidden_rape'] = 1: hidden_rape += 1
	if stim['futa'] = 1: futa += 1
	if stim['hidden_futa'] = 1: hidden_futa += 1
	if stim['prostitution'] = 1: slutty += 1
	if stim['hidden_prostitution'] = 1: hidden_slutty += 1
	
	killvar '$orgasm_or'
	anal_slip = 0
	vaginal_slip = 0

!!Updating fetish exp for acts carried out and clearing data
	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', 'hidden_prostitution'
	gs 'arousal', 'checks', 'dom'
	gs 'arousal', 'checks', 'sub'
	gs 'arousal', 'checks', 'incest'
	gs 'arousal', 'checks', 'feet'
	gs 'arousal', 'checks', 'lesbian'
	gs 'arousal', 'checks', 'hidden_lesbian'
	gs 'arousal', 'checks', 'group'
	gs 'arousal', 'checks', 'hidden_group'
	gs 'arousal', 'checks', 'gang'
	gs 'arousal', 'checks', 'hidden_gang'
	gs 'arousal', 'checks', 'humiliation'
	gs 'arousal', 'checks', 'deepthroat'
	gs 'arousal', 'checks', 'unknown'
	gs 'arousal', 'checks', 'gloryhole'
	gs 'arousal', 'checks', 'hidden_gloryhole'
	gs 'arousal', 'checks', 'rape'
	gs 'arousal', 'checks', 'hidden_rape'
	gs 'arousal', 'checks', 'futa'
	gs 'arousal', 'checks', 'hidden_futa'
	
	stim['event'] = 0

!!Adding to counts for character stats
	gs 'arousal', 'count', 'mast'
	gs 'arousal', 'count', 'porn'
	gs 'arousal', 'count', 'cuni'
	gs 'arousal', 'count', 'rimming'
	gs 'arousal', 'count', 'trib'
	gs 'arousal', 'count', 'anal'
	gs 'arousal', 'count', 'hidden_anal'
	gs 'arousal', 'count', 'anal_finger'
	gs 'arousal', 'count', 'anal_fist'
	gs 'arousal', 'count', 'anal_dildo'
	gs 'arousal', 'count', 'anal_strap'
	gs 'arousal', 'count', 'anal_vibe'
	gs 'arousal', 'count', 'vaginal'
	gs 'arousal', 'count', 'hidden_vaginal'
	gs 'arousal', 'count', 'vaginal_finger'
	gs 'arousal', 'count', 'vaginal_fist'
	gs 'arousal', 'count', 'vaginal_dildo'
	gs 'arousal', 'count', 'vaginal_strap'
	gs 'arousal', 'count', 'vaginal_vibe'
	gs 'arousal', 'count', 'cuni_give'
	gs 'arousal', 'count', 'rimming_give'
	gs 'arousal', 'count', 'anal_finger_give'
	gs 'arousal', 'count', 'anal_fist_give'
	gs 'arousal', 'count', 'anal_dildo_give'
	gs 'arousal', 'count', 'anal_vibe_give'
	gs 'arousal', 'count', 'anal_strap_give'
	gs 'arousal', 'count', 'vaginal_finger_give'
	gs 'arousal', 'count', 'vaginal_fist_give'
	gs 'arousal', 'count', 'vaginal_dildo_give'
	gs 'arousal', 'count', 'vaginal_strap_give'
	gs 'arousal', 'count', 'vaginal_vibe_give'
	gs 'arousal', 'count', 'hj'
	gs 'arousal', 'count', 'bj'
	gs 'arousal', 'count', 'hidden_hj'
	gs 'arousal', 'count', 'hidden_bj'
	gs 'arousal', 'count', 'footjob'
	gs 'arousal', 'count', 'hidden_footjob'
	gs 'arousal', 'count2', 'flashlite'
	gs 'arousal', 'count2', 'flash'
	gs 'arousal', 'count2', 'voyeur'
	
	!! Thats here because there is currently a variable zoo.
		if zoo > stat['beast']: stat['beast']= zoo
		if stat['beast'] > zoo: zoo = stat['beast']
	!!
end

if $ARGS[0] = 'count':
	if dyneval('RESULT = count[''<<$ARGS[1]>>'']') = 1:
		dynamic 'count[''<<$ARGS[1]>>''] = 0'
		dynamic 'stat[''<<$ARGS[1]>>''] += 1'
		count['flashlite'] = 0
		count['flash'] = 0
	end
end

if $ARGS[0] = 'count2':
	if dyneval('RESULT = count[''<<$ARGS[1]>>'']') = 1:
		dynamic 'count[''<<$ARGS[1]>>''] = 0'
		dynamic 'stat[''<<$ARGS[1]>>''] += 1'
	end
end

if $ARGS[0] = 'checks':
	if dyneval('RESULT = stim[''<<$ARGS[1]>>'']') = 1:
		dynamic 'stim[''<<$ARGS[1]>>''] = 0'
		dynamic '<<$ARGS[1]>>[''exp''] += 1'
	end
end
--- arousal ---------------------------------