# telefon if $ARGS[0] = 'start': gs 'stat' gs 'telefon','phone_call_receive' if npc_QW['A192'] = 1 and week = 6 and pcs_apprnc > 80: gt 'nastja', 'pos4' elseif npc_QW['A192'] = 2 and week ! 6 and zenit ! 0 and nastjaday ! daystart: gt 'nastja', 'pos13' elseif hour >= 8 and hour <= 20 and npc_QW['A192'] = 2 and week = 6 and pcs_apprnc > 80 and nastjaday ! daystart: gt 'nastja', 'pos12' elseif npc_QW['A192'] = 5 and week = 6 and nastjaday ! daystart: gt 'nastja', 'pos22' elseif npc_QW['A192'] = 6 and nastjaday ! daystart: gt 'nastja', 'pos31' else $callerid = 'icon_nastja' gs 'telefon','phone_call_reject' end end if $ARGS[0] = 'mobilaraz': cls cla gs'din_bad' $caller = '<<$telsob>>' gs 'telefon','phone_balance' gs 'telefon','phone_call_receive' willAgree = (rand(0, 10) > 3) '"Yes, I''m listening," says a voice from the speaker.' if month > 5 and temper > 20 and sunWeather = 1: act 'Invite to the park': cla '"Let''s go for a walk in the park."' if willAgree: '<<$telsob>>, "See you in the park in an hour."' act 'Go':gt 'parksvid' else gs 'telefon','telotkaz',$telsob end end end act 'Invite to a movie': cla '"Want to go see a movie?"' if willAgree: '<<$telsob>>, "See you at the movie theater in an hour."' act 'Go':gt 'kinosvid' else gs 'telefon','telotkaz',$telsob end end act 'Invite to the pool hall': cla '"Let''s play pool."' if willAgree: '<<$telsob>>, "See you at the pool hall in an hour."' act 'Go':gt 'billsvid' else gs 'telefon','telotkaz',$telsob end end act 'Invite to the cafe': cla '"Let''s go to the cafe."' if willAgree: '<<$telsob>>, "See you at the cafe in an hour."' act 'Go':gt 'kafesvid' else gs 'telefon','telotkaz',$telsob end end act 'Invite to the casino': cla '"Let''s go to the casino."' if willAgree: '<<$telsob>>, "See you in the casino in an hour."' act 'Go':gt 'kazinosvid' else gs 'telefon','telotkaz',$telsob end end act 'Hangup':gt 'telefon', 'fin' end if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1: cls cla gs'din_bad' lover_number = ARGS[1] $caller = '<<$loverdesc[lover_number]>>' $telsob = $caller $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg' gs 'telefon','phone_balance' gs 'telefon','phone_call_receive' willAgree = (rand(0, 10) > 3) '"Yes, I''m listening," says a voice from the speaker.' if month > 5 and temper > 20 and sunWeather = 1: act 'Invite to the park': cla '"Let''s go for a walk in the park."' if willAgree: '<<$telsob>>, "See you in the park in an hour."' act 'Go': gt 'parksvid' else gs 'telefon','telotkaz',$telsob end end end act 'Invite to a movie': cla '"Want to go see a movie?"' if willAgree: '<<$telsob>>, "See you at the movie theater in an hour."' act 'Go': gt 'kinosvid' else gs 'telefon','telotkaz',$telsob end end if $home_town = 'city': act 'Invite to the pool hall': cla '"Let''s play pool."' if willAgree: '<<$telsob>>, "See you at the pool hall in an hour."' act 'Go': gt 'billsvid' else gs 'telefon','telotkaz',$telsob end end end act 'Invite to the cafe': cla '"Let''s go to the cafe."' if willAgree: '<<$telsob>>, "See you at the cafe in an hour."' act 'Go': gt 'kafesvid' else gs 'telefon','telotkaz',$telsob end end act 'Invite to the casino': cla '"Let''s go to the casino."' if willAgree: '<<$telsob>>, "See you in the casino in an hour."' act 'Go': gt 'kazinosvid' else gs 'telefon','telotkaz',$telsob end end act 'I think we should break up...': cla 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.' gs 'lover', 'remove', lover_number act 'Hangup':gt 'telefon', 'fin' end act 'Hangup':gt 'telefon', 'fin' end if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 0: cls cla gs'din_bad' lover_number = ARGS[1] $caller = '<<$loverdesc[lover_number]>>' $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg' gs 'telefon','phone_balance' gs 'telefon','phone_call_receive' willAgree = (rand(0, 10) > 3) '"Yes, I''m listening," says a voice from the speaker.' if month > 5 and temper > 20 and sunWeather = 1: act 'Invite to the park': cla '"Let''s go for a walk in the park."' if willAgree: '<<$loverdesc[lover_number]>>, "See you in the park in an hour."' act 'Go':gt 'svidboy', 'parksvid' else gs 'telefon','telotkaz',$loverdesc[lover_number] end end end act 'Invite to a movie': cla '"Want to go see a movie?"' if willAgree: '<<$loverdesc[lover_number]>>, "See you at the movie theater in an hour."' act 'Go':gt 'svidboy', 'kinosvid' else gs 'telefon','telotkaz',$loverdesc[lover_number] end end if $home_town = 'city': act 'Invite to the pool hall': cla '"Let''s play pool."' if willAgree: '<<$loverdesc[lover_number]>>, "See you at the pool hall in an hour."' act 'Go':gt 'svidboy', 'billsvid' else gs 'telefon','telotkaz',$loverdesc[lover_number] end end end act 'Invite to the cafe': cla '"Let''s go to the cafe."' if willAgree: '<<$loverdesc[lover_number]>>, "See you at the cafe in an hour."' act 'Go':gt 'svidboy', 'kafesvid' else gs 'telefon','telotkaz',$loverdesc[lover_number] end end act 'I think we should break up...': cla 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.' gs 'lover', 'remove', lover_number act 'Hangup':gt 'telefon', 'fin' end act 'Hangup':gt 'telefon', 'fin' end if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0: cla clr lover_number = ARGS[1] ring = 0 lover_days = daystart - loverday[lover_number] gs 'stat' gs 'telefon','phone_call_receive' svetrand = rand(0, 5) if svetrand = 0:$sveta = 'cutie' if svetrand = 1:$sveta = 'honey' if svetrand = 2:$sveta = 'sweetie' if svetrand = 3:$sveta = 'baby' if svetrand = 4:$sveta = 'hot stuff' if svetrand = 5:$sveta = '<<$pcs_nickname>>' 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?' act 'Reply': cla '"Pretty good, you?"' '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"' if pregtime <= lover_days and knowpreg = 1 and pregtalk = 0: act 'Tell him he''s going to be a dad': cla pregtalk = 1 '"Honey, I''m pregnant with your child."' if haraklover[lover_number] = 0: if loverrelation[lover_number] >= 90: loverlove[lover_number] = 1 '<<$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.' act 'Hang up':gt 'telefon', 'fin' act 'Meet tonight': cla svidanie[lover_number] = 1 '"How about this evening?"' '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"' act 'Pick a time': cla meetday[lover_number] = daystart meethour[lover_number] = input ("When do you want to be picked up? It is now <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. [Enter the hour only 0 - 20]") if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20 '"How about <>:00?"' '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <>:00."' act 'Hang up':gt 'telefon', 'fin' end end elseif loverrelation[lover_number] < 90: money += 20000 '<<$loverdesc[lover_number]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.' act 'Hang up':gt 'telefon', 'fin' end elseif haraklover[lover_number] = 1: money += 20000 '<<$loverdesc[lover_number]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.' act 'Hang up':gt 'telefon', 'fin' elseif haraklover[lover_number] = 2: pregtalk = 0 '<<$loverdesc[lover_number]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.' gs 'lover', 'remove', lover_number act 'Hang up':gt 'telefon', 'fin' end end elseif pregtime > lover_days and knowpreg = 1 and pregtalk = 0: act 'Honey, you will soon become a dad': cla loverrelation[lover_number] = 0 '"Honey, I''m pregnant with your child."' '<<$loverdesc[lover_number]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."' act 'Hang up.':gt 'telefon', 'fin' end elseif week > 1 and week < 5 and workKafe = 1: act 'Sorry, I''m working today': cla '"Sorry, I''m working today."' '<<$loverdesc[lover_number]>>, "Okay, I''ll call tomorrow."' act 'Hang up':gt 'telefon', 'fin' end end act 'Tonight': cla loverrelation[lover_number] += 1 svidanie[lover_number] = 1 meetday[lover_number] = daystart '"How about this evening?"' '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"' act 'Pick a time': cla meethour[lover_number] = input ("When do you want to be picked up. It is now <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. [Enter the hour only 0 - 20]") if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20 '"How about <>:00?."' '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <>:00."' act 'Hang up':gt 'telefon', 'fin' end end act 'Maybe tomorrow': cla loverrelation[lover_number] -= 1 '"I''m busy today. Call tomorrow."' if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Suck my dick.' & gs 'lover', 'remove', lover_number if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.' act 'Hang up': gt 'telefon', 'fin' end act 'I think we should break up...': cla 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.' gs 'lover', 'remove', lover_number act 'Hang up': gt 'telefon', 'fin' end end act 'Hang up (end relationship)': cla gs 'lover', 'remove', lover_number gt 'telefon', 'fin' end end if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 1: cla clr lover_number = ARGS[1] ring = 0 lover_days = daystart - loverday[lover_number] gs 'stat' gs 'telefon','phone_call_receive' svetrand = rand(0, 5) if svetrand = 0:$sveta = 'cutie' if svetrand = 1:$sveta = 'honey' if svetrand = 2:$sveta = 'sweetie' if svetrand = 3:$sveta = 'baby' if svetrand = 4:$sveta = 'hot stuff' if svetrand = 5:$sveta = '<<$pcs_nickname>>' 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?' act 'Reply': cla '"Pretty good, you?"' '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"' act 'Tonight': cla loverrelation[lover_number] += 1 svidanie[lover_number] = 1 meetday[lover_number] = daystart '"How about this evening?"' '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"' act 'Pick a time': cla meethour[lover_number] = input ("When do you want to be picked up. It is now <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. [Enter the hour only 0 - 20]") if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20 '"How about <>:00?."' '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <>:00."' act 'Hang up':gt 'telefon', 'fin' end end act 'Maybe tomorrow': cla loverrelation[lover_number] -= 1 '"I''m busy today. Call tomorrow."' if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Fuck off.' & gs 'lover', 'remove', lover_number if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.' act 'Hang up': gt 'telefon', 'fin' end act 'I think we should break up...': cla 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.' gs 'lover', 'remove', lover_number act 'Hang up': gt 'telefon', 'fin' end end act 'Hang up (end relationship)': cla gs 'lover', 'remove', lover_number gt 'telefon', 'fin' end end if $ARGS[0] = 'phone_ring': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
<<$caller>> calling
' pl'

