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

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', 'selfies'
end

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




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', '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', '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', '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', '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', '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 $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 $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 $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 $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', 'selfies'
	gs 'phone_selfies', 'act_exit'
end


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