Browse Source

Merge remote-tracking branch 'CroWke/master'

KevinSmarts 5 years ago
parent
commit
5df48a8656
4 changed files with 223 additions and 66 deletions
  1. 10 19
      locations/gLakeNude.qsrc
  2. 6 9
      locations/glake.qsrc
  3. 78 18
      locations/phone_selfies.qsrc
  4. 129 20
      locations/telefon.qsrc

+ 10 - 19
locations/gLakeNude.qsrc

@@ -6,6 +6,7 @@ $loc = 'gLakeNude'
 $metka = ''
 $menu_loc = 'gLakeNude'
 $menu_arg = ''
+$locclass = 'beach'
 menu_off = 0
 *clr & cla
 gs'stat'
@@ -59,8 +60,7 @@ end
 
 if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 	act'Get dressed':
-		cla
-		*clr
+		*clr & cla
 		menu_off = 1
 		minut+=5
 		gs 'clothing', 'wear_last_worn'
@@ -74,8 +74,7 @@ end
 if temper >= 15 and month >= 5 and month <= 9:
 	if ARRSIZE('swimwear') > 0 and $clothingworntype ! 'swimwear':
 		act'Change into your swimwear':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut+=5
 			if pcs_horny >= 90:
@@ -99,8 +98,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Take off your clothes':
 			menu_off = 1
 			if pcs_inhib > 30:
-				cla
-				*clr
+				*clr & cla
 				minut+=5
 				gs 'clothing', 'strip'
 				gs 'underwear', 'remove'
@@ -127,8 +125,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Go swimming (1:00)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-				cla
-				*clr
+				*clr & cla
 				cumspclnt = 4
 				gs 'cum_cleanup'
 				minut = minut + 60
@@ -161,8 +158,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Go sunbathing (1:00)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-				cla
-				*clr
+				*clr & cla
 				minut = minut + 60
 				if pcs_sweat < 35 : pcs_sweat += 5
 				pcs_mood += 5
@@ -175,12 +171,10 @@ if temper >= 15 and month >= 5 and month <= 9:
 				end
 				if krem = 0:
 					pcs_tan = pcs_tan + 1
-
 					'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
-				elseif krem > 0:
+				else:
 					krem = krem - 1
 					pcs_tan = pcs_tan + 3
-
 					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
 				end
 				act 'Continue':gt'gLakeNude'
@@ -201,8 +195,7 @@ end
 if temper >= 15 and month >= 5 and month <= 9:
 	if voyeurism_start = 0:
 		act'Look around the beach':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut += 5
 			voyeurism_start_view = RAND(1,3)
@@ -219,8 +212,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		end
 	elseif voyeurism_start = 1:
 		act'Watch couple on the beach':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			if voyeurism = 0:
 				minut += 5
@@ -248,8 +240,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 				gs'gLakeNudeEvent','gLakeNude_nudist'
 				act'Continue': gt 'gLakeNude'
 			else
-				cla
-				*clr
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
 				'You want to watch for nudists, but suddenly notice that you start to feel weird.<br><dh>"Probably spying too much."</dh> you think and look straight ahead.'
 				act'Continue': gt'gLakeNude'

+ 6 - 9
locations/glake.qsrc

@@ -5,6 +5,7 @@ $loc = 'gLake'
 $metka = ''
 $menu_loc = 'glake'
 $menu_arg = ''
+$locclass = 'beach'
 menu_off = 0
 $location_type = 'public_outdoors'
 gs'stat'
@@ -211,8 +212,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 
 	if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 		act 'Go swim in the lake (1:00)':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			pcs_makeup = 1
 			cumspclnt = 4
@@ -240,8 +240,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 
 				menu_off = 1
 				if $clothingworntype = 'nude' and zoo > 0 and rand(1,10) = 5:
-					cla
-					*clr
+					*clr & cla
 					pcs_willpwr -= 5
 					pcs_mood -= 5
 					inhib_exp += rand(1,3)
@@ -249,8 +248,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 					'As you lie down on your towel to catch some rays of sun and hopefully work on your tan a little, a stray dog appears out of nowhere. It keeps sniffing between your legs, which makes you feel very uncomfortable since you''re not wearing anything. You spend most of the hour trying to chase the dog away, but it comes back every time you think you got rid of it. You don''t get much sunbathing done as a result.'
 					act 'Give up on sunbathing':gt'glake'
 				else
