# SMS_selfies

!{
if $ARGS[0] = 'Trial':
	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'receive', 'Come on, send me a selfie'
		gs 'SMStext_builder', 'send', 'Alright'
		gs 'SMStext_builder', 'send_selfie', '[send selfie]', 'c|sw|u|n|b|sh|ft|fa|fp', 'SMS_selfies', 'Trial2'
		gs 'SMStext_builder', 'add_sms', 'A144'
	gs 'SMStext_builder', 'end'
end


if $ARGS[0] = 'Trial2':
	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'receive', 'Come on, send me a selfie'
		gs 'SMStext_builder', 'send', 'Alright'
		gs 'SMStext_builder', 'send_img', $ARGS[2]
		if $ARGS[4] = 'clothed':
			gs 'SMStext_builder', 'receive', 'Just a basic selfie'
		elseif $ARGS[4] = 'bikini':
			gs 'SMStext_builder', 'receive', 'Nice, a bikini selfie'
		elseif $ARGS[4] = 'underwear':
			gs 'SMStext_builder', 'receive', 'Cute underwear!'
		elseif $ARGS[4] = 'nude':
			gs 'SMStext_builder', 'receive', 'wow, a nudie!'
		elseif $ARGS[4] = 'bath':
			gs 'SMStext_builder', 'receive', 'Nice, a bath selfie'
		elseif $ARGS[4] = 'shower':
			gs 'SMStext_builder', 'receive', 'Nice, a shower selfie'
		elseif $ARGS[4] = 'titflash':
			gs 'SMStext_builder', 'receive', 'Naughty! Did someone see you flashing your tits?'
		elseif $ARGS[4] = 'assflash':
			gs 'SMStext_builder', 'receive', 'Naughty! Did someone see you flashing your butt?'
		elseif $ARGS[4] = 'pussyflash':
			gs 'SMStext_builder', 'receive', 'Naughty! Did someone see you flashing your pussy?'
		end
		gs 'SMStext_builder', 'show_sms', ARGS[1]
	gs 'SMStext_builder', 'end'
end
}



if $ARGS[0] = 'show_sms':
	$temp_curSMS = $SMSMessage[SMSSelfieVars['SMSid']]
	$temp_curReplies = $SMSReplies[SMSSelfieVars['SMSid']]
	$SMSMessage[SMSSelfieVars['SMSid']] = $SMSSelfieVars['text']
	$SMSReplies[SMSSelfieVars['SMSid']] = ''
	gs 'telefon', 'show_sms', SMSSelfieVars['SMSid']
	$SMSMessage[SMSSelfieVars['SMSid']] = $temp_curSMS
	$SMSReplies[SMSSelfieVars['SMSid']] = $temp_curReplies
	$SMSSelfieVars['text'] = ''
	killvar 'temp_curSMS'
	killvar 'temp_curReplies'
end

if $ARGS[0] = 'exit':
	gs 'telefon', 'show_sms', SMSSelfieVars['SMSid']
	killvar 'SMSSelfieVars'
end




	!!===========================================================!!
	!!                                                           !!
	!!                     RETREIVE A SELFIE                     !!
	!!                                                           !!
	!!===========================================================!!

