glife/locations/phone_selfies.qsrc

# phone_selfies
!2021/05/02
!{ HOW TO USE:
- UNLOCKING A PICTURE:
	There are different types of pictures that can be viewed with the phone. These need to be unlocked for them to become viewable.
	This is done by setting the correct variable to 1 INSIDE the event itself.
	<<npcname>> should be replaced by the name of the npc for who you want to unlock something.
	- Pictures Sveta gets sent by an npc:
		<<npcname>>[i] = 1
	- Pictures Sveta takes herself with an npc:
		<<npcname>>sveta[i] = 1
	- Explicit pictures from an npc (could include Sveta):
		<<npcname>>sex[i] = 1
	- Pictures Sveta takes of an npc:
		<<npcname>>photo[i] = 1
	- Pictures Sveta takes of herself:
		Here the code is run through the camera option on the phone and it will automatically unlock the correct picture.
- INCREASE THE PICTURE COUNTER IN THIS FILE:
	NPC Pictures:
		As pictures are added the number in 'listretrieve2' inside this file needs to be increased by the amount of pictures you are adding.
		- loopmax:
			For selfies sent by an npc
		- loopmaxsveta:
			For selfies with an npc taken on Sveta''s phone
		- loopmaxsex:
			For explicit selfies
		- loopmaxev:
			For pictures Sveta takes of an npc
	SVETA SELFIES:
		The total amounts are kept in 'phone_selfies', 'Phone_selfie_totals'.
		Increase the correct variable in there to have it added to the phone.
}


! For setting the selfies
if $ARGS[0] = 'Phone_selfie_totals':
	$selfieLoc[0] = 'misc'
	$selfieLocDesc[0] = 'Me'
	$selfieFilePrefix[0] = 'phone_selfie'
	selfieClotot[0] = 2
	selfieUndtot[0] = 0
	selfieNudtot[0] = 0
	selfieTitflash[0] = 0
	selfieAssflash[0] = 0
	selfiePussyflash[0] = 0
	selfieBathtot[0] = 0
	selfieShowertot[0] = 0
	selfieSwimtot[0] = 0

	$selfieLoc[1] = 'bathroom'
	$selfieLocDesc[1] = 'Bathroom'
	$selfieFilePrefix[1] = ''
	selfieClotot[1] = 30
	selfieUndtot[1] = 23
	selfieNudtot[1] = 30
	selfieTitflash[1] = 30
	selfieAssflash[1] = 5
	selfiePussyflash[1] = 22
	selfieBathtot[1] = 30
	selfieShowertot[1] = 27
	selfieSwimtot[1] = 0

	$selfieLoc[2] = 'bedroom'
	$selfieLocDesc[2] = 'Bedroom'
	$selfieFilePrefix[2] = ''
	selfieClotot[2] = 30
	selfieUndtot[2] = 22
	selfieNudtot[2] = 30
	selfieTitflash[2] = 30
	selfieAssflash[2] = 26
	selfiePussyflash[2] = 25
	selfieBathtot[2] = 0
	selfieShowertot[2] = 0
	selfieSwimtot[2] = 0

	$selfieLoc[3] = 'kitchen'
	$selfieLocDesc[3] = 'Kitchen'
	$selfieFilePrefix[3] = ''
	selfieClotot[3] = 27
	selfieUndtot[3] = 23
	selfieNudtot[3] = 23
	selfieTitflash[3] = 21
	selfieAssflash[3] = 1
	selfiePussyflash[3] = 10
	selfieBathtot[3] = 0
	selfieShowertot[3] = 0
	selfieSwimtot[3] = 0

	$selfieLoc[4] = 'livingroom'
	$selfieLocDesc[4] = 'Livingroom'
	$selfieFilePrefix[4] = ''
	selfieClotot[4] = 30
	selfieUndtot[4] = 27
	selfieNudtot[4] = 30
	selfieTitflash[4] = 30
	selfieAssflash[4] = 5
	selfiePussyflash[4] = 20
	selfieBathtot[4] = 0
	selfieShowertot[4] = 0
	selfieSwimtot[4] = 0

	$selfieLoc[5] = 'changingroom'
	$selfieLocDesc[5] = 'Changingroom'
	$selfieFilePrefix[5] = ''
	selfieClotot[5] = 30
	selfieUndtot[5] = 30
	selfieNudtot[5] = 30
	selfieTitflash[5] = 30
	selfieAssflash[5] = 20
	selfiePussyflash[5] = 28
	selfieBathtot[5] = 0
	selfieShowertot[5] = 0
	selfieSwimtot[5] = 0

	$selfieLoc[6] = 'park'
	$selfieLocDesc[6] = 'Park'
	$selfieFilePrefix[6] = ''
	selfieClotot[6] = 30
	selfieUndtot[6] = 4
	selfieNudtot[6] = 17
	selfieTitflash[6] = 26
	selfieAssflash[6] = 2
	selfiePussyflash[6] = 8
	selfieBathtot[6] = 0
	selfieShowertot[6] = 0
	selfieSwimtot[6] = 0

	$selfieLoc[7] = 'locker'
	$selfieLocDesc[7] = 'locker'
	$selfieFilePrefix[7] = ''
	selfieClotot[7] = 26
	selfieUndtot[7] = 21
	selfieNudtot[7] = 13
	selfieTitflash[7] = 13
	selfieAssflash[7] = 2
	selfiePussyflash[7] = 3
	selfieBathtot[7] = 0
	selfieShowertot[7] = 0
	selfieSwimtot[7] = 0

	$selfieLoc[8] = 'beach'
	$selfieLocDesc[8] = 'Beach'
	$selfieFilePrefix[8] = ''
	selfieClotot[8] = 0
	selfieUndtot[8] = 0
	selfieNudtot[8] = 20
	selfieTitflash[8] = 17
	selfieAssflash[8] = 3
	selfiePussyflash[8] = 4
	selfieBathtot[8] = 0
	selfieShowertot[8] = 0
	selfieSwimtot[8] = 21

	$selfieLoc[9] = 'school_classroom'
	$selfieLocDesc[9] = 'School Classroom'
	$selfieFilePrefix[9] = ''
	selfieClotot[9] = 11
	selfieUndtot[9] = 2
	selfieNudtot[9] = 0
	selfieTitflash[9] = 3
	selfieAssflash[9] = 0
	selfiePussyflash[9] = 3
	selfieBathtot[9] = 0
	selfieShowertot[9] = 0
	selfieSwimtot[9] = 0

	$selfieLoc[10] = 'school_bathroom'
	$selfieLocDesc[10] = 'School Bathroom'
	$selfieFilePrefix[10] = ''
	selfieClotot[10] = 28
	selfieUndtot[10] = 12
	selfieNudtot[10] = 0
	selfieTitflash[10] = 8
	selfieAssflash[10] = 1
	selfiePussyflash[10] = 7
	selfieBathtot[10] = 0
	selfieShowertot[10] = 0
	selfieSwimtot[10] = 0

	$selfieLoc[11] = 'restroom'
	$selfieLocDesc[11] = 'Restroom'
	$selfieFilePrefix[11] = ''
	selfieClotot[11] = 30
	selfieUndtot[11] = 25
	selfieNudtot[11] = 3
	selfieTitflash[11] = 30
	selfieAssflash[11] = 13
	selfiePussyflash[11] = 21
	selfieBathtot[11] = 0
	selfieShowertot[11] = 0
	selfieSwimtot[11] = 0
