glife/locations/phone_selfies.qsrc

# phone_selfies
!2020/10/16
!{ 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] = 'lockeroom'
	$selfieLocDesc[7] = 'Lockeroom'
	$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] = 'selfies':
	menu_off = 0
	gs 'phone_selfies', 'Phone_selfie_totals'
	*clr & cla
	
	'<center><h4><font color="maroon">Photo library</font></h4></center>'
	*nl
	'Selfies'

	temp_locationCnt = 0
	:LocationLoop
		'<a href="exec:gt ''phone_selfies'', ''showlocation'', <<temp_locationCnt>>"><<$selfieLocDesc[temp_locationCnt]>> selfies</a>'
		temp_locationCnt += 1
	if temp_locationCnt < arrsize('$selfieLoc'): jump'LocationLoop'

	*nl
	'Family and friends'
	'<a href="exec:gt ''phone_selfies'', ''family''">Family</a>'
	'<a href="exec:gt ''phone_selfies'', ''school''">School friends</a>'
	'<a href="exec:gt ''phone_selfies'', ''teacher''">Teachers</a>'
	'<a href="exec:gt ''phone_selfies'', ''pavlovsk''">Pavlovsk friends</a>'
	'<a href="exec:gt ''phone_selfies'', ''city''">City friends</a>'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
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
	gs 'phone_selfies', 'listretrieve', ARGS[1]
	
	act 'Back': gt 'phone_selfies', 'selfies'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
end