' pl'' pl'' pl'' pl'' ! pl'
' end &! --- phone_ring --- if $ARGS[0] = 'phone_call_receive': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Talking to <<$caller>>
' pl'

' end &! --- phone_call_receive --- if $ARGS[0] = 'phone_balance': if balans < 4: clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Not enough credit on your account
' pl'

' pl'
' wait 3500 cla gt $loc, $metka elseif balans >= 4: balans -= 4 end end &! --- phone_balance --- if $ARGS[0] = 'Phone_call': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Calling <<$npc_nickname[''A29'']>>
' pl'

' pl'
' wait 1500 minut += 1 $callerid = 'images/system/phone/icons/icon_npc1.png' gs 'telefon', 'phone_balance' $callerid = 'icon_npc1' gs 'telefon', 'phone_call_reject' end &! --- Phone_call --- if $ARGS[0] = 'phone_call_reject': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Calling....
' pl'

' pl'
' end &! --- phone_call_reject --- if $ARGS[0] = 'Phone_megafon': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
MegaFon
' pl'

' pl'
The balance in the account:' pl'
<> ₽.
' pl'
' end &! --- Phone_megafon --- if $ARGS[0] = 'Phone_contactlist': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl '
Contacts
' pl '

' if StoryLine = 1:pl'
<<$npc_nickname[''A29'']>>Call
' if hour >= 8 and hour <= 19: if telalla > 0: pl'
Call
' end if telmasha > 0: pl'
Call
' end if telkat > 0: pl'
Call
' end !! iterating all lovers lover_number = 0 :loverloop if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0: pl'
Call
' end lover_number += 1 if lover_number < arrsize('pcs_lovers'): jump 'loverloop' killvar 'lover_number' else if telalla > 0: pl'
Call
' end if telmasha > 0: pl'
Call
' end if telkat > 0: pl'
Call
' end !! iterating all lovers lover_number = 0 :loverunavailableloop if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0: pl'
Call
' end lover_number += 1 if lover_number < arrsize('pcs_lovers'): jump 'loverunavailableloop' killvar 'lover_number' end if npc_QW['A192'] > 0: pl'
Call
' end dummyas = arrsize('$contact') :din_bad_as dummyas -= 1 if dummyas >= 0: pl '<<$contact[dummyas]>>' jump 'din_bad_as' end killvar 'dummyas' if arrsize('$contact')>0:pl'
Edit Contacts
' pl'
' end &! --- Phone_contactlist --- if $ARGS[0] = 'Edit_Custom_list': clr dummyas = arrsize('$contact') :din_bad_as1 dummyas -= 1 if dummyas >= 0: $dummyedit = $contact[dummyas] $dummyedit1 = dyneval('$result = ''Remove'' ') $dummyedit2 = $replace($dummyedit,'Call',$dummyedit1) pl $dummyedit2 jump 'din_bad_as1' end killvar 'dummyas' killvar 'dummyedit' killvar 'dummyedit1' killvar 'dummyedit2' pl'
' end &! --- Edit_Custom_list --- if $ARGS[0] = 'Phone_notebook': clr gs 'housing', 'rent' pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Planner
' pl'
' pl'
<>-<<$month>>-<>, <<$week[week]>>
' rent1 = -1 rent4 = -1 if home_owned[1] > 0 and ArendHouseSL > 0:rent1 = ArendHouseSL if home_owned[4] > 0 and ArendHouseSL4 > 0:rent4 = ArendHouseSL4 preg1 = pregtime d1 = day w1 = week m1 = month y1 = year i = 0 $list = '
' :pnotebook daynum = daystart+i $calendarday = '' if m1 = 1 and d1 >= 1 and d1 <= 8: $calendarday += $list + 'New Year holidays' if d1 = 1:$calendarday += ', New Year' if d1 = 7:$calendarday += ', Christmas' end if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day' if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day' if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day' if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday' if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day' if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day' if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday' if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day' if storyline = 1 and SchoolAtestat = 0: if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.' if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.' if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.' if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.' if school_year = 2003 and y1 = 2020 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!' if school_year = 2004 and y1 = 2021 and m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.' if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.' if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.' if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.' end if daynum >= lastmens+28 and daynum < lastmens+31:$calendarday += $list + 'Menstruation!' if daynum >= lastmens+12 and daynum < lastmens+14:$calendarday += $list + 'Ovulation!' if preg1 = 280:$calendarday += $list + 'Birthing day!' if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. (9:00 - 17:00)' if w1 < 5 and workFabrika = 1: $calendarday += $list + 'Working as a seamstress. ' if age < 18:$calendarday += '(16:00 - 20:00)' else $calendarday += '(8:00 - 16:00)' end if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as nurse. (8:00 - 16:00)' if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as masseuse. (9:00 - 17:00)' !! if maidqw > 0:$calendarday += '
Working as maid. (16:00 - 19:00)' if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <<$porndesc[pfilmday[i]]>>' if d1 = 25 and (PersSecWork = 1 or workKafe = 1 or workhosp = 1 or worksalon = 1 or tanwork = 1 or workSec = 1 or workFabrika = 1):$calendarday += $list + 'Pay day!' if d1 = nyp_day and m1 = 12 and SchoolAtestat = 0 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!' if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum: if sisboytrioQW = 1: $calendarday += $list + 'Threesome with Anja and Roma at 18:00' else $calendarday += $list + 'Anja having sex with Roma at 18:00' end end if sisboyparty = 2 and sisboyparty_day+1 = daynum:$calendarday += $list + 'Party at Rex, gathering before 18:00 at Community Center' if rent1 = 0:$calendarday += $list + 'Rent on city apartment expires!' if rent4 = 0:$calendarday += $list + 'Rent on Pushkin apartment expires!' if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!' if kid > 0: k1 = kid :kiddieloop if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <>. baby!' if k1 > 1:k1 -= 1 & jump 'kiddieloop' end if $calendarday ! '': p '<<$monthName[m1]>> <>, <<$week[w1]>>:' pl $calendarday end if i < 14: preg1 += 1 rent1 -= 1 rent4 -= 1 i += 1 w1 += 1 if w1 > 7:w1 = 1 d1 += 1 if monthsend[m1] < d1: m1 += 1 & d1 = 1 if m1 = 13: m1 = 1 & y1 += 1 end jump 'pnotebook' end killvar 'calendarday' killvar 'rent1' killvar 'rent4' killvar 'preg1' killvar 'd1' killvar 'w1' killvar 'm1' killvar 'y1' killvar 'daynum' pl'
' end &! --- Phone_notebook --- !!----------------------------------------Camera------------------------------------------------- !!For setting the total numbers of selfies if $ARGS[0] = 'Phone_selfie_totals': bathroom_clotot = 20 bathroom_undtot = 20 bathroom_nudtot = 20 bedroom_clotot = 27 bedroom_undtot = 20 bedroom_nudtot = 20 kitchen_clotot = 16 kitchen_undtot = 11 kitchen_nudtot = 20 livingroom_clotot = 17 livingroom_undtot = 21 livingroom_nudtot = 21 changingroom_clotot = 19 changingroom_undtot = 25 changingroom_nudtot = 21 park_clotot = 28 park_undtot = 0 park_nudtot = 18 lockeroom_clotot = 21 lockeroom_undtot = 16 lockeroom_nudtot = 14 beach_swim = 21 beach_nudtot = 22 end !!for viewing photos on your phone if $ARGS[0] = 'Phone_pictures': gs 'telefon', 'Phone_selfie_totals' clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Gallery
' pl'