! $ARGS[1] = control string
!  ARGS[2] = telefon['SMSid']
! $ARGS[3] -> onward = return string
if $ARGS[0] = 'send_selfie':
	killvar 'SMSSelfieVars'

	$SMSSelfieVars['control'] = $ARGS[1]
	SMSSelfieVars['SMSid'] = ARGS[2]

	!! Create the return string
	$temp_return_string = ''
	sms_s_n_args = arrsize('$ARGS')
	sms_s_i = 3
	:add_rest_ARGS_loop
	if sms_s_i < sms_s_n_args:
		$temp_return_string += '''<<$ARGS[sms_s_i]>>'', '
		sms_s_i += 1
		jump 'add_rest_ARGS_loop'
	end
	$temp_return_string = mid($temp_return_string, 1, len($temp_return_string)-2)
	$SMSSelfieVars['return_string'] = $temp_return_string

	killvar 'temp_return_string'
	killvar 'sms_s_n_args'
	killvar 'sms_s_i'

	gs 'SMS_selfies', 'selfie_menu'
end


if $ARGS[0] = 'selfie_menu':
	gs 'phone_selfies', 'Phone_selfie_totals'

	! reset temp_SMS_selftext
	$SMSSelfieVars['text'] = '<table width=80%><th>Selfies</th><tr><td>'
	temp_locationCnt = 0
	:LocationLoop
		$SMSSelfieVars['text'] += '<a href="exec: gs ''SMS_selfies'', ''showlocation'', <<temp_locationCnt>>"><<$selfieLocDesc[temp_locationCnt]>> selfies</a>'
		$SMSSelfieVars['text'] += '</tr></td><tr><td>'
		temp_locationCnt += 1
	if temp_locationCnt < arrsize('$selfieLoc'): jump 'LocationLoop'

	$SMSSelfieVars['text'] += '<a href="exec: gs ''SMS_selfies'', ''exit'', <<ARGS[2]>>">Exit</a></td></tr></table>'

	gs 'SMS_selfies', 'show_sms'

	killvar 'temp_locationCnt'
	killvar 'sms_s_i'
	killvar 'sms_s_n_args'
end

!  ARGS[1] = temp_locationCnt
if $ARGS[0] = 'showlocation':
	$SMSSelfieVars['text'] = '<table width=80%><tr><th><font color="maroon"><<$selfieLocDesc[ARGS[1]]>> selfies</font></th></tr>'

	gs 'SMS_selfies', 'listretrieve', ARGS[1], $selfieLoc[ARGS[1]]

	$SMSSelfieVars['text'] += '<tr><td colspan=3><a href="exec: gs ''SMS_selfies'', ''selfie_menu''">Go Back</a></td></tr>'
	$SMSSelfieVars['text'] += '<tr><td colspan=3><a href="exec: gs ''SMS_selfies'', ''exit''">Exit</a></td></tr></table>'

	gs 'SMS_selfies', 'show_sms'
end

!  ARGS[1] = the index of the location in $selfieLoc[]
! $ARGS[2] = the selfie location (park, home, etc)
if $ARGS[0] = 'listretrieve':
	if strpos($SMSSelfieVars['control'], 'c')	> 0:	gs 'SMS_selfies', 'retrieve_clothed_selfies',		ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'sw')	> 0:	gs 'SMS_selfies', 'retrieve_swim_selfies',			ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'u')	> 0:	gs 'SMS_selfies', 'retrieve_underwear_selfies',		ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'n')	> 0:	gs 'SMS_selfies', 'retrieve_nude_selfies',			ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'b')	> 0:	gs 'SMS_selfies', 'retrieve_bath_selfies',			ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'sh')	> 0:	gs 'SMS_selfies', 'retrieve_shower_selfies',		ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'ft')	> 0:	gs 'SMS_selfies', 'retrieve_titflash_selfies',		ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'fa')	> 0:	gs 'SMS_selfies', 'retrieve_assflash_selfies',		ARGS[1], $ARGS[2]
	if strpos($SMSSelfieVars['control'], 'fp')	> 0:	gs 'SMS_selfies', 'retrieve_pussyflash_selfies',	ARGS[1], $ARGS[2]
end


!  ARGS[1] = the index of the location in $selfieLoc[]
! $ARGS[2] = the selfie location (park, home, etc)
if $ARGS[0] = 'retrieve_clothed_selfies':
	!!Loop for clothed selfies, dynamics set variables as mixing them in loop instructions is bad
	if selfieClotot[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Clothed selfies</th></tr><tr>'

		temp_cnum = 1
		temp_clocnt = 1
		:temp_loop
			!!setting value to unmixed variable so it can be checked in the if below
			dynamic 'phone_locval = <<$ARGS[2]>>_closelfie[<<temp_clocnt>>]'
			if phone_locval = 1:
				if temp_cnum = 3: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'clothed', ARGS[1], temp_clocnt) + '</td>'
			end
			temp_clocnt += 1
		if temp_clocnt <= selfieClotot[ARGS[1]]: jump 'temp_loop'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_clocnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_swim_selfies':
	!!Loop for clothed selfies, dynamics set variables as mixing them in loop instructions is bad
	if selfieSwimtot[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Swimwear selfies</th></tr><tr>'

		temp_cnum = 0
		temp_swicnt = 1
		:temp_loop1
			!!setting value to unmixed variable so it can be checked in the if below
			dynamic 'phone_locval = <<$ARGS[2]>>_swim[<<temp_swicnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'bikini', ARGS[1], temp_swicnt) + '</td>'
			end
			temp_swicnt += 1
		if temp_swicnt <= selfieClotot[ARGS[1]]: jump 'temp_loop1'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_swicnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_underwear_selfies':
	if selfieUndtot[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Underwear selfies</th></tr><tr>'

		temp_cnum = 0
		temp_undcnt = 1
		:temp_loop2
			dynamic 'phone_locval = <<$ARGS[2]>>_undselfie[<<temp_undcnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'underwear', ARGS[1], temp_undcnt) + '</td>'
			end
			temp_undcnt += 1
		if temp_undcnt <= selfieUndtot[ARGS[1]]: jump 'temp_loop2'

		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_swicnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_nude_selfies':
	if selfieNudtot[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Nude selfies</th></tr><tr>'

		temp_cnum = 0
		temp_nudcnt = 1
		:temp_loop3
			dynamic 'phone_locval = <<$ARGS[2]>>_nudselfie[<<temp_nudcnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'nude', ARGS[1], temp_nudcnt) + '</td>'
			end
			temp_nudcnt += 1
		if temp_nudcnt <= selfieNudtot[ARGS[1]]: jump 'temp_loop3'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_nudcnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_bath_selfies':
	!!loop for bath selfies
	if selfieBathtot[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Bath selfies</th></tr><tr>'

		temp_cnum = 0
		temp_bathcnt = 1
		:temp_loop4
			dynamic 'phone_locval = <<$ARGS[2]>>_bathselfie[<<temp_bathcnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'bath', ARGS[1], temp_bathcnt) + '</td>'
			end
			temp_bathcnt += 1
		if temp_bathcnt <= selfieBathtot[ARGS[1]]: jump 'temp_loop4'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_bathcnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_shower_selfies':
	!!loop for shower selfies
	if selfieShowertot[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Shower selfies</th></tr><tr>'

		temp_cnum = 0
		temp_showercnt = 1
		:temp_loop5
			dynamic 'phone_locval = <<$ARGS[2]>>_showerselfie[<<temp_showercnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'shower', ARGS[1], temp_showercnt) + '</td>'
			end
			temp_showercnt += 1
		if temp_showercnt <= selfieShowertot[ARGS[1]]: jump 'temp_loop5'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_showercnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_titflash_selfies':
	!!loop for flashing tits selfies
	if selfieTitflash[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Flashing tits selfies</th></tr><tr>'

		temp_cnum = 0
		temp_flashtitscnt = 1
		:temp_loop6
			dynamic 'phone_locval = <<$ARGS[2]>>_titflash[<<temp_flashtitscnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'titflash', ARGS[1], temp_flashtitscnt) + '</td>'
			end
			temp_flashtitscnt += 1
		if temp_flashtitscnt <= selfieTitflash[ARGS[1]]: jump 'temp_loop6'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_flashtitscnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_assflash_selfies':
	!!loop for flashing ass selfies
	if selfieAssflash[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Flashing ass selfies</th></tr><tr>'

		temp_cnum = 0
		temp_flashasscnt = 1
		:temp_loop7
			dynamic 'phone_locval = <<$ARGS[2]>>_assflash[<<temp_flashasscnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'assflash', ARGS[1], temp_flashasscnt) + '</td>'
			end
			temp_flashasscnt += 1
		if temp_flashasscnt <= selfieAssflash[ARGS[1]]: jump 'temp_loop7'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_flashasscnt'
		killvar 'temp_cnum'
	end

elseif $ARGS[0] = 'retrieve_pussyflash_selfies':
	!!loop for flashing pussy selfies
	if selfiePussyflash[ARGS[1]] > 0:
		$temp_SMS_selfietxt += '<tr><th colspan=3>Flashing pussy selfies</th></tr><tr>'

		temp_cnum = 0
		temp_flashpussycnt = 1
		:temp_loop8
			dynamic 'phone_locval = <<$ARGS[2]>>_pussyflash[<<temp_flashpussycnt>>]'
			if phone_locval = 1:
				if temp_cnum = 2: $SMSSelfieVars['text'] += '</tr><tr>' & temp_cnum = 0
				temp_cnum += 1
				$SMSSelfieVars['text'] += '<td width="33%">' + func('phone_selfies_popup', 'SMS_set_selfie', $ARGS[2], 'pussyflash', ARGS[1], temp_flashpussycnt) + '</td>'
			end
			temp_flashpussycnt += 1
		if temp_flashpussycnt <= selfiePussyflash[ARGS[1]]: jump 'temp_loop8'
		if temp_cnum ! 2: $SMSSelfieVars['text'] += '<td></td>'
		$SMSSelfieVars['text'] += '</tr>'

		killvar 'temp_flashpussycnt'
		killvar 'temp_cnum'
	end
end




	!!===========================================================!!
	!!                                                           !!
	!!                       TAKE A SELFIE                       !!
	!!                                                           !!
	!!===========================================================!!

!{
if $ARGS[0] = 'take_selfie_menu':
	gs 'phone_selfies', 'Phone_selfie_totals'
	if $locclass = 'bedr':
		$phone_loc = 'bedroom'
	elseif $locclass = 'kitr':
		$phone_loc = 'kitchen'
	elseif $locclass = 'livingr':
		$phone_loc = 'livingroom'
	elseif $locclass = 'changingroom':
		$phone_loc = 'changingroom'
	elseif $locclass = 'city_park':
		$phone_loc = 'park'
	elseif $locclass = 'locker':
		$phone_loc = 'locker'
	elseif $locclass = 'beach':
		$phone_loc = 'beach'
	elseif $locclass = 'classroom':
		$phone_loc = 'classroom'
	elseif $locclass = 'school_bathroom':
		$phone_loc = 'school_bathroom'
	elseif $locclass = 'restroom':
		$phone_loc = 'restroom'
	elseif $location_type = 'bathroom':
		$phone_loc = 'bathroom'
	else
		$phone_loc = ''
	end

	!! Create the return string
	$temp_return_string = ''
	sms_s_n_args = arrsize('$ARGS')
	sms_s_i = 3
	:add_rest_ARGS_loop
	if sms_s_i < sms_s_n_args:
		$temp_return_string += '''<<$ARGS[sms_s_i]>>'', '
		sms_s_i += 1
		jump 'add_rest_ARGS_loop'
	end
	$temp_return_string = mid($temp_return_string, 1, len($temp_return_string)-2)


	$SMSSelfieVars['text'] = '<table width=80%><th>Camera</th><tr><td>'
	if $phone_loc ! '' or strpos($ARGS[1], 'c') > 0:
		$SMSSelfieVars['text'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''SMS_selfies'', ''Phone_camera_selfie'', ''<<$phone_loc>>'', '''', ''<<$ARGS[1]>>'', ARGS[2], <<$temp_return_string>>"><b>Take a selfie</b></a>'
		$SMSSelfieVars['text'] += '</tr></td><tr><td>'
	end
	!! Flashing selfie
	if $clothingworntype ! 'nude' and $phone_loc <> '':
		if Enable_Android = 1:
			locIndex = arrpos('$selfieLoc', $phone_loc, 1)
		else
			locIndex = arrpos(1, '$selfieLoc', $phone_loc)
		end
		if strpos($ARGS[1], 'ft') > 0 and (pcs_inhib >= 35 or exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and selfieTitflash[locIndex] > 0:
			$SMSSelfieVars['text'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''SMS_selfies'', ''Phone_camera_selfie'', ''<<$phone_loc>>'', ''tits'', ''<<$ARGS[1]>>'', ARGS[2], <<$temp_return_string>> "><b>Flash your tits for a selfie</b></a><br>'
			$SMSSelfieVars['text'] += '</tr></td><tr><td>'
		end
		if strpos($ARGS[1], 'fa') > 0 and (exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and selfieAssflash[locIndex] > 0:
			$SMSSelfieVars['text'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''SMS_selfies'', ''Phone_camera_selfie'', ''<<$phone_loc>>'', ''ass'', ''<<$ARGS[1]>>'', ARGS[2], <<$temp_return_string>> "><b>Flash your ass for a selfie</b></a><br>'
			$SMSSelfieVars['text'] += '</tr></td><tr><td>'
		end
		if strpos($ARGS[1], 'fp') > 0 and (exhibitionist_lvl > 1 or $phone_loc = 'bedroom') and selfiePussyflash[locIndex] > 0:
			$SMSSelfieVars['text'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''SMS_selfies'', ''Phone_camera_selfie'', ''<<$phone_loc>>'', ''pussy'', ''<<$ARGS[1]>>'', ARGS[2], <<$temp_return_string>> "><b>Flash your pussy for a selfie</b></a><br>'
			$SMSSelfieVars['text'] += '</tr></td><tr><td>'
		end
	end

	$SMSSelfieVars['text'] += '<a href="exec: gs ''SMS_selfies'', ''exit'', <<ARGS[2]>>">Exit</a></td></tr></table>'
	gs 'SMS_selfies', 'show_sms', ARGS[3]
end

if $ARGS[0] = 'Phone_camera_selfie':
	$temp_return_string = ''
	sms_s_n_args = arrsize('$ARGS')
	sms_s_i = 5
	:add_rest_ARGS_loop2
	if sms_s_i < sms_s_n_args:
		$temp_return_string += '''<<$ARGS[sms_s_i]>>'', '
		sms_s_i += 1
		jump 'add_rest_ARGS_loop2'
	end
	$temp_return_string = mid($temp_return_string, 1, len($temp_return_string)-2)


	if $ARGS[1] ! '':
		if Enable_Android = 1:
			temp_pos = arrpos('$selfieLoc', $ARGS[1], 1)
		else
			temp_pos = arrpos(1, '$selfieLoc', $ARGS[1])
		end
		dynamic 'gs ''SMS_selfies'', ''Phone_selfie_image'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<temp_pos>>, ''<<$ARGS[3]>>'', <<ARGS[4]>>, <<$temp_return_string>>'
		killvar 'temp_pos'
	else
		phone_rand = rand(1, selfieClotot[0])
		dynamic '<<$selfieLoc[0]>>_closelfie[<<phone_rand>>] = 1'
		gs 'stat'
		$temp_imloc = 'images/pc/activities/phone/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><<phone_rand>>.jpg'
		dynamic 'gs <<$temp_return_string>>, <<ARGS[4]>>, ''<<$temp_imloc>>'', ''<<$selfieLoc[0]>>'', ''clothed'', 0, <<phone_rand>>'
		killvar 'phone_rand'
		killvar 'temp_imloc'
	end
	!if cumsumbod-cumsumvag-cumsumass > 0: phone_rand = RAND (m,n) - for SELF in the semen
	!if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
	!msg '<img src="images/system/phone/phone_selfie<<phone_rand>>.jpg">'
end

if $ARGS[0] = 'Phone_selfie_image':
	$temp_return_string = ''
	sms_s_n_args = arrsize('$ARGS')
	sms_s_i = 6
	:add_rest_ARGS_loop2
	if sms_s_i < sms_s_n_args:
		$temp_return_string += '''<<$ARGS[sms_s_i]>>'', '
		sms_s_i += 1
		jump 'add_rest_ARGS_loop2'
	end
	$temp_return_string = mid($temp_return_string, 1, len($temp_return_string)-2)


	if $ARGS[2] = '':
		if PCloswimwear = 1:
			!!changing to and unmixed variable so the rng will work
			
			temp_swim = selfieSwimtot[ARGS[3]]
			if temp_swim > 0:
				phone_rand = rand(1, temp_swim)
				!!Setting the image owned flag to 1
				dynamic '<<$ARGS[1]>>_swim[<<phone_rand>>] = 1'
				gs 'stat'
				$temp_imloc = 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/bikini/<<$selfieFilePrefix[ARGS[3]]>><<phone_rand>>.jpg'
				dynamic 'gs <<$temp_return_string>>, <<ARGS[5]>>, ''<<$temp_imloc>>'', ''<<$ARGS[1]>>'', ''bikini'', <<ARGS[3]>>, <<phone_rand>>'
				killvar 'phone_rand'
				killvar 'temp_imloc'
			end
			killvar 'temp_swim'

		elseif $clothingworntype ! 'nude':
			!!changing to and unmixed variable so the rng will work
			temp_clotot = selfieClotot[ARGS[3]]
			if temp_clotot > 0:
				phone_rand = rand(1, temp_clotot)
				!!Setting the image owned flag to 1
				dynamic '<<$ARGS[1]>>_closelfie[<<phone_rand>>] = 1'
				gs 'stat'
				$temp_imloc = 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/clothed/<<$selfieFilePrefix[ARGS[3]]>><<phone_rand>>.jpg'
				dynamic 'gs <<$temp_return_string>>, <<ARGS[5]>>, ''<<$temp_imloc>>'', ''<<$ARGS[1]>>'', ''clothed'', <<ARGS[3]>>, <<phone_rand>>'
				killvar 'phone_rand'
				killvar 'temp_imloc'
			end
			killvar 'temp_clotot'

		elseif $pantyworntype ! 'none':
			temp_undtot = selfieUndtot[ARGS[3]]
			if temp_undtot > 0:
				phone_rand = rand(1, temp_undtot)
				dynamic '<<$ARGS[1]>>_undselfie[<<phone_rand>>] = 1'
				gs 'stat'
				$temp_imloc = 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/underwear/<<$selfieFilePrefix[ARGS[3]]>><<phone_rand>>.jpg'
				dynamic 'gs <<$temp_return_string>>, <<ARGS[5]>>, ''<<$temp_imloc>>'', ''<<$ARGS[1]>>'', ''underwear'', <<ARGS[3]>>, <<phone_rand>>'
				killvar 'phone_rand'
				killvar 'temp_imloc'
			end
			killvar 'temp_undtot'

		else
			temp_nudtot = selfieNudtot[ARGS[3]]
			if temp_nudtot > 0:
				phone_rand = rand(1, temp_nudtot)
				dynamic '<<$ARGS[1]>>_nudselfie[<<phone_rand>>] = 1'
				gs 'stat'
				$temp_imloc = 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/nude/<<$selfieFilePrefix[ARGS[3]]>><<phone_rand>>.jpg'
				dynamic 'gs <<$temp_return_string>>, <<ARGS[5]>>, ''<<$temp_imloc>>'', ''<<$ARGS[1]>>'', ''nude'', <<ARGS[3]>>, <<phone_rand>>'
				killvar 'phone_rand'
				killvar 'temp_imloc'
			end
			killvar 'temp_nudtot'
		end
	else
		if $ARGS[2] = 'tits':
			temp_titflash = selfieTitflash[ARGS[3]]
			if temp_titflash > 0:
				phone_rand = rand(1, temp_titflash)
				dynamic '<<$ARGS[1]>>_titflash[<<phone_rand>>] = 1'
				gs 'stat'
				$temp_imloc = 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/titflash/<<$selfieFilePrefix[ARGS[3]]>><<phone_rand>>.jpg'
				dynamic 'gs <<$temp_return_string>>, <<ARGS[5]>>, ''<<$temp_imloc>>'', ''<<$ARGS[1]>>'', ''titflash'', <<ARGS[3]>>, <<phone_rand>>'
				killvar 'phone_rand'
				killvar 'temp_imloc'
			end
			killvar 'temp_titflash'

		elseif $ARGS[2] = 'ass':
			temp_assflash = selfieAssflash[ARGS[3]]
			if temp_assflash > 0:
				phone_rand = rand(1, temp_assflash)
				dynamic '<<$ARGS[1]>>_assflash[<<phone_rand>>] = 1'
				gs 'stat'
				if usePopUps = 1:
					msg '<img src="images/pc/activities/phone/selfies/<<$ARGS[1]>>/assflash/<<phone_rand>>.jpg">'
				else
					view 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/assflash/<<phone_rand>>.jpg'
				end
			end
		elseif $ARGS[2] = 'pussy':
			if Enable_Android = 1:
				temp_pussyflash = selfiePussyflash[arrpos('$selfieLoc', $ARGS[1], 1)]
			else
				temp_pussyflash = selfiePussyflash[arrpos(1, '$selfieLoc', $ARGS[1])]
			end
			if temp_pussyflash > 0:
				phone_rand = rand(1, temp_pussyflash)
				dynamic '<<$ARGS[1]>>_pussyflash[<<phone_rand>>] = 1'
				gs 'stat'
				if usePopUps = 1:
					msg '<img src="images/pc/activities/phone/selfies/<<$ARGS[1]>>/pussyflash/<<phone_rand>>.jpg">'
				else
					view 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/pussyflash/<<phone_rand>>.jpg'
				end
			end
		end
	end
end
}

--- SMS_selfies ---------------------------------