end




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


if $ARGS[0] = 'open_camera':
	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

	$telefon['body'] = '<font size=6>Camera</font><br>
	<img src="images/system/phone/theme/<<$phonetheme_name[pcs_phonetheme]>>/icon_camera.png" height="80" width="80"><br><br>'

	!! Take a selfie depending on which clothes you are wearing
	$telefon['body'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''phone_selfies'', ''camera_take_selfie'', ''<<$phone_loc>>'' "><b>Take a selfie</b></a><br>'

	!! 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 (pcs_inhib >= 35 or exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and selfieTitflash[locIndex] > 0:
			$telefon['body'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''phone_selfies'', ''camera_take_selfie'', ''<<$phone_loc>>'', ''tits'' "><b>Flash your tits for a selfie</b></a><br>'
		end
		if (exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and selfieAssflash[locIndex] > 0:
			$telefon['body'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''phone_selfies'', ''camera_take_selfie'', ''<<$phone_loc>>'', ''ass'' "><b>Flash your ass for a selfie</b></a><br>'
		end
		if (exhibitionist_lvl > 1 or $phone_loc = 'bedroom') and selfiePussyflash[locIndex] > 0:
			$telefon['body'] += '<a href="exec:gs ''exp_gain'', ''photoskl'', 1 & gs ''phone_selfies'', ''camera_take_selfie'', ''<<$phone_loc>>'', ''pussy'' "><b>Flash your pussy for a selfie</b></a><br>'
		end
		killvar 'locIndex'
	end
end


!!picking the selfie image when taking photos, this sets the location variable
!{
	$ARGS[1] is phone location if left blank it is a generic selfie	(one of the locations in $selfieLoc[])
	$ARGS[2] is for flashing when clothed if left blank then it is not flashing
}
if $ARGS[0] = 'camera_take_selfie':
	minut += rand(5,7)
	if $ARGS[1] ! '':
		gs 'phone_selfies', 'camera_selfie_image', $ARGS[1], $ARGS[2]
	else
		phone_rand = RAND(1,selfieClotot[0])
		dynamic '<<$selfieLoc[0]>>_closelfie[<<phone_rand>>] = 1'
		gs 'stat'
		if usePopUps = 1:
			msg '<img src="images/pc/activities/phone/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><<phone_rand>>.jpg">'
		else
			view 'images/pc/activities/phone/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><<phone_rand>>.jpg'
		end
		killvar 'phone_rand'
	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


!!taking selfies, this chooses a random image for the location for clothed, underwear and nude
!{
	$ARGS[1] is phone location (one of the locations in $selfieLoc[])
	$ARGS[2] is for flashing when clothed if left blank then it is not flashing
}
if $ARGS[0] = 'camera_selfie_image':
	if $ARGS[2] = '':
		if PCloswimwear = 1:
			!!changing to and unmixed variable so the rng will work
			if Enable_Android = 1:
				temp_swim = selfieSwimtot[arrpos('$selfieLoc', $ARGS[1], 1)]
			else
				temp_swim = selfieSwimtot[arrpos(1, '$selfieLoc', $ARGS[1])]
			end
			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'
				if usePopUps = 1:
					msg '<img src="images/pc/activities/phone/selfies/<<$ARGS[1]>>/bikini/<<phone_rand>>.jpg">'
				else
					view 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/bikini/<<phone_rand>>.jpg'
				end
			end
			killvar 'temp_swim'

		elseif $clothingworntype ! 'nude':
			!!changing to and unmixed variable so the rng will work
			if Enable_Android = 1:
				temp_clotot = selfieClotot[arrpos('$selfieLoc', $ARGS[1], 1)]
			else
				temp_clotot = selfieClotot[arrpos(1, '$selfieLoc', $ARGS[1])]
			end
			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'
				if usePopUps = 1:
					msg '<img src="images/pc/activities/phone/selfies/<<$ARGS[1]>>/clothed/<<phone_rand>>.jpg">'
				else
					view 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/clothed/<<phone_rand>>.jpg'
				end
			end
			killvar 'temp_clotot'

		elseif $pantyworntype ! 'none':
			if Enable_Android = 1:
				temp_undtot = selfieUndtot[arrpos('$selfieLoc', $ARGS[1], 1)]
			else
				temp_undtot = selfieUndtot[arrpos(1, '$selfieLoc', $ARGS[1])]
			end
			if temp_undtot > 0:
				phone_rand = rand(1, temp_undtot)
				dynamic '<<$ARGS[1]>>_undselfie[<<phone_rand>>] = 1'
				gs 'stat'
				if usePopUps = 1:
					msg '<img src="images/pc/activities/phone/selfies/<<$ARGS[1]>>/underwear/<<phone_rand>>.jpg">'
				else
					view 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/underwear/<<phone_rand>>.jpg'
				end
			end
			killvar 'temp_undtot'

		else
			if Enable_Android = 1:
				temp_nudtot = selfieNudtot[arrpos('$selfieLoc', $ARGS[1], 1)]
			else
				temp_nudtot = selfieNudtot[arrpos(1, '$selfieLoc', $ARGS[1])]
			end
			if temp_nudtot > 0:
				phone_rand = rand(1, temp_nudtot)
				dynamic '<<$ARGS[1]>>_nudselfie[<<phone_rand>>] = 1'
				gs 'stat'
				if usePopUps = 1:
					msg '<img src="images/pc/activities/phone/selfies/<<$ARGS[1]>>/nude/<<phone_rand>>.jpg">'
				else
					view 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/nude/<<phone_rand>>.jpg'
				end
			end
			killvar 'temp_nudtot'
		end

	else
		if $ARGS[2] = 'tits':
			if Enable_Android = 1:
				temp_titflash = selfieTitflash[arrpos('$selfieLoc', $ARGS[1], 1)]
			else
				temp_titflash = selfieTitflash[arrpos(1, '$selfieLoc', $ARGS[1])]
			end
			if temp_titflash > 0:
				phone_rand = rand(1, temp_titflash)
				dynamic '<<$ARGS[1]>>_titflash[<<phone_rand>>] = 1'
				gs 'stat'
				if usePopUps = 1:
					msg '<img src="images/pc/activities/phone/selfies/<<$ARGS[1]>>/titflash/<<phone_rand>>.jpg">'
				else
					view 'images/pc/activities/phone/selfies/<<$ARGS[1]>>/titflash/<<phone_rand>>.jpg'
				end
			end
			killvar 'temp_titflash'

		elseif $ARGS[2] = 'ass':
			if Enable_Android = 1:
				temp_assflash = selfieAssflash[arrpos('$selfieLoc', $ARGS[1], 1)]
			else
				temp_assflash = selfieAssflash[arrpos(1, '$selfieLoc', $ARGS[1])]
			end
			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
			killvar 'temp_assflash'

		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
			killvar 'temp_pussyflash'
		end
	end
	killvar 'phone_rand'
end

!!taking selfies in the shower
if $ARGS[0] = 'camera_selfie_image_shower':
	minut += rand(5,7)
	if Enable_Android = 1:
		temp_showertot = selfieShowertot[arrpos('$selfieLoc', 'bathroom', 1)]
	else
		temp_showertot = selfieShowertot[arrpos(1, '$selfieLoc', 'bathroom')]
	end
	phone_rand = rand(1, temp_showertot)
	!!Setting the image owned flag to 1
	bathroom_showerselfie[phone_rand] = 1
	gs 'stat'
	if usePopUps = 1:
		msg '<img src="images/pc/activities/phone/selfies/bathroom/shower/<<phone_rand>>.jpg">'
	else
		view 'images/pc/activities/phone/selfies/bathroom/shower/<<phone_rand>>.jpg'
	end
end


!!taking selfies in the bath
if $ARGS[0] = 'camera_selfie_image_bathing':
	minut += rand(5,7)
	if Enable_Android = 1:
		temp_bathtot = selfieBathtot[arrpos('$selfieLoc', 'bathroom', 1)]
	else
		temp_bathtot = selfieBathtot[arrpos(1, '$selfieLoc', 'bathroom')]
	end
	phone_rand = rand(1, temp_bathtot)
	bathroom_bathselfie[phone_rand] = 1
	gs 'stat'
	if usePopUps = 1:
		msg '<img src="images/pc/activities/phone/selfies/bathroom/bath/<<phone_rand>>.jpg">'
	else
		view 'images/pc/activities/phone/selfies/bathroom/bath/<<phone_rand>>.jpg'
	end
end




	!!======================================================!!
	!!                                                      !!
	!!                     SEND SELFIES                     !!
	!!                                                      !!
	!!======================================================!!


if $ARGS[0] = 'send_selfie_handler':
	$temp_ssh_ret_loc = $ARGS[1]
	$temp_ssh_ret_arg = $ARGS[2]
	temp_suppress_other_selfies = 1

	gt 'phone_selfies', 'view_selfies'
end




	!!======================================================!!
	!!                                                      !!
	!!                     VIEW SELFIES                     !!
	!!                                                      !!
	!!======================================================!!


if $ARGS[0] = 'view_selfies':
	menu_off = 0
	*clr & cla

	gs 'phone_selfies', 'Phone_selfie_totals'
	*p func('phone_selfies', 'get_selfie_layout')

	gs 'phone_selfies', 'act_exit'
end

if $ARGS[0] = 'act_exit':
	act 'Stop watching selfies':
		if temp_suppress_other_selfies = 0:
			gt $menu_loc, $menu_arg
		else
			killvar 'temp_suppress_other_selfies'
			gt $temp_ssh_ret_loc, $temp_ssh_ret_arg
		end
	end
end


if $ARGS[0] = 'get_selfie_layout':
	$result = '<center><h4><font color="maroon">Photo library</font></h4></center>'
	$result += '<br>'
	$result += '<table><tr><th>Selfies</th></tr>'
	temp_locationCnt = 0
	:LocationLoop
		$result += '<tr><td><a href="exec: gt ''phone_selfies'', ''showlocation'', <<temp_locationCnt>>"><<$selfieLocDesc[temp_locationCnt]>> selfies</a></td></tr>'
		temp_locationCnt += 1
	if temp_locationCnt < arrsize('$selfieLoc'): jump 'LocationLoop'

	if temp_suppress_other_selfies = 0:
		$result += '<tr></tr><tr><th>Family and friends</th></tr>'
		$result += '<tr><td><a href="exec:gt ''phone_selfies'', ''family''">Family</a></td></tr>'
		$result += '<tr><td><a href="exec:gt ''phone_selfies'', ''school''">School friends</a></td></tr>'
		$result += '<tr><td><a href="exec:gt ''phone_selfies'', ''teacher''">Teachers</a></td></tr>'
		$result += '<tr><td><a href="exec:gt ''phone_selfies'', ''pavlovsk''">Pavlovsk friends</a></td></tr>'
		$result += '<tr><td><a href="exec:gt ''phone_selfies'', ''city''">City friends</a></td></tr>'
	end

	killvar 'temp_locationCnt'
	$result += '</table>'
end

! ARGS[1] is the index of the location in $selfieLoc[]
if $ARGS[0] = 'showlocation':
	'<center><h4><font color="maroon"><<$selfieLocDesc[ARGS[1]]>> selfies</font></h4></center>'
	*nl
	*p func('phone_selfies', 'listretrieve', ARGS[1], $selfieLoc[ARGS[1]])

	act 'Back': gt 'phone_selfies', 'view_selfies'
	gs 'phone_selfies', 'act_exit'
end


!  ARGS[1] is the index of the location in $selfieLoc[]
! $ARGS[2] is the selfie location (park, home, etc)
if $ARGS[0] = 'listretrieve':
	$result = '<center><table width=80%>'
	$result += func('phone_selfies', 'retrieve_clothed_selfies',	ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_swim_selfies',		ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_underwear_selfies',	ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_nude_selfies',		ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_bath_selfies',		ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_shower_selfies',		ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_titflash_selfies',	ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_assflash_selfies',	ARGS[1], $ARGS[2])
	$result += func('phone_selfies', 'retrieve_pussyflash_selfies',	ARGS[1], $ARGS[2])
	$result += '</table></center>'
end


!  ARGS[1] is the index of the location in $selfieLoc[]
! $ARGS[2] is the selfie location
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:
		$result += '<tr><th colspan=5>Clothed selfies</th></tr>'
		$result += '<tr></tr><tr>'

		temp_cnum = 0
		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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'clothed', ARGS[1], temp_clocnt) + '</td>'
				temp_cnum += 1
			end
			temp_clocnt += 1
		if temp_clocnt <= selfieClotot[ARGS[1]]: jump 'temp_loop'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_clocnt'
	end

elseif $ARGS[0] = 'retrieve_swim_selfies':
	if selfieSwimtot[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Swimwear selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'bikini', ARGS[1], temp_swicnt) + '</td>'
				temp_cnum += 1
			end
			temp_swicnt += 1
		if temp_swicnt <= selfieSwimtot[ARGS[1]]: jump 'temp_loop1'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_swicnt'
	end

elseif $ARGS[0] = 'retrieve_underwear_selfies':
	if selfieUndtot[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Underwear selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'underwear', ARGS[1], temp_undcnt) + '</td>'
				temp_cnum += 1
			end
			temp_undcnt += 1
		if temp_undcnt <= selfieUndtot[ARGS[1]]: jump 'temp_loop2'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_undcnt'
	end

elseif $ARGS[0] = 'retrieve_nude_selfies':
	if selfieNudtot[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Nude selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'nude', ARGS[1], temp_nudcnt) + '</td>'
				temp_cnum += 1
			end
			temp_nudcnt += 1
		if temp_nudcnt <= selfieNudtot[ARGS[1]]: jump 'temp_loop3'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_nudcnt'
	end

elseif $ARGS[0] = 'retrieve_bath_selfies':
	!!loop for bath selfies
	if selfieBathtot[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Bath selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'bath', ARGS[1], temp_bathcnt) + '</td>'
				temp_cnum += 1
			end
			temp_bathcnt += 1
		if temp_bathcnt <= selfieBathtot[ARGS[1]]: jump 'temp_loop4'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_bathcnt'
	end

elseif $ARGS[0] = 'retrieve_shower_selfies':
	!!loop for shower selfies
	if selfieShowertot[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Shower selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'shower', ARGS[1], temp_showercnt) + '</td>'
				temp_cnum += 1
			end
			temp_showercnt += 1
		if temp_showercnt <= selfieShowertot[ARGS[1]]: jump 'temp_loop5'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_showercnt'
	end

elseif $ARGS[0] = 'retrieve_titflash_selfies':
	!!loop for flashing tits selfies
	if selfieTitflash[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Flashing tits selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'titflash', ARGS[1], temp_flashtitscnt) + '</td>'
				temp_cnum += 1
			end
			temp_flashtitscnt += 1
		if temp_flashtitscnt <= selfieTitflash[ARGS[1]]: jump 'temp_loop6'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_flashtitscnt'
	end

elseif $ARGS[0] = 'retrieve_assflash_selfies':
	!!loop for flashing ass selfies
	if selfieAssflash[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Flashing ass selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'assflash', ARGS[1], temp_flashasscnt) + '</td>'
				temp_cnum += 1
			end
			temp_flashasscnt += 1
		if temp_flashasscnt <= selfieAssflash[ARGS[1]]: jump 'temp_loop7'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_flashasscnt'
	end

elseif $ARGS[0] = 'retrieve_pussyflash_selfies':
	!!loop for flashing pussy selfies
	if selfiePussyflash[ARGS[1]] > 0:
		$result += '<tr><th colspan=5>Flashing pussy selfies</th></tr>'
		$result += '<tr></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 = 5: $result += '</tr><tr>' & temp_cnum = 0
				$result += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie', $ARGS[2], 'pussyflash', ARGS[1], temp_flashpussycnt) + '</td>'
				temp_cnum += 1
			end
			temp_flashpussycnt += 1
		if temp_flashpussycnt <= selfiePussyflash[ARGS[1]]: jump 'temp_loop8'
		if temp_cnum ! 4: $result += '<td></td>'
		$result += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'temp_flashpussycnt'
	end
end




	!!======================================================!!
	!!                                                      !!
	!!                  NPC and other PICS                  !!
	!!                                                      !!
	!!======================================================!!


if $ARGS[0] = 'family':
	'<center><h4><font color="maroon">Family members</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3" width=80%>'
	:familygruploop
		if npc_selfieon['A<<i>>'] = 1 and npc_grupTipe['A<<i>>'] = 7:
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>'] + '</td>'

			if count1 = 6:
				$textgrup +='</tr><tr>'
				count1 = 0
			end
		end

		i += 1
	if i <= aarraynumber: jump 'familygruploop'

	'<<$textgrup>>'
	'</table></center>'

	act 'Back': gt 'phone_selfies', 'view_selfies'
	gs 'phone_selfies', 'act_exit'
end

if $ARGS[0] = 'school':
	'<center><h4><font color="maroon">School friends</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3" width=80%>'
	:schoolgruploop
		if npc_selfieon['A<<i>>'] = 1 and (npc_grupTipe['A<<i>>'] = 1 or npc_grupTipe['A<<i>>'] = 2 or npc_grupTipe['A<<i>>'] = 3 or npc_grupTipe['A<<i>>'] = 4 or npc_grupTipe['A<<i>>'] = 5):
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>'] + '</td>'

			if count1 = 6:
				$textgrup +='</tr><tr>'
				count1 = 0
			end
		end

		i += 1
	if i <= aarraynumber: jump 'schoolgruploop'

	'<<$textgrup>>'
	'</table></center>'

	act 'Back': gt 'phone_selfies', 'view_selfies'
	gs 'phone_selfies', 'act_exit'
end

if $ARGS[0] = 'teacher':
	'<center><h4><font color="maroon">Teachers</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3" width=80%>'
	:teachergruploop
		if npc_selfieon['A<<i>>'] = 1 and npc_grupTipe['A<<i>>'] = 6:
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>'] + '</td>'

			if count1 = 6:
				$textgrup +='</tr><tr>'
				count1 = 0
			end
		end

		i += 1
	if i <= aarraynumber: jump 'teachergruploop'

	'<<$textgrup>>'
	'</table></center>'

	act 'Back': gt 'phone_selfies', 'view_selfies'
	gs 'phone_selfies', 'act_exit'
end

if $ARGS[0] = 'pavlovsk':
	'<center><h4><font color="maroon">Pavlovsk friends</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3" width=80%>'
	:pavgruploop
		if npc_grupTipe['A<<i>>'] = 8 and npc_selfieon['A<<i>>'] = 1:
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>'] + '</td>'

			if count1 = 6:
				$textgrup +='</tr><tr>'
				count1 = 0
			end
		end
		i += 1
	if i <= aarraynumber: jump 'pavgruploop'

	'<<$textgrup>>'
	'</table></center>'

	act 'Back': gt 'phone_selfies', 'view_selfies'
	gs 'phone_selfies', 'act_exit'
end

if $ARGS[0] = 'city':
	'<center><h4><font color="maroon">City friends</font></h4></center>'

	act 'Back': gt 'phone_selfies', 'view_selfies'
	gs 'phone_selfies', 'act_exit'
end



!! Sets up a list of selfies taken by category
!! loops through the arrays of selfie flags (1 means that se;lfie has been taken by the player)
!! adds the image path for each taken selfie to the relevant array
!! So to check if any nude selfies are on the phone we can do   if arrsize('$selfieTakenNud') > 0:
!! then we can get the image paths for the elements of that array to get the pictures taken
!!	$selfieTakenClo[]
!!	$selfieTakenUnd[]
!!	$selfieTakenNud[]
!!	$selfieTakenTitflash[]
!!	$selfieTakenAssflash[]
!!	$selfieTakenPussyflash[]
!!	$selfieTakenBath[]
!!	$selfieTakenShower[]
!!	$selfieTakenSwim[]
if $ARGS[0] = 'PopulateSelfiesList':
	killvar '$selfieTakenClo'
	killvar '$selfieTakenUnd'
	killvar '$selfieTakenNud'
	killvar '$selfieTakenTitflash'
	killvar '$selfieTakenAssflash'
	killvar '$selfieTakenPussyflash'
	killvar '$selfieTakenBath'
	killvar '$selfieTakenShower'
	killvar '$selfieTakenSwim'

	temp_locationCnt = 1
	:LocationTakenLoop
		CloMaxSize = selfieClotot[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'closelfie', '$selfieTakenClo', 'clothed', CloMaxSize
		end

		CloMaxSize = selfieSwimtot[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'swim', '$selfieTakenSwim', 'bikini', CloMaxSize
		end

		CloMaxSize = selfieUndtot[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'undselfie', '$selfieTakenUnd', 'underwear', CloMaxSize
		end

		CloMaxSize = selfieNudtot[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'nudselfie', '$selfieTakenNud', 'nude', CloMaxSize
		end

		CloMaxSize = selfieBathtot[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'bathselfie', '$selfieTakenBath', 'bath', CloMaxSize
		end

		CloMaxSize = selfieShowertot[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'showerselfie', '$selfieTakenShower', 'shower', CloMaxSize
		end

		CloMaxSize = selfieTitflash[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'titflash', '$selfieTakenTitflash', 'titflash', CloMaxSize
		end

		CloMaxSize = selfieAssflash[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'assflash', '$selfieTakenAssflash', 'assflash', CloMaxSize
		end

		CloMaxSize = selfiePussyflash[temp_locationCnt]
		if CloMaxSize > 0:
			gs 'phone_selfies', 'populateClothesType', 'pussyflash', '$selfieTakenPussyflash', 'pussyflash', CloMaxSize
		end

		temp_locationCnt += 1
	if temp_locationCnt < arrsize('$selfieLoc'): jump 'LocationTakenLoop'
end


if $ARGS[0] = 'populateClothesType':
	$CloTypePrefix = $ARGS[1]
	$CloArraySize = 'arrsize(''<<$ARGS[2]>>'')'
	$CloFolder = $ARGS[3]
	$CloVar = '<<$ARGS[2]>>[tmpIndex]'
	CloMaxSize = ARGS[4]

	temp_clocnt = 0
	:tempCloTakenLoop
		dynamic 'phone_locval = <<$selfieLoc[temp_locationCnt]>>_<<$CloTypePrefix>>[<<temp_clocnt>>]'
		if phone_locval = 1:
			dynamic 'tmpIndex = <<$CloArraySize>>'
			dynamic "<<$CloVar>> = 'images/pc/activities/phone/selfies/<<$selfieLoc[temp_locationCnt]>>/<<$CloFolder>>/<<$selfieFilePrefix[temp_locationCnt]>><<temp_clocnt>>.jpg'"
		end

		temp_clocnt += 1
	if temp_clocnt <= CloMaxSize: jump 'tempCloTakenLoop'
end

if $ARGS[0] = 'get_npc_selfie_totals':
	if ARGS[1] = 1:
		'<center><h4><font color="maroon">Dimka pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/dimka/'
		$imgloc = 'images/characters/pavlovsk/school/boy/dimka/selfies/'
		$selfienpc = 'dimka'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 2:
		'<center><h4><font color="maroon">Artem pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/artem/'
		$imgloc = 'images/characters/pavlovsk/school/boy/artem/selfies/'
		$selfienpc = 'artem'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 3:
		'<center><h4><font color="maroon">Ivan pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/ivan/'
		$imgloc = 'images/characters/pavlovsk/school/boy/ivan/selfies/'
		$selfienpc = 'ivan'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 4:
		'<center><h4><font color="maroon">Igor pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/igor/'
		$imgloc = 'images/characters/pavlovsk/school/boy/igor/selfies/'
		$selfienpc = 'igor'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 5:
		'<center><h4><font color="maroon">Fedor pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/fedor/'
		$imgloc = 'images/characters/pavlovsk/school/boy/fedor/selfies/'
		$selfienpc = 'fedor'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 6:
		'<center><h4><font color="maroon">Petka pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/petka/'
		$imgloc = 'images/characters/pavlovsk/school/boy/petka/selfies/'
		$selfienpc = 'petka'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 7:
		'<center><h4><font color="maroon">Lesco pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lesco/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lesco/selfies/'
		$selfienpc = 'lesco'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 8:
		'<center><h4><font color="maroon">Svyatoslav pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/svyatoslav/'
		$imgloc = 'images/characters/pavlovsk/school/boy/svyatoslav/selfies/'
		$selfienpc = 'svyatoslav'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 9:
		'<center><h4><font color="maroon">Vitek pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/vitek/'
		$imgloc = 'images/characters/pavlovsk/school/boy/vitek/selfies/'
		$selfienpc = 'vitek'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 10:
		'<center><h4><font color="maroon">Dan pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/dan/'
		$imgloc = 'images/characters/pavlovsk/school/boy/dan/selfies/'
		$selfienpc = 'dan'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 11:
		'<center><h4><font color="maroon">Vasily pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/vasily/'
		$imgloc = 'images/characters/pavlovsk/school/boy/vasily/selfies/'
		$selfienpc = 'vasily'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 12:
		'<center><h4><font color="maroon">Julia pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/julia/'
		$imgloc = 'images/characters/pavlovsk/school/boy/julia/selfies/'
		$selfienpc = 'julia'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 13:
		'<center><h4><font color="maroon">Lariska pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lariska/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lariska/selfies/'
		$selfienpc = 'lariska'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 14:
		'<center><h4><font color="maroon">Katja pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/katja/'
		$imgloc = 'images/characters/pavlovsk/school/boy/katja/selfies/'
		$selfienpc = 'katja'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 15:
		'<center><h4><font color="maroon">Vicky pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/vicky/'
		$imgloc = 'images/characters/pavlovsk/school/boy/vicky/selfies/'
		$selfienpc = 'vicky'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 16:
		'<center><h4><font color="maroon">Natasha pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/natasha/'
		$imgloc = 'images/characters/pavlovsk/school/boy/natasha/selfies/'
		$selfienpc = 'natasha'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 17:
		'<center><h4><font color="maroon">Inna pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/inna/'
		$imgloc = 'images/characters/pavlovsk/school/boy/inna/selfies/'
		$selfienpc = 'inna'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 18:
		'<center><h4><font color="maroon">Christina pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/christina/'
		$imgloc = 'images/characters/pavlovsk/school/boy/christina/selfies/'
		$selfienpc = 'christina'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 19:
		'<center><h4><font color="maroon">Lina pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lina/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lina/selfies/'
		$selfienpc = 'lina'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 20:
		'<center><h4><font color="maroon">Lena pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lena/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lena/selfies/'
		$selfienpc = 'lena'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 21:
		'<center><h4><font color="maroon">Lera pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lera/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lera/selfies/'
		$selfienpc = 'lera'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 22:
		'<center><h4><font color="maroon">Bella pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/bella/'
		$imgloc = 'images/characters/pavlovsk/school/boy/bella/selfies/'
		$selfienpc = 'bella'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 23:
		'<center><h4><font color="maroon">Albina pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/albina/'
		$imgloc = 'images/characters/pavlovsk/school/boy/albina/selfies/'
		$selfienpc = 'albina'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 24:
		'<center><h4><font color="maroon">Pauline pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/pauline/'
		$imgloc = 'images/characters/pavlovsk/school/boy/pauline/selfies/'
		$selfienpc = 'pauline'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 25:
		'<center><h4><font color="maroon">Sonia pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/sonia/'
		$imgloc = 'images/characters/pavlovsk/school/girl/sonia/selfies/'
		$selfienpc = 'sonia'
		loopmaxev = 0
		loopmax = 45
		loopmaxsveta = 25
		loopmaxsex = 9
	elseif ARGS[1] = 26:
		'<center><h4><font color="maroon">Anatoly pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/anatoly/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/anatoly/selfies/'
		$selfienpc = 'anatoly'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 28:
		'<center><h4><font color="maroon">Stepfather pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/vladimir/'
		$imgloc = 'images/characters/pavlovsk/resident/vladimir/selfies/'
		$selfienpc = 'vladimir'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 29:
		'<center><h4><font color="maroon">Mother pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/mom/'
		$imgloc = 'images/characters/pavlovsk/resident/mom/selfies/'
		$selfienpc = 'mom'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 33:
		'<center><h4><font color="maroon">Anya pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/anya/'
		$imgloc = 'images/characters/pavlovsk/resident/anya/selfies/'
		$selfienpc = 'anya'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 34:
		'<center><h4><font color="maroon">Kolka pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/kolka/'
		$imgloc = 'images/characters/pavlovsk/resident/kolka/selfies/'
		$selfienpc = 'kolka'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 35:
		'<center><h4><font color="maroon">Father pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/???/'
!! Where are these located?
		$imgloc = 'images/characters/pavlovsk/resident/???/selfies/'
		$selfienpc = 'father'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 54:
		'<center><h4><font color="maroon">Uncle Misha pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/misha/'
		$imgloc = 'images/characters/pavlovsk/resident/misha/selfies/'
		$selfienpc = 'misha'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 56:
		'<center><h4><font color="maroon">Roma pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/roma/'
		$imgloc = 'images/characters/pavlovsk/resident/roma/selfies/'
		$selfienpc = 'roma'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 57:
		'<center><h4><font color="maroon">Rex pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/rex/'
		$imgloc = 'images/characters/pavlovsk/resident/rex/selfies/'
		$selfienpc = 'rex'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 69:
		'<center><h4><font color="maroon">Mikhail pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/mikhail/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/mikhail/selfies/'
		$selfienpc = 'coachmikhail'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 112:
		'<center><h4><font color="maroon">Sergey pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/sergey/'
		$imgloc = 'images/characters/pavlovsk/resident/sergey/selfies/'
		$selfienpc = 'sergey'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 128:
		'<center><h4><font color="maroon">Makar pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/makar/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/makar/selfies/'
		$selfienpc = 'makar'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 129:
		'<center><h4><font color="maroon">Serafim pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/serafim/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/serafim/selfies/'
		$selfienpc = 'serafim'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 130:
		'<center><h4><font color="maroon">Ilya pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/ilya/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/ilya/selfies/'
		$selfienpc = 'ilya'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 131:
		'<center><h4><font color="maroon">Viktor pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/viktor/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/viktor/selfies/'
		$selfienpc = 'viktor'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 132:
		'<center><h4><font color="maroon">Ruslan pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/ruslan/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/ruslan/selfies/'
		$selfienpc = 'ruslan'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 133:
		'<center><h4><font color="maroon">Rolan pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/rolan/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/rolan/selfies/'
		$selfienpc = 'rolan'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 134:
		'<center><h4><font color="maroon">Aleksandrina pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/aleksandrina/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/aleksandrina/selfies/'
		$selfienpc = 'aleksandrina'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 135:
		'<center><h4><font color="maroon">Yeva pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/yeva/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/yeva/selfies/'
		$selfienpc = 'yeva'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 136:
		'<center><h4><font color="maroon">Olga pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/olga/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/olga/selfies/'
		$selfienpc = 'olga'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 137:
		'<center><h4><font color="maroon">Raven pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/raven/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/raven/selfies/'
		$selfienpc = 'raven'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 138:
		'<center><h4><font color="maroon">Arina pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/arina/'
		$imgloc = 'images/characters/pavlovsk/school/teacher/arina/selfies/'
		$selfienpc = 'arina'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 139:
		'<center><h4><font color="maroon">Stasya pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/stasya/'
		$imgloc = 'images/characters/pavlovsk/school/boy/stasya/selfies/'
		$selfienpc = 'stasya'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 140:
		'<center><h4><font color="maroon">Lizaveta pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lizaveta/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lizaveta/selfies/'
		$selfienpc = 'lizaveta'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 141:
		'<center><h4><font color="maroon">Veronika pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/veronika/'
		$imgloc = 'images/characters/pavlovsk/school/boy/veronika/selfies/'
		$selfienpc = 'veronika'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 142:
		'<center><h4><font color="maroon">Zinaida pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/zinaida/'
		$imgloc = 'images/characters/pavlovsk/school/boy/zinaida/selfies/'
		$selfienpc = 'zinaida'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 143:
		'<center><h4><font color="maroon">Alyona pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/alyona/'
		$imgloc = 'images/characters/pavlovsk/school/boy/alyona/selfies/'
		$selfienpc = 'alyona'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 144:
		'<center><h4><font color="maroon">Anushka pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/anushka/'
		$imgloc = 'images/characters/pavlovsk/school/girl/anushka/selfies/'
		$selfienpc = 'anushka'
		loopmaxev = 6
		loopmax = 22
		loopmaxsveta = 2
		loopmaxsex = 7
	elseif ARGS[1] = 145:
		'<center><h4><font color="maroon">Ekaterina pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/ekaterina/'
		$imgloc = 'images/characters/pavlovsk/school/boy/ekaterina/selfies/'
		$selfienpc = 'ekaterina'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 146:
		'<center><h4><font color="maroon">Marcus pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/marcus/'
		$imgloc = 'images/characters/pavlovsk/school/boy/marcus/selfies/'
		$selfienpc = 'marcus'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 147:
		'<center><h4><font color="maroon">Andrey pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/andrey/'
		$imgloc = 'images/characters/pavlovsk/school/boy/andrey/selfies/'
		$selfienpc = 'andrey'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 148:
		'<center><h4><font color="maroon">Mefodiy pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/mefodiy/'
		$imgloc = 'images/characters/pavlovsk/school/boy/mefodiy/selfies/'
		$selfienpc = 'mefodiy'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 149:
		'<center><h4><font color="maroon">Lazar pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lazar/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lazar/selfies/'
		$selfienpc = 'lazar'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 150:
		'<center><h4><font color="maroon">Erast pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/erast/'
		$imgloc = 'images/characters/pavlovsk/school/boy/erast/selfies/'
		$selfienpc = 'erast'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 151:
		'<center><h4><font color="maroon">Evgeny pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/evgeny/'
		$imgloc = 'images/characters/pavlovsk/school/boy/evgeny/selfies/'
		$selfienpc = 'evgeny'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 152:
		'<center><h4><font color="maroon">Feofan pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/feofan/'
		$imgloc = 'images/characters/pavlovsk/school/boy/feofan/selfies/'
		$selfienpc = 'feofan'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 153:
		'<center><h4><font color="maroon">Gerasim pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/gerasim/'
		$imgloc = 'images/characters/pavlovsk/school/boy/gerasim/selfies/'
		$selfienpc = 'gerasim'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 154:
		'<center><h4><font color="maroon">Radomir pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/radomir/'
		$imgloc = 'images/characters/pavlovsk/school/boy/radomir/selfies/'
		$selfienpc = 'radomir'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 155:
		'<center><h4><font color="maroon">Lavrenti pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/lavrenti/'
		$imgloc = 'images/characters/pavlovsk/school/boy/lavrenti/selfies/'
		$selfienpc = 'lavrenti'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 156:
		'<center><h4><font color="maroon">Arkadi pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/arkadi/'
		$imgloc = 'images/characters/pavlovsk/school/boy/arkadi/selfies/'
		$selfienpc = 'arkadi'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 157:
		'<center><h4><font color="maroon">Roman pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/roman/'
		$imgloc = 'images/characters/pavlovsk/school/boy/roman/selfies/'
		$selfienpc = 'roman'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 158:
		'<center><h4><font color="maroon">Valentin pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/valentin/'
		$imgloc = 'images/characters/pavlovsk/school/boy/valentin/selfies/'
		$selfienpc = 'valentin'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 159:
		'<center><h4><font color="maroon">Petia pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/petia/'
		$imgloc = 'images/characters/pavlovsk/school/boy/petia/selfies/'
		$selfienpc = 'petia'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 165:
		'<center><h4><font color="maroon">Vanya pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/vanya/'
		$imgloc = 'images/characters/pavlovsk/school/boy/vanya/selfies/'
		$selfienpc = 'vanya'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	elseif ARGS[1] = 189:
		'<center><h4><font color="maroon">Nikolai pictures</font></h4></center>'
		$photoloc = 'images/pc/pictures/nikolai/'
		$imgloc = 'images/characters/pavlovsk/school/boy/nikolai/selfies/'
		$selfienpc = 'nikolai'
		loopmaxev = 0
		loopmax = 0
		loopmaxsveta = 0
		loopmaxsex = 0
	else
		!! New npcs with selfies should be included above
	end
end

if $ARGS[0] = 'listretrieve2':
	gs 'phone_selfies', 'get_npc_selfie_totals', numnpc

	$temp_table = '<table>'

	if loopmaxev > 0:
		$temp_table += '<tr><th colspan=5>Pictures</th></tr>'
		$temp_table += '<tr></tr><tr>'

		temp_cnum = 0
		lr2_pic_i = 1
		:temp_loopev
			dynamic '$selfie = <<$selfienpc>>photo[<<lr2_pic_i>>]'
			if val($selfie) = 1:
				if temp_cnum = 5: $result += '</tr><tr>' & temp_cnum = 0
				$temp_table += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie2', $photoloc, lr2_pic_i) + '</td>'
				temp_cnum += 1
			end
			lr2_pic_i += 1
		if lr2_pic_i <= loopmax: jump 'temp_loopev'
		if temp_cnum ! 4: $temp_table += '<td></td>'
		$temp_table += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'lr2_pic_i'
	end

	if loopmax > 0:
		$temp_table += '<tr><th colspan=5>Regular selfies</th></tr>'
		$temp_table += '<tr></tr><tr>'

		temp_cnum = 0
		lr2_regself_i = 1
		:temp_loopselfies
			dynamic '$selfie = <<$selfienpc>>[<<lr2_regself_i>>]'
			if val($selfie) = 1:
				if temp_cnum = 5: $result += '</tr><tr>' & temp_cnum = 0
				$temp_table += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie2', $imgloc, lr2_regself_i) + '</td>'
				temp_cnum += 1
			end
			lr2_regself_i += 1
		if lr2_regself_i <= loopmax: jump 'temp_loopselfies'
		if temp_cnum ! 4: $temp_table += '<td></td>'
		$temp_table += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'lr2_regself_i'
	end

	if loopmaxsveta > 0:
		$temp_table += '<tr><th colspan=5>Selfies with me</th></tr>'
		$temp_table += '<tr></tr><tr>'

		temp_cnum = 0
		lr2_swm_i = 1
		:temp_loopselfiessveta
			dynamic '$selfie = <<$selfienpc>>sveta[<<lr2_swm_i>>]'
			if val($selfie) = 1:
				if temp_cnum = 5: $result += '</tr><tr>' & temp_cnum = 0
				$temp_table += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie2', '<<$imgloc>>sveta/', lr2_swm_i) + '</td>'
				temp_cnum += 1
			end
			lr2_swm_i += 1
		if lr2_swm_i <= loopmaxsveta: jump 'temp_loopselfiessveta'
		if temp_cnum ! 4: $temp_table += '<td></td>'
		$temp_table += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'lr2_swm_i'
	end

	if loopmaxsex > 0:
		$temp_table += '<tr><th colspan=5>Sex selfies</th></tr>'
		$temp_table += '<tr></tr><tr>'

		temp_cnum = 0
		lr2_sex_i = 1
		:temp_loopselfiessex
			dynamic '$selfie = <<$selfienpc>>sex[<<lr2_sex_i>>]'
			if val($selfie) = 1:
				if temp_cnum = 5: $result += '</tr><tr>' & temp_cnum = 0
				$temp_table += '<td width="20%">' + func('phone_selfies_popup', 'set_selfie2', '<<$imgloc>>sex/', lr2_sex_i) + '</td>'
				temp_cnum += 1
			end
			lr2_sex_i += 1
		if lr2_sex_i <= loopmaxsex: jump 'temp_loopselfiessex'
		if temp_cnum ! 4: $temp_table += '<td></td>'
		$temp_table += '</tr><tr></tr>'

		killvar 'temp_cnum'
		killvar 'lr2_sex_i'
	end
	$temp_table += '</table>'

	*p $temp_table

	act 'Back': gt 'phone_selfies', 'view_selfies'
	gs 'phone_selfies', 'act_exit'
end


--- phone_selfies ---------------------------------