' !!default images that are used in any location not set if phone_selfie[1] = 1:pl'Selfie number1' if phone_selfie[2] = 1:pl'Selfie number2' !!loop for locations where selfies can be taken starting with bathroom $phone_loc = 'bathroom' :phoneloc_loop !!Loop for clothed selfies, dynamics set variables as mixing them in loop instructions is bad temp_clocnt = 1 dynamic 'temp_loop = <<$phone_loc>>_cloloop' dynamic 'temp_total = <<$phone_loc>>_clotot' :temp_loop !!setting value to unmixed variable so it can be checked in the if below dyneval '$phone_locval = <<$phone_loc>>_closelfie[<>]' if $phone_locval = 1:pl 'Clothed <<$phone_loc>> selfie #<>' temp_clocnt += 1 if temp_clocnt <= temp_total: jump'temp_loop' !!loop for underwwear selfies temp_undcnt = 1 dynamic 'temp_loop1 = <<$phone_loc>>_undloop' dynamic 'temp_total = <<$phone_loc>>_undtot' :temp_loop1 dyneval '$phone_locval = <<$phone_loc>>_undselfie[<>]' if $phone_locval = 1:pl'Underwear <<$phone_loc>> selfie #<>' temp_undcnt += 1 if temp_undcnt <= temp_total: jump'temp_loop1' !!loop for nude selfies temp_nudcnt = 1 dynamic 'temp_loop2 = <<$phone_loc>>_nudloop' dynamic 'temp_total = <<$phone_loc>>_nudtot' :temp_loop2 dyneval '$phone_locval = <<$phone_loc>>_nudselfie[<>]' if $phone_locval = 1:pl'Nude <<$phone_loc>> selfie #<>' temp_nudcnt += 1 if temp_nudcnt <= temp_total: jump'temp_loop2' !!Changes to location so all get processed if $phone_loc = 'bathroom': $phone_loc = 'bedroom' jump'phoneloc_loop' elseif $phone_loc = 'bedroom': $phone_loc = 'kitchen' jump'phoneloc_loop' elseif $phone_loc = 'kitchen': $phone_loc = 'livingroom' jump'phoneloc_loop' elseif $phone_loc = 'livingroom': $phone_loc = 'changingroom' jump'phoneloc_loop' elseif $phone_loc = 'changingroom': $phone_loc = 'park' jump'phoneloc_loop' elseif $phone_loc = 'park': $phone_loc = 'lockeroom' jump'phoneloc_loop' end !!variant for beach selfies using swimwear and nude only beach_swimcnt = 1 :beach_swimloop if beach_swimselfie[beach_swimcnt] = 1:pl'Clothed bedroom selfie #<>' beach_swimcnt += 1 if beach_swimcnt <= beach_swimtot: jump'beach_swimloop' beach_nudcnt = 1 :beach_nudloop if beach_nudselfie[beach_nudcnt] = 1:pl'Nude beach selfie #<>' beach_nudcnt += 1 if beach_nudcnt <= beach_nudtot: jump'beach_nudloop' *nl pl'
' end !!picking the selfie image when taking photos, this sets the location variable 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' else phone_rand = RAND(1,2) phone_selfie[phone_rand] = 1 gs 'stat' view 'images/system/phone/selfie/phone_selfie<>.jpg' end !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart) !view 'images/system/phone/phone_selfie<>.jpg' 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[<>] = 1' gs 'stat' view 'images/pc/selfies/<<$phone_loc>>/clothed/<>.jpg' elseif $pantyworntype ! 'none': dynamic 'temp_undtot = <<$phone_loc>>_undtot' phone_rand = rand(1,temp_undtot) dynamic '<<$phone_loc>>_undselfie[<>] = 1' gs 'stat' view 'images/pc/selfies/<<$phone_loc>>/underwear/<>.jpg' else dynamic 'temp_nudtot = <<$phone_loc>>_nudtot' phone_rand = rand(1,temp_nudtot) dynamic '<<$phone_loc>>_nudselfie[<>] = 1' gs 'stat' view 'images/pc/selfies/<<$phone_loc>>/nude/<>.jpg' end end !!for taking photos - only selfies for now if $ARGS[0] = 'Phone_camera': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Camera
' pl'

