|
@@ -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':
|