|
|
@@ -29,6 +29,7 @@
|
|
|
! gs 'telefon', 'DeleteContact', 'A29'
|
|
|
!
|
|
|
|
|
|
+
|
|
|
! Header for Phone Screen. Keeps consistent and in one place
|
|
|
$telefon['header'] = {
|
|
|
if telefon['UnreadSMS'] > 0:
|
|
|
@@ -1290,130 +1291,28 @@ end &! --- Phone_notebook ---
|
|
|
|
|
|
!!----------------------------------------Camera-------------------------------------------------
|
|
|
|
|
|
-!!For setting the total numbers of selfies
|
|
|
-if $ARGS[0] = 'Phone_selfie_totals':
|
|
|
- bathroom_clotot = 24
|
|
|
- bathroom_undtot = 21
|
|
|
- bathroom_nudtot = 27
|
|
|
- bathroom_titflash = 20
|
|
|
- bathroom_assflash = 5
|
|
|
- bathroom_pussyflash = 22
|
|
|
- bathroom_bathtot = 24
|
|
|
- bathroom_showertot = 25
|
|
|
- bedroom_clotot = 27
|
|
|
- bedroom_undtot = 20
|
|
|
- bedroom_nudtot = 25
|
|
|
- bedroom_titflash = 30
|
|
|
- bedroom_assflash = 21
|
|
|
- bedroom_pussyflash = 23
|
|
|
- kitchen_clotot = 27
|
|
|
- kitchen_undtot = 23
|
|
|
- kitchen_nudtot = 23
|
|
|
- kitchen_titflash = 21
|
|
|
- kitchen_assflash = 1
|
|
|
- kitchen_pussyflash = 10
|
|
|
- livingroom_clotot = 27
|
|
|
- livingroom_undtot = 23
|
|
|
- livingroom_nudtot = 20
|
|
|
- livingroom_titflash = 20
|
|
|
- livingroom_assflash = 5
|
|
|
- livingroom_pussyflash = 20
|
|
|
- changingroom_clotot = 22
|
|
|
- changingroom_undtot = 25
|
|
|
- changingroom_nudtot = 25
|
|
|
- changingroom_titflash = 28
|
|
|
- changingroom_assflash = 19
|
|
|
- changingroom_pussyflash = 27
|
|
|
- park_clotot = 28
|
|
|
- park_undtot = 2
|
|
|
- park_nudtot = 12
|
|
|
- park_titflash = 21
|
|
|
- park_assflash = 2
|
|
|
- park_pussyflash = 8
|
|
|
- lockeroom_clotot = 26
|
|
|
- lockeroom_undtot = 21
|
|
|
- lockeroom_nudtot = 13
|
|
|
- lockeroom_titflash = 13
|
|
|
- lockeroom_assflash = 2
|
|
|
- lockeroom_pussyflash = 3
|
|
|
- beach_swim = 21
|
|
|
- beach_nudtot = 20
|
|
|
- beach_titflash = 17
|
|
|
- beach_assflash = 1
|
|
|
- beach_pussyflash = 4
|
|
|
- classroom_clotot = 11
|
|
|
- classroom_titflash = 3
|
|
|
- classroom_pussyflash = 3
|
|
|
-!!added underwear as I finally found some images
|
|
|
- classroom_undtot = 2
|
|
|
- !!classroom_assflash = 0
|
|
|
-!!I am adding a few more lines for selfies that I have, I am commenting them out for now until we add in the option to take the image. I named the first folder school_bathroom and the second folder restroom
|
|
|
- !!school_bathroom_clotot = 24
|
|
|
- !!school_bathroom_undtot = 9
|
|
|
- !!school_bathroom_nudtot = 0
|
|
|
- !!school_bathroom_assflash = 1
|
|
|
- !!school_bathroom_titflash = 4
|
|
|
- !!school_bathroom_pussyflash = 6
|
|
|
- !!restroom_clotot = 34
|
|
|
- !!restroom_undtot = 25
|
|
|
- !!restroom_nudtot = 3
|
|
|
- !!restroom_assflash = 10
|
|
|
- !!restroom_titflash = 34
|
|
|
- !!restroom_pussyflash = 21
|
|
|
-end
|
|
|
-
|
|
|
-
|
|
|
!!for viewing photos on your phone
|
|
|
if $ARGS[0] = 'Phone_pictures':
|
|
|
gt 'phone_selfies', 'selfies'
|
|
|
end
|
|
|
|
|
|
!!picking the selfie image when taking photos, this sets the location variable
|
|
|
+!{
|
|
|
+ $ARGS[1] is phone location if left blank it is a generic selfie (one of the locations in $selfieLoc[])
|
|
|
+ $ARGS[2] is for flashing when clothed if left blank then it is not flashing
|
|
|
+}
|
|
|
if $ARGS[0] = 'Phone_camera_selfie':
|
|
|
- gs 'telefon', 'Phone_selfie_totals'
|
|
|
minut += rand(5,7)
|
|
|
- if $location_type = 'bathroom':
|
|
|
- $phone_loc = 'bathroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'bedr':
|
|
|
- $phone_loc = 'bedroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'kitr':
|
|
|
- $phone_loc = 'kitchen'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'livingr':
|
|
|
- $phone_loc = 'livingroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'changingroom':
|
|
|
- $phone_loc = 'changingroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'city_park':
|
|
|
- $phone_loc = 'park'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'lockeroom':
|
|
|
- $phone_loc = 'lockeroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'beach':
|
|
|
- $phone_loc = 'beach'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'school_classroom':
|
|
|
- $phone_loc = 'school_classroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
-!{for the above image sets school bathroom and restroom aka public bathrooms, not sure what all should be added below so leaving it for you crowke
|
|
|
- elseif $locclass = 'school_bathroom':
|
|
|
- $phone_loc = 'school_bathroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'
|
|
|
- elseif $locclass = 'restroom':
|
|
|
- $phone_loc = 'restroom'
|
|
|
- gs 'telefon', 'Phone_selfie_image'}
|
|
|
+ if $ARGS[1] <> '':
|
|
|
+ gs 'telefon', 'Phone_selfie_image', $ARGS[1], $ARGS[2]
|
|
|
else
|
|
|
- phone_rand = RAND(1,2)
|
|
|
- phone_selfie[phone_rand] = 1
|
|
|
+ phone_rand = RAND(1,selfieClotot[0])
|
|
|
+ dynamic '<<$selfieLoc[0]>>_closelfie[<<phone_rand>>] = 1'
|
|
|
gs 'stat'
|
|
|
if usePopUps = 1:
|
|
|
- msg '<img src="images/system/phone/selfie/phone_selfie<<phone_rand>>.jpg">'
|
|
|
+ msg '<img src="images/pc/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><<phone_rand>>.jpg">'
|
|
|
else
|
|
|
- view 'images/system/phone/selfie/phone_selfie<<phone_rand>>.jpg'
|
|
|
+ view 'images/pc/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><<phone_rand>>.jpg'
|
|
|
end
|
|
|
end
|
|
|
!if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
|
|
|
@@ -1422,124 +1321,138 @@ if $ARGS[0] = 'Phone_camera_selfie':
|
|
|
end
|
|
|
|
|
|
!!taking selfies, this chooses a random image for the location for clothed, underwear and nude
|
|
|
+!{
|
|
|
+ $ARGS[1] is phone location (one of the locations in $selfieLoc[])
|
|
|
+ $ARGS[2] is for flashing when clothed if left blank then it is not flashing
|
|
|
+}
|
|
|
if $ARGS[0] = 'Phone_selfie_image':
|
|
|
- if $flashing = '':
|
|
|
+ if $ARGS[2] = '':
|
|
|
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'
|
|
|
- if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/bikini/<<phone_rand>>.jpg">'
|
|
|
- else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/bikini/<<phone_rand>>.jpg'
|
|
|
+ dynamic 'temp_swim = <<selfieSwimtot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
|
|
|
+ if temp_swim > 0:
|
|
|
+ phone_rand = rand(1,temp_swim)
|
|
|
+ !!Setting the image owned flag to 1
|
|
|
+ dynamic '<<$ARGS[1]>>_swim[<<phone_rand>>] = 1'
|
|
|
+ gs 'stat'
|
|
|
+ if usePopUps = 1:
|
|
|
+ msg '<img src="images/pc/selfies/<<$ARGS[1]>>/bikini/<<phone_rand>>.jpg">'
|
|
|
+ else
|
|
|
+ view 'images/pc/selfies/<<$ARGS[1]>>/bikini/<<phone_rand>>.jpg'
|
|
|
+ end
|
|
|
end
|
|
|
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'
|
|
|
- if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg">'
|
|
|
- else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg'
|
|
|
+ dynamic 'temp_clotot = <<selfieClotot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
|
|
|
+ if temp_clotot > 0:
|
|
|
+ phone_rand = rand(1,temp_clotot)
|
|
|
+ !!Setting the image owned flag to 1
|
|
|
+ dynamic '<<$ARGS[1]>>_closelfie[<<phone_rand>>] = 1'
|
|
|
+ gs 'stat'
|
|
|
+ if usePopUps = 1:
|
|
|
+ msg '<img src="images/pc/selfies/<<$ARGS[1]>>/clothed/<<phone_rand>>.jpg">'
|
|
|
+ else
|
|
|
+ view 'images/pc/selfies/<<$ARGS[1]>>/clothed/<<phone_rand>>.jpg'
|
|
|
+ end
|
|
|
end
|
|
|
elseif $pantyworntype ! 'none':
|
|
|
- dynamic 'temp_undtot = <<$phone_loc>>_undtot'
|
|
|
- phone_rand = rand(1,temp_undtot)
|
|
|
- dynamic '<<$phone_loc>>_undselfie[<<phone_rand>>] = 1'
|
|
|
- gs 'stat'
|
|
|
- if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg">'
|
|
|
- else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg'
|
|
|
+ dynamic 'temp_undtot = <<selfieUndtot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
|
|
|
+ if temp_undtot > 0:
|
|
|
+ phone_rand = rand(1,temp_undtot)
|
|
|
+ dynamic '<<$ARGS[1]>>_undselfie[<<phone_rand>>] = 1'
|
|
|
+ gs 'stat'
|
|
|
+ if usePopUps = 1:
|
|
|
+ msg '<img src="images/pc/selfies/<<$ARGS[1]>>/underwear/<<phone_rand>>.jpg">'
|
|
|
+ else
|
|
|
+ view 'images/pc/selfies/<<$ARGS[1]>>/underwear/<<phone_rand>>.jpg'
|
|
|
+ end
|
|
|
end
|
|
|
else
|
|
|
- dynamic 'temp_nudtot = <<$phone_loc>>_nudtot'
|
|
|
- phone_rand = rand(1,temp_nudtot)
|
|
|
- dynamic '<<$phone_loc>>_nudselfie[<<phone_rand>>] = 1'
|
|
|
- gs 'stat'
|
|
|
- if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg">'
|
|
|
- else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg'
|
|
|
+ dynamic 'temp_nudtot = <<selfieNudtot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
|
|
|
+ if temp_nudtot > 0:
|
|
|
+ phone_rand = rand(1,temp_nudtot)
|
|
|
+ dynamic '<<$ARGS[1]>>_nudselfie[<<phone_rand>>] = 1'
|
|
|
+ gs 'stat'
|
|
|
+ if usePopUps = 1:
|
|
|
+ msg '<img src="images/pc/selfies/<<$ARGS[1]>>/nude/<<phone_rand>>.jpg">'
|
|
|
+ else
|
|
|
+ view 'images/pc/selfies/<<$ARGS[1]>>/nude/<<phone_rand>>.jpg'
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
else
|
|
|
- if $flashing = 'tits':
|
|
|
- dynamic 'temp_titflash = <<$phone_loc>>_titflash'
|
|
|
- phone_rand = rand(1,temp_titflash)
|
|
|
- dynamic '<<$phone_loc>>_titflash[<<phone_rand>>] = 1'
|
|
|
- gs 'stat'
|
|
|
- if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/titflash/<<phone_rand>>.jpg">'
|
|
|
- else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/titflash/<<phone_rand>>.jpg'
|
|
|
+ if $ARGS[2] = 'tits':
|
|
|
+ dynamic 'temp_titflash = <<selfieTitflash[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
|
|
|
+ if temp_titflash > 0:
|
|
|
+ phone_rand = rand(1,temp_titflash)
|
|
|
+ dynamic '<<$ARGS[1]>>_titflash[<<phone_rand>>] = 1'
|
|
|
+ gs 'stat'
|
|
|
+ if usePopUps = 1:
|
|
|
+ msg '<img src="images/pc/selfies/<<$ARGS[1]>>/titflash/<<phone_rand>>.jpg">'
|
|
|
+ else
|
|
|
+ view 'images/pc/selfies/<<$ARGS[1]>>/titflash/<<phone_rand>>.jpg'
|
|
|
+ end
|
|
|
end
|
|
|
- elseif $flashing = 'ass':
|
|
|
- dynamic 'temp_assflash = <<$phone_loc>>_assflash'
|
|
|
- phone_rand = rand(1,temp_assflash)
|
|
|
- dynamic '<<$phone_loc>>_assflash[<<phone_rand>>] = 1'
|
|
|
- gs 'stat'
|
|
|
- if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/assflash/<<phone_rand>>.jpg">'
|
|
|
- else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/assflash/<<phone_rand>>.jpg'
|
|
|
+ elseif $ARGS[2] = 'ass':
|
|
|
+ dynamic 'temp_assflash = <<selfieAssflash[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
|
|
|
+ if temp_assflash > 0:
|
|
|
+ phone_rand = rand(1,temp_assflash)
|
|
|
+ dynamic '<<$ARGS[1]>>_assflash[<<phone_rand>>] = 1'
|
|
|
+ gs 'stat'
|
|
|
+ if usePopUps = 1:
|
|
|
+ msg '<img src="images/pc/selfies/<<$ARGS[1]>>/assflash/<<phone_rand>>.jpg">'
|
|
|
+ else
|
|
|
+ view 'images/pc/selfies/<<$ARGS[1]>>/assflash/<<phone_rand>>.jpg'
|
|
|
+ end
|
|
|
end
|
|
|
- elseif $flashing = 'pussy':
|
|
|
- dynamic 'temp_pussyflash = <<$phone_loc>>_pussyflash'
|
|
|
- phone_rand = rand(1,temp_pussyflash)
|
|
|
- dynamic '<<$phone_loc>>_pussyflash[<<phone_rand>>] = 1'
|
|
|
- gs 'stat'
|
|
|
- if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/pussyflash/<<phone_rand>>.jpg">'
|
|
|
- else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/pussyflash/<<phone_rand>>.jpg'
|
|
|
+ elseif $ARGS[2] = 'pussy':
|
|
|
+ dynamic 'temp_pussyflash = <<selfiePussyflash[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
|
|
|
+ if temp_pussyflash > 0:
|
|
|
+ phone_rand = rand(1,temp_pussyflash)
|
|
|
+ dynamic '<<$ARGS[1]>>_pussyflash[<<phone_rand>>] = 1'
|
|
|
+ gs 'stat'
|
|
|
+ if usePopUps = 1:
|
|
|
+ msg '<img src="images/pc/selfies/<<$ARGS[1]>>/pussyflash/<<phone_rand>>.jpg">'
|
|
|
+ else
|
|
|
+ view 'images/pc/selfies/<<$ARGS[1]>>/pussyflash/<<phone_rand>>.jpg'
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
- $flashing = ''
|
|
|
end
|
|
|
end
|
|
|
|
|
|
!!taking selfies in the shower or bath
|
|
|
if $ARGS[0] = 'Phone_selfie_image_bathing':
|
|
|
- gs 'telefon', 'Phone_selfie_totals'
|
|
|
- $phone_loc = 'bathroom'
|
|
|
minut += rand(5,7)
|
|
|
if $ARGS[1] = 'shower':
|
|
|
!!changing to and unmixed variable so the rng will work
|
|
|
- dynamic 'temp_showertot = bathroom_showertot'
|
|
|
+ dynamic 'temp_showertot = <<selfieShowertot[arrpos(1, ''$selfieLoc'', ''bathroom'')]>>'
|
|
|
phone_rand = rand(1,temp_showertot)
|
|
|
!!Setting the image owned flag to 1
|
|
|
- dynamic '<<$phone_loc>>_showerselfie[<<phone_rand>>] = 1'
|
|
|
+ dynamic 'bathroom_showerselfie[<<phone_rand>>] = 1'
|
|
|
gs 'stat'
|
|
|
if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/shower/<<phone_rand>>.jpg">'
|
|
|
+ msg '<img src="images/pc/selfies/bathroom/shower/<<phone_rand>>.jpg">'
|
|
|
else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/shower/<<phone_rand>>.jpg'
|
|
|
+ view 'images/pc/selfies/bathroom/shower/<<phone_rand>>.jpg'
|
|
|
end
|
|
|
elseif $ARGS[1] = 'bath':
|
|
|
- dynamic 'temp_bathtot = bathroom_bathtot'
|
|
|
+ dynamic 'temp_bathtot = <<selfieBathtot[arrpos(1, ''$selfieLoc'', ''bathroom'')]>>'
|
|
|
phone_rand = rand(1,temp_bathtot)
|
|
|
- dynamic '<<$phone_loc>>_bathselfie[<<phone_rand>>] = 1'
|
|
|
+ dynamic 'bathroom_bathselfie[<<phone_rand>>] = 1'
|
|
|
gs 'stat'
|
|
|
if usePopUps = 1:
|
|
|
- msg '<img src="images/pc/selfies/<<$phone_loc>>/bath/<<phone_rand>>.jpg">'
|
|
|
+ msg '<img src="images/pc/selfies/bathroom/bath/<<phone_rand>>.jpg">'
|
|
|
else
|
|
|
- view 'images/pc/selfies/<<$phone_loc>>/bath/<<phone_rand>>.jpg'
|
|
|
+ view 'images/pc/selfies/bathroom/bath/<<phone_rand>>.jpg'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
|
|
|
!!for taking photos - only selfies for now
|
|
|
if $ARGS[0] = 'Phone_camera':
|
|
|
- if $location_type = 'bathroom':
|
|
|
- $phone_loc = 'bathroom'
|
|
|
- elseif $locclass = 'bedr':
|
|
|
+ gs 'phone_selfies', 'Phone_selfie_totals'
|
|
|
+ if $locclass = 'bedr':
|
|
|
$phone_loc = 'bedroom'
|
|
|
elseif $locclass = 'kitr':
|
|
|
$phone_loc = 'kitchen'
|
|
|
@@ -1557,64 +1470,51 @@ if $ARGS[0] = 'Phone_camera':
|
|
|
$phone_loc = 'beach'
|
|
|
elseif $locclass = 'classroom':
|
|
|
$phone_loc = 'classroom'
|
|
|
+ elseif $locclass = 'school_bathroom':
|
|
|
+ $phone_loc = 'school_bathroom'
|
|
|
+ elseif $locclass = 'restroom':
|
|
|
+ $phone_loc = 'restroom'
|
|
|
+ elseif $location_type = 'bathroom':
|
|
|
+ $phone_loc = 'bathroom'
|
|
|
else
|
|
|
$phone_loc = ''
|
|
|
end
|
|
|
$telefon['body'] = '<font size=6>Camera</font><br>
|
|
|
<img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"><br><br>'
|
|
|
!! Take a selfie depending on which clothes you are wearing
|
|
|
- $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a><br>'
|
|
|
+ $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'', ''<<$phone_loc>>'' "><b>Take a selfie</b></a><br>'
|
|
|
!! Flashing selfie
|
|
|
- if $clothingworntype ! 'nude' and ($phone_loc = 'bedroom' or $phone_loc = 'kitchen' or $phone_loc = 'livingroom' or $phone_loc = 'changingroom' or $phone_loc = 'city_park' or $phone_loc = 'lockeroom' or $phone_loc = 'beach'):
|
|
|
- if $phone_loc = 'bedroom':
|
|
|
- $telefon['body'] += '
|
|
|
- <a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a><br>
|
|
|
- <a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a><br>
|
|
|
- <a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a><br>'
|
|
|
- else
|
|
|
- if pcs_inhib >= 35 or exhibitionist_lvl > 0:
|
|
|
- $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a><br>'
|
|
|
- end
|
|
|
- if exhibitionist_lvl > 0:
|
|
|
- $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a><br>'
|
|
|
- end
|
|
|
- if exhibitionist_lvl > 1:
|
|
|
- $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a><br>'
|
|
|
- end
|
|
|
+ if $clothingworntype ! 'nude' and $phone_loc <> '':
|
|
|
+ locIndex = arrpos(1, '$selfieLoc', $phone_loc)
|
|
|
+ if (pcs_inhib >= 35 or exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and dyneval("result = <<selfieTitflash[locIndex]>>") > 0:
|
|
|
+ $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'', ''<<$phone_loc>>'', ''tits'' "><b>Flash your tits for a selfie</b></a><br>'
|
|
|
+ end
|
|
|
+ if (exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and dyneval("result = <<selfieAssflash[locIndex]>>") > 0:
|
|
|
+ $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'', ''<<$phone_loc>>'', ''ass'' "><b>Flash your ass for a selfie</b></a><br>'
|
|
|
+ end
|
|
|
+ if (exhibitionist_lvl > 1 or $phone_loc = 'bedroom') and dyneval("result = <<selfiePussyflash[locIndex]>>") > 0:
|
|
|
+ $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'', ''<<$phone_loc>>'', ''pussy'' "><b>Flash your pussy for a selfie</b></a><br>'
|
|
|
end
|
|
|
end
|
|
|
dynamic $telefon['print']
|
|
|
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------------------------------------------
|
|
|
|
|
|
!!-----------------------------------start of sms------------------------------------------
|
|
|
-! SMS
|
|
|
-! telefon['SMSCount'] = number of SMS messages
|
|
|
-! telefon['UnreadSMS'] = number of unread SMS messages
|
|
|
-! $SMSContact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
|
|
|
-! $SMSMessage[] = text for the sms message
|
|
|
-! $SMSTime[] = date time the message was received
|
|
|
-! $SMSPicture1[] = url for first picture sent as part of the message
|
|
|
-! $SMSPicture2[] = url for second picture sent as part of the message
|
|
|
-! $SMSPicture3[] = url for third picture sent as part of the message
|
|
|
-! $SMSPicture4[] = url for fourth picture sent as part of the message
|
|
|
-! SMSMessageRead[] = 0 unread, 1 read
|
|
|
+!{
|
|
|
+ SMS
|
|
|
+ telefon['SMSCount'] = number of SMS messages
|
|
|
+ telefon['UnreadSMS'] = number of unread SMS messages
|
|
|
+ $SMSContact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
|
|
|
+ $SMSMessage[] = text for the sms message
|
|
|
+ $SMSTime[] = date time the message was received
|
|
|
+ $SMSPicture1[] = url for first picture sent as part of the message
|
|
|
+ $SMSPicture2[] = url for second picture sent as part of the message
|
|
|
+ $SMSPicture3[] = url for third picture sent as part of the message
|
|
|
+ $SMSPicture4[] = url for fourth picture sent as part of the message
|
|
|
+ SMSMessageRead[] = 0 unread, 1 read
|
|
|
+}
|
|
|
|
|
|
if $ARGS[0] = 'Phone_sms':
|
|
|
$telefon['body'] = '
|
|
|
@@ -1648,16 +1548,17 @@ if $ARGS[0] = 'Phone_sms':
|
|
|
killvar 'i'
|
|
|
end &! --- Phone_sms ---
|
|
|
|
|
|
+!{
|
|
|
+ New SMS Message
|
|
|
+ If NPC is not in the contacts list of the phone it will be displayed as unknown until the contact has been added
|
|
|
+ $ARGS[1] = NPC code for contact. ('A129', 'A29', 'B13', 'C14')
|
|
|
+ $ARGS[2] = Message text to be displayed
|
|
|
+ $ARGS[3] = path to a picture to be displayed (optional)
|
|
|
+ $ARGS[4] = path to a picture to be displayed (optional)
|
|
|
+ $ARGS[5] = path to a picture to be displayed (optional)
|
|
|
+ $ARGS[6] = path to a picture to be displayed (optional)
|
|
|
+}
|
|
|
if $ARGS[0] = 'add_sms':
|
|
|
- ! New SMS Message
|
|
|
- ! If NPC is not in the contacts list of the phone it will be displayed as unknown until the contact has been added
|
|
|
- ! $ARGS[1] = NPC code for contact. ('A129', 'A29', 'B13', 'C14')
|
|
|
- ! $ARGS[2] = Message text to be displayed
|
|
|
- ! $ARGS[3] = path to a picture to be displayed (optional)
|
|
|
- ! $ARGS[4] = path to a picture to be displayed (optional)
|
|
|
- ! $ARGS[5] = path to a picture to be displayed (optional)
|
|
|
- ! $ARGS[6] = path to a picture to be displayed (optional)
|
|
|
-
|
|
|
$SMSContact[telefon['SMSCount']] = $ARGS[1]
|
|
|
$SMSMessage[telefon['SMSCount']] = $ARGS[2]
|
|
|
$SMSTime[telefon['SMSCount']] = '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
|
|
|
@@ -1686,13 +1587,13 @@ end
|
|
|
|
|
|
if $ARGS[0] = 'show_sms':
|
|
|
telefon['SMSid'] = ARGS[1]
|
|
|
- !set to read and update the number of unread messages
|
|
|
+ !!set to read and update the number of unread messages
|
|
|
if SMSMessageRead[telefon['SMSid']] = 0:
|
|
|
telefon['UnreadSMS'] -= 1
|
|
|
SMSMessageRead[telefon['SMSid']] = 1
|
|
|
end
|
|
|
|
|
|
- ! Get image and name if in phone contacts otherwise show unknown
|
|
|
+ !! Get image and name if in phone contacts otherwise show unknown
|
|
|
telefon['contactid'] = arrpos('$contact',$SMSContact[telefon['SMSid']])
|
|
|
if telefon['contactid'] = -1:
|
|
|
$telefonCon['NPCName'] = ''
|
|
|
@@ -1702,11 +1603,11 @@ if $ARGS[0] = 'show_sms':
|
|
|
$telefonCon['Icon'] = $contactIcon[telefon['contactid']]
|
|
|
end
|
|
|
|
|
|
- !If file extension is not given, .png is assumed
|
|
|
+ !!If file extension is not given, .png is assumed
|
|
|
if instr($telefonCon['Icon'],'.') = 0:
|
|
|
$telefonCon['Icon'] += '.png'
|
|
|
end
|
|
|
- !If path is not given, default phone icon path is assumed
|
|
|
+ !!If path is not given, default phone icon path is assumed
|
|
|
if instr($telefonCon['Icon'],'/') = 0:
|
|
|
$telefonCon['Icon'] = 'images/system/phone/icons/' + $telefonCon['Icon']
|
|
|
end
|
|
|
@@ -1735,28 +1636,30 @@ if $ARGS[0] = 'show_sms':
|
|
|
dynamic $telefon['print']
|
|
|
end
|
|
|
|
|
|
-! This is the formatting function for a row in the SMS message table. SHould be run as a DYNEVAL()
|
|
|
+!! This is the formatting function for a row in the SMS message table. SHould be run as a DYNEVAL()
|
|
|
+!{
|
|
|
+ SMS Row in messages table
|
|
|
+ ARGS[0] = message id
|
|
|
+ $ARGS[1] = NPC icon
|
|
|
+ $ARGS[2] = NPC Nickname
|
|
|
+ $ARGS[3] = Time received
|
|
|
+ $ARGS[4] = 0 unread, 1 read
|
|
|
+}
|
|
|
$telefon['SMS'] = {
|
|
|
- ! SMS Row in messages table
|
|
|
- ! ARGS[0] = message id
|
|
|
- ! $ARGS[1] = NPC icon
|
|
|
- ! $ARGS[2] = NPC Nickname
|
|
|
- ! $ARGS[3] = Time received
|
|
|
- ! $ARGS[4] = 0 unread, 1 read
|
|
|
telefon['SMSid'] = ARGS[0]
|
|
|
$telefon['ContactIcon'] = $ARGS[1]
|
|
|
$telefon['ContactNickName'] = $ARGS[2]
|
|
|
$telefon['SMSTime'] = $ARGS[3]
|
|
|
telefon['SMSStatus'] = ARGS[4]
|
|
|
- !If file extension is not given, .png is assumed
|
|
|
+ !!If file extension is not given, .png is assumed
|
|
|
if instr($telefon['ContactIcon'],'.') = 0:
|
|
|
$telefon['ContactIcon'] += '.png'
|
|
|
end
|
|
|
- !If path is not given, default phone icon path is assumed
|
|
|
+ !!If path is not given, default phone icon path is assumed
|
|
|
if instr($telefon['ContactIcon'],'/') = 0:
|
|
|
$telefon['ContactIcon'] = 'images/system/phone/icons/' + $telefon['ContactIcon']
|
|
|
end
|
|
|
- ! unread will be bold
|
|
|
+ !! unread will be bold
|
|
|
if telefon['SMSStatus'] = 0:
|
|
|
$telefon['SMSstyle1'] = '<b>'
|
|
|
$telefon['SMSstyle2'] = '</b>'
|
|
|
@@ -1846,8 +1749,8 @@ if $ARGS[0] = 'fin':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'setup':
|
|
|
- ! array $$phonetheme_name is built.
|
|
|
- ! might need a tweak to have it rebuilt when new themes are available.
|
|
|
+ !! array $$phonetheme_name is built.
|
|
|
+ !! might need a tweak to have it rebuilt when new themes are available.
|
|
|
|
|
|
$phonetheme_name[0] = 'Custom_Standard'
|
|
|
$phonetheme_name[1] = 'Bimbo'
|
