glife/locations/flash.qsrc

# flash
!2020/10/16/Gwen
!!Centralised flashing location
!!For flashing events only, do not use for exposure leading to sex
!!To be used in the following format
!!gs 'flash', '[type]', '[location]', [time], [option]
!![time] in minutes, default is 0
!!Available options as follows
!![type] - bra, butt, full, panties, pussy, tits
!![location] - indoors, outdoors
!![option]
!!		- Nothing or 0 will clear the screen and give a standard text and randome picture, if you set $flash_image to image string this image will be used instead of a random one. 
!!		- 1 will only advance time and set the diferent variables but not clear the screen, print text or picture.
!!		- 2 will add the variabels an advance time and set the random picture, but not clear screen and print text.
!!eg. gs 'flash', 'tits', 'outdoors', 15, 0
!!There is no continue action so you must add this as required
!!You should add checks for underwear before allowing the player to flash them but a non-event contingency is included

if $ARGS[0] = 'panties': $ARGS[0] = 'panty'
if $ARGS[0] = 'panties_rear': $ARGS[0] = 'pantyrear'
if $ARGS[0] = 'butt' and analplugin = 1: $ARGS[0] = 'butt_plug'


if $ARGS[0] = 'get_image' and $flash_image = '':
	flashVars['dress_ind_bra'] = 3
	flashVars['dress_ind_tits'] = 12
	flashVars['dress_ind_panty'] = 4
	flashVars['dress_ind_pantyrear'] = 12
	flashVars['dress_ind_pussy'] = 8
	flashVars['dress_ind_pussy_hairy'] = 9
	flashVars['dress_ind_butt'] = 7
	flashVars['dress_ind_full'] = 5
	flashVars['dress_ind_full_hairy'] = 7
	
	flashVars['dress_out_bra'] = 4
	flashVars['dress_out_tits'] = 20
	flashVars['dress_out_panty'] = 18
	flashVars['dress_out_pantyrear'] = 8
	flashVars['dress_out_pussy'] = 19
	flashVars['dress_out_pussy_hairy'] = 9
	flashVars['dress_out_butt'] = 9
	flashVars['dress_out_butt_plug'] = 8
	flashVars['dress_out_full'] = 13
	flashVars['dress_out_full_hairy'] = 11
	
	flashVars['pants_ind_bra'] = 6
	flashVars['pants_ind_tits'] = 19
	flashVars['pants_ind_panty'] = 1
	flashVars['pants_ind_pantyrear'] = 1
	flashVars['pants_ind_pussy'] = 4
	flashVars['pants_ind_pussy_hairy'] = 3
	flashVars['pants_ind_butt'] = 6
	flashVars['pants_ind_full'] = 1
	flashVars['pants_ind_full_hairy'] = 1
	
	flashVars['pants_out_bra'] = 5
	flashVars['pants_out_tits'] = 19
	flashVars['pants_out_panty'] = 6
	flashVars['pants_out_pantyrear'] = 10
	flashVars['pants_out_pussy'] = 11
	flashVars['pants_out_pussy_hairy'] = 8
	flashVars['pants_out_butt'] = 19
	flashVars['pants_out_butt_plug'] = 6
	flashVars['pants_out_full'] = 9
	flashVars['pants_out_full_hairy'] = 6


	$flash_image = 'images/pc/activities/flashing/'
	$temp_id_text = ''

	if PCloSkirt > 0:
		$temp_id_text += 'dress_'
		$flash_image += 'dress/'
	else
		$temp_id_text += 'pants_'
		$flash_image += 'pants/'
	end
	if $ARGS[2] = 'inside' or $ARGS[2] = 'indoors':
		$temp_id_text += 'ins_'
		$flash_image += 'inside/'
	else
		$temp_id_text += 'out_'
		$flash_image += 'outside/'
	end
	$temp_id_text += $ARGS[1]
	$flash_image += $ARGS[1]
	$flash_image += '/'

	if ($ARGS[1] = 'pussy' or $ARGS[1] = 'full') and pcs_pubes > 20:
		$temp_id_text += '_hairy'
		$flash_image += 'hairy'
	end

	flashVars['rand'] = rand(1, flashVars[$temp_id_text])
	$flash_image += flashVars['rand']
	$flashVars['image'] = $flash_image

	killvar 'temp_id_text'
end



if $ARGS[0] = 'bra':
	if Exhibitionist_lvl < 1 or pcs_inhib < 40: gs 'flash', 'exhibitionism', 1
	gs 'arousal', 'flashlite', ARGS[2]
	gs 'arousal', 'end'
	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
	if ARGS[3] < 1:
		*clr
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
		'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
		gs 'blackmailer', 'init_check', $ARGS[0], $ARGS[1]
		'You pull your top back down, feeling the thrill of excitement running down your spine.'

		$flash_image = ''
	elseif ARGS[3] = 2:
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
	end

	if ARGS[3] ! 1: killvar 'flashVars'
end