' pl'Take a selfie' pl'
' end !!-----------------------------------end of Camera------------------------------------------ if $ARGS[0] = 'Phone_wheather': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Weather
' pl'

' pl'
Temperature:
' pl'
<<$temperature>>. <<$osadki>>
' pl'
P.O.P. today is <>%
' pl'
' end &! --- Phone_wheather --- if $ARGS[0] = 'Phone_calendar': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Calendar
' pl'

' pl'
Today:
' pl'
<<$week[week]>>, <> <<$month>> <>
' pl'
' end &! --- Phone_calendar --- if $ARGS[0] = 'Phone_media': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
Media
' pl'
' pl'
This option is not active
' pl'
' end &! --- Phone_media --- if $ARGS[0] = 'Phone_sms': clr pl '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl '
' pl'
SMS
' pl'
' pl'
This option is not active
' pl'
' end &! --- Phone_sms --- if $ARGS[0] = 'Phone_menu': clr pl'
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
' pl'
' pl'
' pl'
' pl'
' pl''+iif(menu_off = 1, '
', '
')+'' pl'
' end &! --- Phone_menu --- if $ARGS[0] = 'Add_contact': $dummy = INPUT('Enter a note:') $contact[arrsize('$contact')] = '
<<$dummy>>Call
' killvar '$dummy' end &! --- Add_contact --- if $ARGS[0] = 'telotkaz': cla minut += 10 '<<$ARGS[1]>>, "Sorry, I''m busy right now, maybe next time."' act 'Hangup':gt 'telefon', 'fin' end &! --- telotkaz --- if $ARGS[0] = 'fin': killvar 'lover_number' cla gt $loc, $metka end if $ARGS[0] = 'setup': ! 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' $phonetheme_name[2] = 'Custom_Aluminus' $phonetheme_name[3] = 'Custom_Bottlecapped' $phonetheme_name[4] = 'Custom_Galactic' $phonetheme_name[5] = 'Custom_Vectored' $phonetheme_name[6] = 'Custom_Veneer' $phonetheme_name[7] = 'Custom_Voidwalker' $phonetheme_name[8] = 'Custom_Voidwalker Red' $phonetheme_name[9] = 'Custom_Voidwalker Toxic' $phonetheme_name[10] = 'Gopnik' $phonetheme_name[11] = 'Sports' $phonetheme_name[12] = 'Succubus' $phonetheme_name[13] = 'Woodshop' phonetheme[0] = 1 end --- telefon ---------------------------------