-					cla
-					*clr
+					*clr & cla
 					minut += 60
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 					if pcs_sweat < 35 : pcs_sweat += 5
@@ -265,7 +263,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 					if krem = 0:
 						'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
 						pcs_tan = pcs_tan + 1
-					elseif krem > 0:
+					else
 						krem = krem - 1
 						'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
 						pcs_tan = pcs_tan + 3
@@ -395,8 +393,7 @@ act'Go to the secluded beach':minut += 10 & gt'gLakeNude'
 if month = 12 or month = 1 or month = 2:
 	if konki_cloth = 1:
 		act'Take off your skates':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut+=10
 			konki_cloth=0

+ 78 - 18
locations/phone_selfies.qsrc

@@ -11,10 +11,13 @@ if $ARGS[0] = 'selfies':
 	nudvar = 1
 	bathvar = 0
 	showervar = 0
+	titflashvar = 1
+	assflashvar = 1
+	pussyflashvar = 1
 	
 	!!This variable will switch to bikini for beach selfies
-	$undname = 'underwear'
-	$undnamecap = 'Underwear'
+	$cloname = 'clothed'
+	$clonamecap = 'Clothed'
 	
 	'<center><h4><font color="maroon">Photo library</font></h4></center>'
 	*nl
@@ -56,19 +59,34 @@ if $ARGS[0] = 'listretrieve':
 			temp_clocnt += 1
 		if temp_clocnt <= temp_total: jump'temp_loop'
 	end
+	
+	!!Loop for swimwear selfies, dynamics set variables as mixing them in loop instructions is bad
+	if swimvar = 1:
+		'<center><b>Swimwear selfies</b></center>'
+		*nl
+		temp_clocnt = 1
+		dynamic 'temp_loop1 = <<$phone_loc>>_swimloop'
+		dynamic 'temp_total = <<$phone_loc>>_swim'
+		:temp_loop1
+			!!setting value to unmixed variable so it can be checked in the if below
+			dynamic '$phone_locval = <<$phone_loc>>_swim[<<temp_clocnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/bikini/<<temp_clocnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/bikini/<<temp_clocnt>>.jpg"     height="150" /></a>  '
+			temp_clocnt += 1
+		if temp_clocnt <= temp_total: jump'temp_loop1'
+	end
 		
 	!!loop for underwear selfies
 	if undvar = 1:
-		'<center><b><<$undnamecap>> selfies</b></center>'
+		'<center><b>Underwear selfies</b></center>'
 		*nl
 		temp_undcnt = 1
-		dynamic 'temp_loop1 = <<$phone_loc>>_undloop'
+		dynamic 'temp_loop2 = <<$phone_loc>>_undloop'
 		dynamic 'temp_total = <<$phone_loc>>_undtot'
-		:temp_loop1
+		:temp_loop2
 			dynamic '$phone_locval = <<$phone_loc>>_undselfie[<<temp_undcnt>>]'
-			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/<<$undname>>/<<temp_undcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/<<$undname>>/<<temp_undcnt>>.jpg"     height="150" /></a>  '
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/underwear/<<temp_undcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/underwear/<<temp_undcnt>>.jpg"     height="150" /></a>  '
 			temp_undcnt += 1
-		if temp_undcnt <= temp_total: jump'temp_loop1'
+		if temp_undcnt <= temp_total: jump'temp_loop2'
 	end
 
 	!!loop for nude selfies
@@ -76,13 +94,13 @@ if $ARGS[0] = 'listretrieve':
 		'<center><b>Nude selfies</b></center>'
 		*nl
 		temp_nudcnt = 1
-		dynamic 'temp_loop2 = <<$phone_loc>>_nudloop'
+		dynamic 'temp_loop3 = <<$phone_loc>>_nudloop'
 		dynamic 'temp_total = <<$phone_loc>>_nudtot'
-		:temp_loop2
+		:temp_loop3
 			dynamic '$phone_locval = <<$phone_loc>>_nudselfie[<<temp_nudcnt>>]'
 			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/nude/<<temp_nudcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/nude/<<temp_nudcnt>>.jpg"     height="150" /></a>  '
 			temp_nudcnt += 1