if $ARGS[0] = 'tits':
	gs 'flash', 'exhibitionism', 1
	gs 'arousal', 'flashlite', ARGS[2]
	gs 'arousal', 'end'
	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
	if ARGS[3] < 1:
		*clr
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
		'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
		gs 'blackmailer', 'init_check', $ARGS[0], $ARGS[1]
		'You pull your top back down, feeling the thrill of excitement running down your spine.'
		$flash_text

		$flash_text
		$flash_image = ''
	elseif ARGS[3] = 2:
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
	end

	if ARGS[3] ! 1: killvar 'flashVars'
end

if $ARGS[0] = 'panty' or $ARGS[0] = 'panties':
	gs 'flash', 'exhibitionism', 2
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
	if ARGS[3] < 1:
		*clr
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
		'You glance around to see who all is in the area, then you ' + iif(PCloSkirt > 0, 'lift the front of your skirt', 'pull down the front of your pants') + ' to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
		gs 'blackmailer', 'init_check', $ARGS[0], $ARGS[1]
		'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'

		$flash_image = ''
	elseif ARGS[3] = 2:
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
	end

	if ARGS[3] ! 1: killvar 'flashVars'
end

if $ARGS[0] = 'pantyrear' or $ARGS[0] = 'panties_rear':
	gs 'flash', 'exhibitionism', 2
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
	if ARGS[3] < 1:
		*clr
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
		'You glance around to see who all is in the area, then you pull ' + iif(PCloSkirt > 0, 'up your skirt', 'down the back of your pants') + ' to show off your panty clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
		gs 'blackmailer', 'init_check', $ARGS[0], $ARGS[1]
		'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'

		$flash_image = ''
	elseif ARGS[3] = 2:
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
	end

	if ARGS[3] ! 1: killvar 'flashVars'
end

if $ARGS[0] = 'pussy':
	gs 'flash', 'exhibitionism', 3
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
	if ARGS[3] < 1:
		*clr
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
		'You glance around to see who all is in the area, then you pull ' + iif(PCloSkirt > 0, 'up the front of your skirt', 'down the front of your pants') + ' to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
		gs 'blackmailer', 'init_check', $ARGS[0], $ARGS[1]
		'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'

		$flash_image = ''
	elseif ARGS[3] = 2:
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
	end

	if ARGS[3] ! 1: killvar 'flashVars'
end



if $ARGS[0] = 'butt' or $ARGS[0] = 'butt_plug':
	gs 'flash', 'exhibitionism', 2
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
	if ARGS[3] < 1:
		*clr
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
		'You glance around to see who all is in the area, then you pull ' + iif(PCloSkirt > 0, 'up the back of your skirt', 'down the back of your pants') + ' to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
		gs 'blackmailer', 'init_check', $ARGS[0], $ARGS[1]
		'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'

		$flash_image = ''
	elseif ARGS[3] = 2:
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
	end

	if ARGS[3] ! 1: killvar 'flashVars'
end

if $ARGS[0] = 'full':
	gs 'flash', 'exhibitionism', 3
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
	if ARGS[3] < 1:
		*clr
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
		'Making sure there are no children around and it''s not too busy you ' + iif(PCloSkirt > 0, 'lift your skirt and top', 'lower your pants and lift your top') + ' to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly.'
		gs 'blackmailer', 'init_check', $ARGS[0], $ARGS[1]
		'You quickly cover up again enjoying a buzz of excitement.'

		$flash_image = ''
	elseif ARGS[3] = 2:
		'<center><img <<$set_imgh>> src="<<$flash_image>>.jpg"></center>'
	end

	if ARGS[3] ! 1: killvar 'flashVars'
end

!!For us only when Sveta chooses to flash
!!1 point for exposing breasts, 2 for ass and 3 for pussy. 4 for extreme nude situations


if $ARGS[0] = 'exhibitionism':
	if ARGS[1] > 4: ARGS[1] = 4

	if ARGS[1] = 1:
		pcs_exhib += 1
		if exhibitionist_lvl = 1: pcs_horny += 5
		if exhibitionist_lvl = 2: pcs_horny += 10
		if exhibitionist_lvl = 3: pcs_horny += 15
	elseif ARGS[1] = 2:
		pcs_exhib += 2
		if exhibitionist_lvl = 1: pcs_horny += 10
		if exhibitionist_lvl = 2: pcs_horny += 20
		if exhibitionist_lvl = 3: pcs_horny += 30
	elseif ARGS[1] = 3:
		pcs_exhib += 3
		if exhibitionist_lvl = 1: pcs_horny += 15
		if exhibitionist_lvl = 2: pcs_horny += 25
		if exhibitionist_lvl = 3: pcs_horny += 40
	elseif ARGS[1] = 4:
		pcs_exhib += 4
		if exhibitionist_lvl = 1: pcs_horny += 20
		if exhibitionist_lvl = 2: pcs_horny += 40
		if exhibitionist_lvl = 3: pcs_horny += 80
	end

	if pcs_exhib > 100: pcs_exhib = 100
end

--- flash ---------------------------------