!! ARGS[1] is the index of the location in $selfieLoc[]
if $ARGS[0] = 'listretrieve':

	!!Loop for clothed selfies, dynamics set variables as mixing them in loop instructions is bad
	if selfieClotot[ARGS[1]] > 0:
		'<center><b>Clothed selfies</b></center>'
		*nl
		temp_clocnt = 1
		:temp_loop
			!!setting value to unmixed variable so it can be checked in the if below
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_closelfie[<<temp_clocnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''clothed'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_clocnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/clothed/<<$selfieFilePrefix[ARGS[1]]>><<temp_clocnt>>.jpg"     height="150" /></a>  '
			temp_clocnt += 1
		if temp_clocnt <= selfieClotot[ARGS[1]]: jump'temp_loop'
	end
	
	!!Loop for swimwear selfies, dynamics set variables as mixing them in loop instructions is bad
	if selfieSwimtot[ARGS[1]] > 0:
		'<center><b>Swimwear selfies</b></center>'
		*nl
		temp_clocnt = 1
		:temp_loop1
			!!setting value to unmixed variable so it can be checked in the if below
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_swim[<<temp_clocnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''bikini'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_clocnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/bikini/<<$selfieFilePrefix[ARGS[1]]>><<temp_clocnt>>.jpg"     height="150" /></a>  '
			temp_clocnt += 1
		if temp_clocnt <= selfieSwimtot[ARGS[1]]: jump'temp_loop1'
	end
		
	!!loop for underwear selfies
	if selfieUndtot[ARGS[1]] > 0:
		'<center><b>Underwear selfies</b></center>'
		*nl
		temp_undcnt = 1
		:temp_loop2
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_undselfie[<<temp_undcnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''underwear'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_undcnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/underwear/<<$selfieFilePrefix[ARGS[1]]>><<temp_undcnt>>.jpg"     height="150" /></a>  '
			temp_undcnt += 1
		if temp_undcnt <= selfieUndtot[ARGS[1]]: jump'temp_loop2'
	end

	!!loop for nude selfies
	if selfieNudtot[ARGS[1]] > 0:
		'<center><b>Nude selfies</b></center>'
		*nl
		temp_nudcnt = 1
		:temp_loop3
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_nudselfie[<<temp_nudcnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''nude'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_nudcnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/nude/<<$selfieFilePrefix[ARGS[1]]>><<temp_nudcnt>>.jpg"     height="150" /></a>  '
			temp_nudcnt += 1
		if temp_nudcnt <= selfieNudtot[ARGS[1]]: jump'temp_loop3'
	end
	
	!!loop for bath selfies
	if selfieBathtot[ARGS[1]] > 0:
		'<center><b>Bath selfies</b></center>'
		*nl
		temp_bathcnt = 1
		:temp_loop4
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_bathselfie[<<temp_bathcnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''bath'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_bathcnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/bath/<<$selfieFilePrefix[ARGS[1]]>><<temp_bathcnt>>.jpg"     height="150" /></a>  '
			temp_bathcnt += 1
		if temp_bathcnt <= selfieBathtot[ARGS[1]]: jump'temp_loop4'
	end
	
	!!loop for shower selfies
	if selfieShowertot[ARGS[1]] > 0:
		'<center><b>Shower selfies</b></center>'
		*nl
		temp_showercnt = 1
		:temp_loop5
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_showerselfie[<<temp_showercnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''shower'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_showercnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/shower/<<$selfieFilePrefix[ARGS[1]]>><<temp_showercnt>>.jpg"     height="150" /></a>  '
			temp_showercnt += 1
		if temp_showercnt <= selfieShowertot[ARGS[1]]: jump'temp_loop5'
	end
	
	!!loop for flashing tits selfies
	if selfieTitflash[ARGS[1]] > 0:
		'<center><b>Flashing tits selfies</b></center>'
		*nl
		temp_flashtitscnt = 1
		:temp_loop6
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_titflash[<<temp_flashtitscnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''titflash'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_flashtitscnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/titflash/<<$selfieFilePrefix[ARGS[1]]>><<temp_flashtitscnt>>.jpg"     height="150" /></a>  '
			temp_flashtitscnt += 1
		if temp_flashtitscnt <= selfieTitflash[ARGS[1]]: jump'temp_loop6'
	end
	
	!!loop for flashing ass selfies
	if selfieAssflash[ARGS[1]] > 0:
		'<center><b>Flashing ass selfies</b></center>'
		*nl
		temp_flashasscnt = 1
		:temp_loop7
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_assflash[<<temp_flashasscnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''assflash'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_flashasscnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/assflash/<<$selfieFilePrefix[ARGS[1]]>><<temp_flashasscnt>>.jpg"     height="150" /></a>  '
			temp_flashasscnt += 1
		if temp_flashasscnt <= selfieAssflash[ARGS[1]]: jump'temp_loop7'
	end
	
	!!loop for flashing pussy selfies
	if selfiePussyflash[ARGS[1]] > 0:
		'<center><b>Flashing pussy selfies</b></center>'
		*nl
		temp_flashpussycnt = 1
		:temp_loop8
			dynamic '$phone_locval = <<$selfieLoc[ARGS[1]]>>_pussyflash[<<temp_flashpussycnt>>]'
			if $phone_locval = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show'', ''<<$selfieLoc[ARGS[1]]>>'', ''pussyflash'', ''<<$selfieFilePrefix[ARGS[1]]>><<temp_flashpussycnt>>''"><img src="images/pc/activities/selfies/<<$selfieLoc[ARGS[1]]>>/pussyflash/<<$selfieFilePrefix[ARGS[1]]>><<temp_flashpussycnt>>.jpg"     height="150" /></a>  '
			temp_flashpussycnt += 1
		if temp_flashpussycnt <= selfiePussyflash[ARGS[1]]: jump'temp_loop8'
	end
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:
			dyneval 'tmpIndex = <<$CloArraySize>>'
			dyneval "<<$CloVar>> = 'images/pc/activities/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] = 'listretrieve2':
	if numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 54:
		'<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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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 numnpc = 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
	
	if loopmaxev > 0:
		*nl
		'<center><b>Pictures</b></center>'
		*nl
		
		i = 1
		:temp_loopev
            dynamic '$selfie = <<$selfienpc>>photo[<<i>>]'
			if $selfie = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show2'', ''<<$photoloc>>'', ''<<i>>''"><img src="<<$photoloc>><<i>>.jpg"     height="150" /></a>  '
            i += 1
        if i <= loopmax: jump'temp_loopev'
	end
	
	if loopmax > 0:
		*nl
		'<center><b>Regular selfies</b></center>'
		*nl
		
		i = 1
		:temp_loopselfies
            dynamic '$selfie = <<$selfienpc>>[<<i>>]'
			if $selfie = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show2'', ''<<$imgloc>>'', ''<<i>>''"><img src="<<$imgloc>><<i>>.jpg"     height="150" /></a>  '
            i += 1
        if i <= loopmax: jump'temp_loopselfies'
	end
	
	if loopmaxsveta > 0:
		*nl
		'<center><b>Selfies with me</b></center>'
		*nl
		
		i = 1
		:temp_loopselfiessveta
			dynamic '$selfie = <<$selfienpc>>sveta[<<i>>]'
			if $selfie = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show2'', ''<<$imgloc>>sveta/'', ''<<i>>''"><img src="<<$imgloc>>sveta/<<i>>.jpg"     height="150" /></a>  '
			i += 1
		if i <= loopmaxsveta: jump'temp_loopselfiessveta'
	end
	
	if loopmaxsex > 0:
		*nl
		'<center><b>Sex selfies</b></center>'
		*nl
		
		i = 1
		:temp_loopselfiessex
			dynamic '$selfie = <<$selfienpc>>sex[<<i>>]'
			if $selfie = 1: *p '<a href="exec: gs ''phone_selfies_popup'', ''show2'', ''<<$imgloc>>sex/'', ''<<i>>''"><img src="<<$imgloc>>sex/<<i>>.jpg"     height="150" /></a>  '
			i += 1
		if i <= loopmaxsex: jump'temp_loopselfiessex'
	end
	
	act 'Back': gt 'phone_selfies', 'selfies'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
end

if $ARGS[0] = 'family':
	'<center><h4><font color="maroon">Family members</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3">'
	:familygruploop	
		if count1 = 6 : $textgrup += '<tr>'

		if npc_grupTipe['A<<i>>'] = 7 and npc_selfieon['A<<i>>'] = 1:
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/shared/photos/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
		end
		if count1< 6 and npc_grupTipe['A<<i>>'] = 7:
			$textgrup += '</td>'
		elseif count1 = 6 and npc_grupTipe['A<<i>>'] = 7:
			$textgrup +='</td></tr><tr>' & count1 = 0
		end
		i += 1
	if i <= aarraynumber:jump 'familygruploop'

	'<<$textgrup>>'
	
	act 'Back': gt 'phone_selfies', 'selfies'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
end

if $ARGS[0] = 'school':
	'<center><h4><font color="maroon">School friends</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3">'
	:schoolgruploop	
		if count1 = 6 : $textgrup += '<tr>'

		if (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) and npc_selfieon['A<<i>>'] = 1:
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/shared/photos/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
		end
		if count1< 6 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):
			$textgrup += '</td>'
		elseif count1 = 6 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):
			$textgrup +='</td></tr><tr>' & count1 = 0
		end
		i += 1
	if i <= aarraynumber:jump 'schoolgruploop'

	'<<$textgrup>>'
	
	act 'Back': gt 'phone_selfies', 'selfies'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
end

if $ARGS[0] = 'teacher':
	'<center><h4><font color="maroon">Teachers</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3">'
	:teachergruploop	
		if count1 = 6 : $textgrup += '<tr>'

		if npc_grupTipe['A<<i>>'] = 6 and npc_selfieon['A<<i>>'] = 1:
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/shared/photos/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
		end
		if count1< 6 and npc_grupTipe['A<<i>>'] = 6:
			$textgrup += '</td>'
		elseif count1 = 6 and npc_grupTipe['A<<i>>'] = 6:
			$textgrup +='</td></tr><tr>' & count1 = 0
		end
		i += 1
	if i <= aarraynumber:jump 'teachergruploop'

	'<<$textgrup>>'
	
	act 'Back': gt 'phone_selfies', 'selfies'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
end

if $ARGS[0] = 'pavlovsk':
	'<center><h4><font color="maroon">Pavlovsk friends</font></h4></center>'
	$textgrup = ''
	count1 = 0
	i = 1
	'<center><table cellspacing="3">'
	:pavgruploop	
		if count1 = 6 : $textgrup += '<tr>'

		if npc_grupTipe['A<<i>>'] = 8 and npc_selfieon['A<<i>>'] = 1:
			count1 += 1
			$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/shared/photos/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
		end
		if count1< 6 and npc_grupTipe['A<<i>>'] = 8:
			$textgrup += '</td>'
		elseif count1 = 6 and npc_grupTipe['A<<i>>'] = 8:
			$textgrup +='</td></tr><tr>' & count1 = 0
		end
		i += 1
	if i <= aarraynumber:jump 'pavgruploop'

	'<<$textgrup>>'
	
	act 'Back': gt 'phone_selfies', 'selfies'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
end

if $ARGS[0] = 'city':
	'<center><h4><font color="maroon">City friends</font></h4></center>'
	
	act 'Back': gt 'phone_selfies', 'selfies'
	!gt $loc, $loc_arg
	act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
end

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