-		if temp_nudcnt <= temp_total: jump'temp_loop2'
+		if temp_nudcnt <= temp_total: jump'temp_loop3'
 	end
 	
 	!!loop for bath selfies
@@ -90,13 +108,13 @@ if $ARGS[0] = 'listretrieve':
 		'<center><b>Bath selfies</b></center>'
 		*nl
 		temp_bathcnt = 1
-		dynamic 'temp_loop2 = <<$phone_loc>>_bathloop'
+		dynamic 'temp_loop4 = <<$phone_loc>>_bathloop'
 		dynamic 'temp_total = <<$phone_loc>>_bathtot'
-		:temp_loop3
+		:temp_loop4
 			dynamic '$phone_locval = <<$phone_loc>>_bathselfie[<<temp_bathcnt>>]'
 			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/bath/<<temp_bathcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/bath/<<temp_bathcnt>>.jpg"     height="150" /></a>  '
 			temp_bathcnt += 1
-		if temp_bathcnt <= temp_total: jump'temp_loop3'
+		if temp_bathcnt <= temp_total: jump'temp_loop4'
 	end
 	
 	!!loop for shower selfies
@@ -104,13 +122,55 @@ if $ARGS[0] = 'listretrieve':
 		'<center><b>Shower selfies</b></center>'
 		*nl
 		temp_showercnt = 1
-		dynamic 'temp_loop2 = <<$phone_loc>>_showerloop'
+		dynamic 'temp_loop5 = <<$phone_loc>>_showerloop'
 		dynamic 'temp_total = <<$phone_loc>>_showertot'
-		:temp_loop4
+		:temp_loop5
 			dynamic '$phone_locval = <<$phone_loc>>_showerselfie[<<temp_showercnt>>]'
 			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/shower/<<temp_showercnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/shower/<<temp_showercnt>>.jpg"     height="150" /></a>  '
 			temp_showercnt += 1
-		if temp_showercnt <= temp_total: jump'temp_loop4'
+		if temp_showercnt <= temp_total: jump'temp_loop5'
+	end
+	
+	!!loop for flashing tits selfies
+	if titflashvar = 1:
+		'<center><b>Flashing tits selfies</b></center>'
+		*nl
+		temp_flashtitscnt = 1
+		dynamic 'temp_loop6 = <<$phone_loc>>_titflashloop'
+		dynamic 'temp_total = <<$phone_loc>>_titflash'
+		:temp_loop6
+			dynamic '$phone_locval = <<$phone_loc>>_titflash[<<temp_flashtitscnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/titflash/<<temp_flashtitscnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/titflash/<<temp_flashtitscnt>>.jpg"     height="150" /></a>  '
+			temp_flashtitscnt += 1
+		if temp_flashtitscnt <= temp_total: jump'temp_loop6'
+	end
+	
+	!!loop for flashing ass selfies
+	if assflashvar = 1:
+		'<center><b>Flashing ass selfies</b></center>'
+		*nl
+		temp_flashasscnt = 1
+		dynamic 'temp_loop7 = <<$phone_loc>>_assflashloop'
+		dynamic 'temp_total = <<$phone_loc>>_assflash'
+		:temp_loop7
+			dynamic '$phone_locval = <<$phone_loc>>_assflash[<<temp_flashasscnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/assflash/<<temp_flashasscnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/assflash/<<temp_flashasscnt>>.jpg"     height="150" /></a>  '
+			temp_flashasscnt += 1
+		if temp_flashasscnt <= temp_total: jump'temp_loop7'
+	end
+	
+	!!loop for flashing pussy selfies
+	if pussyflashvar = 1:
+		'<center><b>Flashing pussy selfies</b></center>'
+		*nl
+		temp_flashpussycnt = 1
+		dynamic 'temp_loop8 = <<$phone_loc>>_pussyflashloop'
+		dynamic 'temp_total = <<$phone_loc>>_pussyflash'
+		:temp_loop8
+			dynamic '$phone_locval = <<$phone_loc>>_pussyflash[<<temp_flashpussycnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/pussyflash/<<temp_flashpussycnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/pussyflash/<<temp_flashpussycnt>>.jpg"     height="150" /></a>  '
+			temp_flashpussycnt += 1
+		if temp_flashpussycnt <= temp_total: jump'temp_loop8'
 	end
 end
 
@@ -739,8 +799,8 @@ if $ARGS[0] = 'beach':
 	'<center><h4><font color="maroon">Beach selfies</font></h4></center>'
 	$phone_loc = 'beach'
 	clovar = 0
-	$undname = 'bikini'
-	$undnamecap = 'Bikini'
+	$cloname = 'bikini'
+	$clonamecap = 'Bikini'
 	*nl
 	gs 'phone_selfies', 'listretrieve'
 		

+ 129 - 20
locations/telefon.qsrc

@@ -309,7 +309,7 @@ if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
 						'<<$loverdesc[lover_number]>>, "This is wonderful! We have to celebrate!"'
 						'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
 						'He warns you that his mother is very demanding and rigorous. <<$loverdesc[lover_number]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
-						'When you are totally ready <<$loverdesc[lover_number]>> will take you to their parents.'
+						'When you are totally ready <<$loverdesc[lover_number]>> will take you to his parents.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 
@@ -773,28 +773,52 @@ if $ARGS[0] = 'Phone_selfie_totals':
 	bathroom_clotot = 20
 	bathroom_undtot = 20
 	bathroom_nudtot = 20
+	bathroom_titflash = 10
+	bathroom_assflash = 10
+	bathroom_pussyflash = 10
 	bathroom_bathtot = 24
 	bathroom_showertot = 25
 	bedroom_clotot = 27
 	bedroom_undtot = 20
 	bedroom_nudtot = 20
+	bedroom_titflash = 10
+	bedroom_assflash = 10
+	bedroom_pussyflash = 10
 	kitchen_clotot = 16
 	kitchen_undtot = 11
 	kitchen_nudtot = 20
+	kitchen_titflash = 10
+	kitchen_assflash = 10
+	kitchen_pussyflash = 10
 	livingroom_clotot = 17
 	livingroom_undtot = 21
 	livingroom_nudtot = 21
+	livingroom_titflash = 10
+	livingroom_assflash = 10
+	livingroom_pussyflash = 10
 	changingroom_clotot = 19
 	changingroom_undtot = 25
 	changingroom_nudtot = 21
+	changingroom_titflash = 10
+	changingroom_assflash = 10
+	changingroom_pussyflash = 10
 	park_clotot = 28
 	park_undtot = 0
 	park_nudtot = 18
+	park_titflash = 10
+	park_assflash = 10
+	park_pussyflash = 10
 	lockeroom_clotot = 21
 	lockeroom_undtot = 16
 	lockeroom_nudtot = 14
+	lockeroom_titflash = 10
+	lockeroom_assflash = 10
+	lockeroom_pussyflash = 10
 	beach_swim = 21
 	beach_nudtot = 22
+	beach_titflash = 10
+	beach_assflash = 10
+	beach_pussyflash = 10
 end
 
 
@@ -828,6 +852,9 @@ if $ARGS[0] = 'Phone_camera_selfie':
 	elseif $locclass = 'lockeroom':
 		$phone_loc = 'lockeroom'
 		gs 'telefon', 'Phone_selfie_image'
+	elseif $locclass = 'beach':
+		$phone_loc = 'beach'
+		gs 'telefon', 'Phone_selfie_image'
 	else
 		phone_rand = RAND(1,2)
 		phone_selfie[phone_rand] = 1
@@ -841,26 +868,57 @@ end
 
 !!taking selfies, this chooses a random image for the location for clothed, underwear and nude
 if $ARGS[0] = 'Phone_selfie_image':
-	if $clothingworntype ! 'nude':
-		!!changing to and unmixed variable so the rng will work
-		dynamic 'temp_clotot = <<$phone_loc>>_clotot'
-		phone_rand = rand(1,temp_clotot)
-		!!Setting the image owned flag to 1
-		dynamic '<<$phone_loc>>_closelfie[<<phone_rand>>] = 1'
-		gs 'stat'
-		view 'images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg'
-	elseif $pantyworntype ! 'none':
-		dynamic 'temp_undtot = <<$phone_loc>>_undtot'
-		phone_rand = rand(1,temp_undtot)
-		dynamic '<<$phone_loc>>_undselfie[<<phone_rand>>] = 1'
-		gs 'stat'
-		view 'images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg'
+	if $flashing = '':
+		if $clothingworntype = 'swimwear':
+			!!changing to and unmixed variable so the rng will work
+			dynamic 'temp_swim = <<$phone_loc>>_swim'
+			phone_rand = rand(1,temp_swim)
+			!!Setting the image owned flag to 1
+			dynamic '<<$phone_loc>>_swim[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/bikini/<<phone_rand>>.jpg'
+		elseif $clothingworntype ! 'nude':
+			!!changing to and unmixed variable so the rng will work
+			dynamic 'temp_clotot = <<$phone_loc>>_clotot'
+			phone_rand = rand(1,temp_clotot)
+			!!Setting the image owned flag to 1
+			dynamic '<<$phone_loc>>_closelfie[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg'
+		elseif $pantyworntype ! 'none':
+			dynamic 'temp_undtot = <<$phone_loc>>_undtot'
+			phone_rand = rand(1,temp_undtot)
+			dynamic '<<$phone_loc>>_undselfie[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg'
+		else
+			dynamic 'temp_nudtot = <<$phone_loc>>_nudtot'
+			phone_rand = rand(1,temp_nudtot)
+			dynamic '<<$phone_loc>>_nudselfie[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg'
+		end
 	else
-		dynamic 'temp_nudtot = <<$phone_loc>>_nudtot'
-		phone_rand = rand(1,temp_nudtot)
-		dynamic '<<$phone_loc>>_nudselfie[<<phone_rand>>] = 1'
-		gs 'stat'
-		view 'images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg'
+		if $flashing = 'tits':
+			dynamic 'temp_titflash = <<$phone_loc>>_titflash'
+			phone_rand = rand(1,temp_titflash)
+			dynamic '<<$phone_loc>>_titflash[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/titflash/<<phone_rand>>.jpg'
+		elseif $flashing = 'ass':
+			dynamic 'temp_assflash = <<$phone_loc>>_assflash'
+			phone_rand = rand(1,temp_assflash)
+			dynamic '<<$phone_loc>>_assflash[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/assflash/<<phone_rand>>.jpg'
+		elseif $flashing = 'pussy':
+			dynamic 'temp_pussyflash = <<$phone_loc>>_pussyflash'
+			phone_rand = rand(1,temp_pussyflash)
+			dynamic '<<$phone_loc>>_pussyflash[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/pussyflash/<<phone_rand>>.jpg'
+		end
+		$flashing = ''
 	end
 end
 
@@ -888,14 +946,65 @@ end
 !!for taking photos - only selfies for now
 if $ARGS[0] = 'Phone_camera':
 	clr
+	if $location_type = 'bathroom':
+		$phone_loc = 'bathroom'
+	elseif $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 = 'park':
+		$phone_loc = 'park'
+	elseif $locclass = 'lockeroom':
+		$phone_loc = 'lockeroom'
+	elseif $locclass = 'beach':
+		$phone_loc = 'beach'
+	end
 	pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
 	pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
 	pl'<center><font size=6>Camera</font></center>'
 	pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"><br></center>'
+	!! Take a selfie depending on which clothes you are wearing
 	pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a>'
+	!! Flashing selfie
+	if $clothingworntype ! 'nude' and ($phone_loc = 'bathroom' or $phone_loc = 'bedroom' or $phone_loc = 'kitchen' or $phone_loc = 'livingroom' or $phone_loc = 'changingroom' or $phone_loc = 'park' or $phone_loc = 'lockeroom' or $phone_loc = 'beach'):
+		if $phone_loc = 'bedroom' or $phone_loc = 'bathroom':
+			pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a>'
+			pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a>'
+			pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a>'
+		else
+			if pcs_inhib >= 35 or exhibitionist_lvl > 0:
+				pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a>'
+			end
+			if exhibitionist_lvl > 0:
+				pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a>'
+			end
+			if exhibitionist_lvl > 1:
+				pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a>'
+			end
+		end
+	end
 	pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
 end
 
+if $ARGS[0] = 'titflash':
+	$flashing = 'tits'
+	gs 'telefon', 'Phone_camera_selfie'
+end
+
+if $ARGS[0] = 'assflash':
+	$flashing = 'ass'
+	gs 'telefon', 'Phone_camera_selfie'
+end
+
+if $ARGS[0] = 'pussyflash':
+	$flashing = 'pussy'
+	gs 'telefon', 'Phone_camera_selfie'
+end
+
 !!-----------------------------------end of Camera------------------------------------------
 
 if $ARGS[0] = 'Phone_wheather':