# telefon !! Draw screens for mobile phone. !! !! The base storage for Contacts is controlled by the Array "$contact". This array is a list of NPC identifiers !! telling us which ones are in your contact list. There are several other ancillary arrays that support the functions !! of a contact. Each of these has matching indexes to the $contact array. These are mostly used internally, but a !! writer can make use of them if they need to. !! !! ContactList arrays: !! $contact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') !! $contactIcon[] = Icon for the contact to use. If path is left off, standard phone icon folder is used. if file extension is left off, '.png' is used !! $contactOCode[] = Code to execute if call is placed to this contact !! $contactOSche[] = If statement code to determine schedule for outbound calls !! $contactICode[] = Code to execute for Incoming call !! $contactISche[] = if statement code for schedule of incoming calls !! contactAnon[] = 0 if contact number is known to Sveta, 1 for Anonymous !! contactToday[] = Calls from this contact today !! contactWeek[] = Calls from this contact this week !! contactLastCall[] = last time this Contact called ! !! Add a contact with AddContact !! gs 'telefon', 'AddContact', , , , , , , !! Example, to Add Mother: !! gs 'telefon', 'AddContact', 'A29', 'icon_npc1', "gs 'telefon', 'Phone_call'", "hour >= 8 and hour <= 20", "gs 'telefon', 'lover'", "hour >= 8 and hour <= 20", 0 !! !! Remove a contact with DeleteContact !! gs 'telefon', 'DeleteContact', !! Example, to delete Mom: !! gs 'telefon', 'DeleteContact', 'A29' !! !! Header for Phone Screen. Keeps consistent and in one place $telefon['header'] = { if telefon['UnreadSMS'] > 0: $telefon['SMSstatus'] = 'You have <> unread message(s)' else $telefon['SMSstatus'] = '' end $result = '
<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>
<<$telefon[''SMSstatus'']>>

' } !! Footer for phone screen. Body should be between these two $telefon['footer'] = { if $telefon['backButton'] = '': $telefon['backButton'] = 'gs ''telefon'', ''Phone_menu''' $result = '

Put Phone Away.
' $telefon['backButton'] = 'gs ''telefon'', ''Phone_menu''' } !! ''''This is how we print the screen on to the Additional Dscription window $telefon['print'] = { clr pl func('cleanHTML',dyneval($telefon['header']) + $telefon['body'] + dyneval($telefon['footer'])) } !! This is the formatting function for a row in the Contact List. SHould be run as a DYNEVAL() $telefon['contact'] = { !! Contact Row in phone contact list !! $ARGS[0] = NPC icon !! $ARGS[1] = NPC Nickname !! $ARGS[2] = Code to execute for making a Call !! $ARGS[3] = if statement for determining if NPC is avaiable $telefon['ContactIcon'] = $ARGS[0] $telefon['ContactNickName'] = $ARGS[1] $telefon['ContactCallCode'] = $ARGS[2] $telefon['ContactCallSchedule'] = $ARGS[3] !!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 instr($telefon['ContactIcon'],'/') = 0: $telefon['ContactIcon'] = 'images/system/phone/icons/' + $telefon['ContactIcon'] end !!If Contact is not in available timeframe, we disable contact calling if dyneval('result = iif(<<$telefon["ContactCallSchedule"]>>,1,0)') = 0: $telefon['ContactCallCode'] = "gs 'telefon', 'phone_call_reject'" end $result = ' <<$telefon[''ContactNickName'']>> Call ' } if $ARGS[0] = 'AddContact': !! $ARGS[1] = NPC Array identifier !! $ARGS[2] = Icon !! $ARGS[3] = Code to execute for Call out !! $ARGS[4] = If statement code to determine schedule for outbound calls !! $ARGS[5] = Code to execute for Incoming call !! $ARGS[6] = if statement code for schedule of incoming calls !! ARGS[7] = Anonymous? 0 if not, 1 if yes $telefonCon['NPC'] = $ARGS[1] $telefonCon['Icon'] = $ARGS[2] $telefonCon['OutCode'] = $ARGS[3] $telefonCon['OutSched'] = $ARGS[4] $telefonCon['InCode'] = $ARGS[5] $telefonCon['InSched'] = $ARGS[6] telefonCon['Anonymous'] = ARGS[7] telefonCon['ContactListID'] = arrpos('$contact',$telefonCon['NPC']) if telefonCon['ContactListID'] = -1: telefonCon['ContactListID'] = arrsize('$contact') $contact[telefonCon['ContactListID']] = $telefonCon['NPC'] end $contactIcon[telefonCon['ContactListID']] = $telefonCon['Icon'] $contactOCode[telefonCon['ContactListID']] = $telefonCon['OutCode'] $contactOSche[telefonCon['ContactListID']] = $telefonCon['OutSched'] $contactICode[telefonCon['ContactListID']] = $telefonCon['InCode'] $contactISche[telefonCon['ContactListID']] = $telefonCon['InSched'] contactAnon[telefonCon['ContactListID']] = telefonCon['Anonymous'] killvar 'telefonCon' killvar '$telefonCon' end &! --- AddContact --- if $ARGS[0] = 'DeleteContact': !! $ARGS[1] = NPC Array identifier $telefonCon['NPC'] = $ARGS[1] telefonCon['ContactListID'] = arrpos('$contact',$telefonCon['NPC']) if telefonCon['ContactListID'] > -1: killvar '$contact', telefonCon['ContactListID'] killvar '$contactIcon', telefonCon['ContactListID'] killvar '$contactCode', telefonCon['ContactListID'] end killvar 'telefonCon' killvar '$telefonCon' end &! --- AddContact --- if $ARGS[0] = 'ContactList': $telefon['body'] = ' Contacts


' !!iterating all Contacts i=0 :contactloop2 if i < arrsize('$contact'): if contactAnon[i] = 0: $telefon['body'] += dyneval($telefon['contact'],$contactIcon[i],$npc_nickname[$contact[i]],$contactOCode[i],$contactOSche[i]) end i += 1 jump 'contactloop2' end !! Oddball Contacts if telalla > 0: $telefon['body'] += dyneval($telefon['contact'],'icon_ira1','Alla',"$telsob = 'Alla' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20") end if telmasha > 0: $telefon['body'] += dyneval($telefon['contact'],'icon_masha','Masha',"$telsob = 'Masha' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20") end !! iterating all lovers lover_number = 0 :loverloop2 if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0: $telefon['body'] += dyneval($telefon['contact'],'icon_bf'+lover_picture[lover_number],$loverdesc[lover_number],"lover_number = <> & gt 'telefon', 'callingTheLover', <>","hour > 6 and hour < 20") end lover_number += 1 if lover_number < arrsize('pcs_lovers'): jump 'loverloop2' $telefon['body'] += '

' dynamic $telefon['print'] killvar 'i' killvar 'lover_number' end &! --- ContactList --- !! Reset Contact Call Stats Daily and Weekly !! !! ARGS[1] = New Week if 1, 0 if same week if $ARGS[0] = 'DailyStatRefresh': i=0 :DailyStatRefLoop if i < arrsize('$contact'): contactToday[i] = 0 if ARGS[1] = 1: contactWeek[i] = 0 end i += 1 jump 'DailyStatRefLoop' end killvar 'i' end !! Determine if any Incoming calls should happen !! !! ARGS[1] = Previous totminut !! ARGS[2] = Current totminut if $ARGS[0] = 'IncomingCheck': telefIncCheck['PrevTotalMinutes'] = ARGS[1] telefIncCheck['NewTotalMinutes'] = ARGS[2] if telefIncCheck['PrevTotalMinutes'] > telefIncCheck['NewTotalMinutes'] or telefon['LastIncCallCheck'] > telefIncCheck['NewTotalMinutes'] or telefon['LastIncCallCheck'] = 0: !! Time Cheat has been used, so we should do some cleanup telefon['LastIncCallCheck'] = telefIncCheck['NewTotalMinutes'] end !! Limit the number of calls per day !! right now allow every 60 minutes if telefIncCheck['NewTotalMinutes'] - telefon['LastIncCallCheck'] > 60 and menu_off = 0 and phone_off = 0: telefon['LastIncCallCheck'] = telefIncCheck['NewTotalMinutes'] gs 'telefon','IncomingCallChooser' end killvar 'telefIncCheck' end if $ARGS[0] = 'IncomingCallChooser': !! When an Incoming call happens, choose who it comes from !! Add Contacts i=0 :telefonIncLoop1 if i < arrsize('$contact'): if $contactICode[i] ! "": if dyneval('result = iif(<<$contactISche[i]>>,1,0)') = 1: j = arrsize('$telefIncCall') if contactAnon[i] = 1: $telefIncIcon[j] = "images/system/phone/decline.png" $telefIncName[j] = "Unknown Caller" else $telefIncIcon[j] = $contactIcon[i] $telefIncName[j] = $npc_nickname[$contact[i]] end $telefIncCall[j] = $contactICode[i] $telefIncNPC[j] = $contact[i] end end i += 1 jump 'telefonIncLoop1' end !! Add Lovers i=0 :telefonIncLoop2 if i < 3 and hour > 5 and hour < 20: if pcs_lovers[i] = 1 and svidanie[i] = 0 and loverday[i] ! daystart and rand(1,100) > 95: j = arrsize('$telefIncCall') $telefIncCall[j] = "cls & gs 'telefon', 'lover', <>" $telefIncIcon[j] = 'images/characters/shared/<>.jpg' $telefIncName[j] = $loverdesc[i] end i += 1 jump 'telefonIncLoop2' end if arrsize('$telefIncCall') > 0: j = rand(0,arrsize('$telefIncCall')-1) if $telefIncNPC[j] ! "": i = arrpos('$contact',$telefIncNPC[j]) contactLastCall[i] = totminut contactToday[i] += 1 contactWeek[i] += 1 end gs 'telefon', 'IncomingCall', $telefIncIcon[j], $telefIncName[j], $telefIncCall[j] end killvar 'i' killvar 'j' killvar '$telefIncIcon' killvar '$telefIncName' killvar '$telefIncCall' killvar '$telefIncNPC' end if $ARGS[0] = 'IncomingCall': !! $ARGS[1] = Icon for contact !! $ARGS[2] = Nickname of contact !! $ARGS[3] = Code to execute for this Call $telefonIncC['Icon'] = $ARGS[1] $telefonIncC['Name'] = $ARGS[2] $telefonIncC['Code'] = $ARGS[3] PLAY 'sound/old_phone.mp3',30 $telefon['body'] = ' <<$telefonIncC["Name"]>> calling
>" width="200">



>">
Your phone is ringing
' dynamic $telefon['print'] killvar '$telefonIncC' end !--------------------------------------------------------------------------------------- ! Generic Calls for dates !! NPC Date !! ARGS[1] = contactlist index !! $ARGS[2] = Date Location if $ARGS[0] = 'NPCDate': Call4Date["ContactIndex"] = ARGS[1] $Call4Date["Location"] = $ARGS[2] $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']] $Call4Date["CallerName"] = $npc_nickname[$Call4Date["NPC"]] !! These variables are setup for certain downstream functions $caller = $Call4Date["CallerName"] $callerid = $contactIcon[Call4Date["ContactIndex"]] $boydesc = $Call4Date["CallerName"] pcs_mood += 10 npc_rel[$Call4Date["NPC"]] += 3 if $Call4Date["Location"] = 'city_park': if npc_gender[$Call4Date["NPC"]] = 0: gt 'dateM','datepark' else gt 'dateF','datepark' end elseif $Call4Date["Location"] = 'movie': if npc_gender[$Call4Date["NPC"]] = 0: gt 'dateM','datecinema' else !Not implemented yet !gt 'dateF','datecinema' end elseif $Call4Date["Location"] = 'bar': if npc_gender[$Call4Date["NPC"]] = 0: gt 'dateM','datebar' else gt 'dateF','datebar' end elseif $Call4Date["Location"] = 'cafe': if npc_gender[$Call4Date["NPC"]] = 0: gt 'dateM','datecafe' else !Not implemented yet !gt 'dateF','datecafe' end end killvar 'Call4Date' killvar '$Call4Date' end !! Sveta Calls the NPC !! ARGS[1] = contactlist index if $ARGS[0] = 'SvetaCallsNPC': cls cla Call4Date["ContactIndex"] = ARGS[1] $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']] $Call4Date["CallerName"] = $npc_nickname[$Call4Date["NPC"]] if npc_gender[$Call4Date["NPC"]] = 0: $Call4Date["NPC-he"] = 'he' $Call4Date["NPC-He"] = 'He' $Call4Date["NPC-his"] = 'his' $Call4Date["NPC-His"] = 'His' else $Call4Date["NPC-he"] = 'her' $Call4Date["NPC-He"] = 'Her' $Call4Date["NPC-his"] = 'hers' $Call4Date["NPC-His"] = 'Hers' end !! These variables are setup for certain downstream functions $caller = $Call4Date["CallerName"] $callerid = $contactIcon[Call4Date["ContactIndex"]] gs 'telefon','phone_balance' gs 'telefon','phone_call_receive' Call4Date["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 Call4Date["willAgree"]: '<<$Call4Date["CallerName"]>>, "See you in the park in an hour."' act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'city_park' else gs 'telefon','telotkaz',$Call4Date["CallerName"] end end end act 'Invite to a movie': cla '"Want to go see a movie?"' if Call4Date["willAgree"]: '<<$Call4Date["CallerName"]>>, "See you at the movie theater in an hour."' act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'movie' else gs 'telefon','telotkaz',$Call4Date["CallerName"] end end if $home_town = 'city': act 'Invite to the bar': cla '"Let''s go to the bar."' if Call4Date["willAgree"]: '<<$Call4Date["CallerName"]>>, "See you at the bar in an hour."' act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'bar' else gs 'telefon','telotkaz',$Call4Date["CallerName"] end end end act 'Invite to the cafe': cla '"Let''s go to the cafe."' if Call4Date["willAgree"]: '<<$Call4Date["CallerName"]>>, "See you at the cafe in an hour."' act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'cafe' else gs 'telefon','telotkaz',$Call4Date["CallerName"] end end !!Willpower checks for resistance if npc_rel[$Call4Date["NPC"]] <= 25: $Call4Date["loverResist"] = 'easy' elseif npc_rel[$Call4Date["NPC"]] <= 50: $Call4Date["loverResist"] = 'medium' else $Call4Date["loverResist"] = 'hard' end gs 'willpower', 'misc', 'self', $Call4Date["loverResist"] if will_cost <= pcs_willpwr: act 'I think we should break up... (<> Willpower)': *clr & cla gs 'willpower', 'pay', 'self' gs 'stat' '<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.' gs 'telefon', 'DeleteContact', $Call4Date["NPC"] act 'Hang up': gt 'telefon', 'fin' end else act 'I think we should break up... (<> Willpower)': '
You don''t have enough willpower to use this action.' end end act 'Hangup':gt 'telefon', 'fin' killvar 'Call4Date' killvar '$Call4Date' killvar '$DateNickName' end !! NPC Calls Sveta for a Date !! ARGS[1] = $contact index number if $ARGS[0] = 'NPCCallsForDate': cla clr Call4Date["ContactIndex"] = ARGS[1] $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']] if npc_gender[$Call4Date["NPC"]] = 0: $Call4Date["NPC-he"] = 'he' $Call4Date["NPC-He"] = 'He' $Call4Date["NPC-his"] = 'his' $Call4Date["NPC-His"] = 'His' else $Call4Date["NPC-he"] = 'her' $Call4Date["NPC-He"] = 'Her' $Call4Date["NPC-his"] = 'hers' $Call4Date["NPC-His"] = 'Hers' end !!Pick a nickname that caller will use for Sveta $DateNickName[0] = 'cutie' $DateNickName[1] = 'honey' $DateNickName[2] = 'sweetie' $DateNickName[3] = 'baby' $DateNickName[4] = 'hot stuff' $DateNickName[5] = '<<$pcs_nickname>>' $Call4Date['SvetaName'] = $DateNickName[rand(0, arrsize('$DateNickName'))] $Call4Date['CallerName'] = $npc_nickname[$Call4Date["NPC"]] !! These variables are setup for certain downstream functions $caller = $Call4Date["CallerName"] $callerid = $contactIcon[Call4Date["ContactIndex"]] 'Hey <<$Call4Date["SvetaName"]>>, it''s me, <<$Call4Date["CallerName"]>>. How''s it going?' act 'Answer': cla '"Pretty good, you?"' '<<$Call4Date["CallerName"]>>, "Great, but I kind of miss you, can we meet today?"' if week > 1 and week < 5 and workKafe = 1: act 'Sorry, I''m working today': cla '"Sorry, I''m working today."' '<<$Call4Date["CallerName"]>>, "Okay, I''ll call tomorrow."' act 'Hang up':gt 'telefon', 'fin' end end act 'Tonight': cla npc_rel[$Call4Date["NPC"]] += 1 contMeetDay[Call4Date["ContactIndex"]] = daystart '"How about this evening?"' '<<$Call4Date["CallerName"]>>, "Sounds great! When can I come to pick you up?"' act 'Pick a time': cla contMeetHour[Call4Date["ContactIndex"]] = 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 contMeetHour[Call4Date["ContactIndex"]] <= hour or contMeetHour[Call4Date["ContactIndex"]] > 23:contMeetHour[Call4Date["ContactIndex"]] = 20 '"How about <>:00?."' '<<$Call4Date["CallerName"]>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <>:00."' act 'Hang up':gt 'telefon', 'fin' end end act 'Maybe tomorrow': cla npc_rel[$Call4Date["NPC"]] -= 1 '"I''m busy today. Call tomorrow."' if npc_rel[$Call4Date["NPC"]] <= 0:'<<$Call4Date["CallerName"]>>, Are you fucking me, you know what. Suck my dick.' & gs 'telefon', 'DeleteContact', $Call4Date["NPC"] if npc_rel[$Call4Date["NPC"]] > 0:'(<<$Call4Date["CallerName"]>>) - Okay, I''ll call tomorrow.' act 'Hang up': gt 'telefon', 'fin' end !!Willpower checks for resistance if npc_rel[$Call4Date["NPC"]] <= 25: $Call4Date["loverResist"] = 'easy' elseif npc_rel[$Call4Date["NPC"]] <= 50: $Call4Date["loverResist"] = 'medium' else $Call4Date["loverResist"] = 'hard' end gs 'willpower', 'misc', 'self', $Call4Date["loverResist"] if will_cost <= pcs_willpwr: act 'I think we should break up... (<> Willpower)': *clr & cla gs 'willpower', 'pay', 'self' gs 'stat' '<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.' gs 'telefon', 'DeleteContact', $Call4Date["NPC"] act 'Hang up': gt 'telefon', 'fin' end else act 'I think we should break up... (<> Willpower)': '
You don''t have enough willpower to use this action.' end end end act 'Hang up (end relationship)': cla gs 'telefon', 'DeleteContact', $Call4Date["NPC"] gt 'telefon', 'fin' end killvar 'Call4Date' killvar '$Call4Date' killvar '$DateNickName' end 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 = 'images/system/phone/icons/icon_nastja.png' gs 'telefon','phone_call_reject' end end !-------------------------------------------------------------------------------------------------- ! Old telephone system. Some of this should be removed. if $ARGS[0] = 'phone_ring': $telefon['body'] = ' <<$caller>> calling





' dynamic $telefon['print'] end &! --- phone_ring --- if $ARGS[0] = 'phone_call_receive': $telefon['body'] = ' Talking to <<$caller>>

' dynamic $telefon['print'] end &! --- phone_call_receive --- if $ARGS[0] = 'phone_balance': if balans < 4: $telefon['body'] = ' Not enough credit on your account



' dynamic $telefon['print'] wait 3500 cla gt $loc, $loc_arg elseif balans >= 4: balans -= 4 end end &! --- phone_balance --- if $ARGS[0] = 'Phone_call': $telefon['body'] = ' Calling <<$npc_nickname[''A29'']>>



' dynamic $telefon['print'] wait 1500 minut += 1 $callerid = 'images/system/phone/icons/icon_npc1.png' gs 'telefon', 'phone_balance' $callerid = 'images/system/phone/icons/icon_npc1.png' gs 'telefon', 'phone_call_reject' end &! --- Phone_call --- if $ARGS[0] = 'phone_call_reject': $telefon['body'] = ' Calling....



' dynamic $telefon['print'] end &! --- phone_call_reject --- if $ARGS[0] = 'Phone_megafon': $telefon['body'] = ' MegaFon


The balance in the account: <> ₽.
' dynamic $telefon['print'] end &! --- Phone_megafon --- 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'
' !dynamic $telefon['print'] end &! --- Edit_Custom_list --- 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 !----------------End Old Telephone---------------------------- !----------------------------------------------------------------------------- ! Support for Hardcoded Lovers (BF/GF) 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 (pregchem / 24) <= 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 his 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 (pregchem / 24) > 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 !---------------------- End of Lover support if $ARGS[0] = 'Phone_notebook': gs 'housing', 'rent' $telefon['body'] = ' Planner

<>-<<$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 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 y1 = 2017 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!' if 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 >= daylastperiod+28 and daynum < daylastperiod+31:$calendarday += $list + 'Menstruation!' if daynum >= daylastperiod+12 and daynum < daylastperiod+14:$calendarday += $list + 'Ovulation!' if pregchem >= 6720:$calendarday += $list + 'Birthing day!' if w1 < 5 and (workSec >= 1 or BurgerQW['Secretary'] = 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 (BurgerQW['Secretary'] = 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 Anya and Roma at 18:00' else $calendarday += $list + 'Anya 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 ! '': $telefon['body'] += '<<$monthName[m1]>> <>, <<$week[w1]>>:' $telefon['body'] += $calendarday +'
' end if i < 14: 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 'd1' killvar 'w1' killvar 'm1' killvar 'y1' killvar 'daynum' dynamic $telefon['print'] end &! --- Phone_notebook --- !!----------------------------------------Camera------------------------------------------------- !!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': minut += rand(5,7) if $ARGS[1] <> '': gs 'telefon', 'Phone_selfie_image', $ARGS[1], $ARGS[2] else phone_rand = RAND(1,selfieClotot[0]) dynamic '<<$selfieLoc[0]>>_closelfie[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><>.jpg' end 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) !msg '' 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 $ARGS[2] = '': if $clothingworntype = 'swimwear' or $clothingworntype = 'beach': !!changing to and unmixed variable so the rng will work dynamic 'temp_swim = <>' if temp_swim > 0: phone_rand = rand(1,temp_swim) !!Setting the image owned flag to 1 dynamic '<<$ARGS[1]>>_swim[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$ARGS[1]>>/bikini/<>.jpg' end end elseif $clothingworntype ! 'nude': !!changing to and unmixed variable so the rng will work dynamic 'temp_clotot = <>' if temp_clotot > 0: phone_rand = rand(1,temp_clotot) !!Setting the image owned flag to 1 dynamic '<<$ARGS[1]>>_closelfie[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$ARGS[1]>>/clothed/<>.jpg' end end elseif $pantyworntype ! 'none': dynamic 'temp_undtot = <>' if temp_undtot > 0: phone_rand = rand(1,temp_undtot) dynamic '<<$ARGS[1]>>_undselfie[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$ARGS[1]>>/underwear/<>.jpg' end end else dynamic 'temp_nudtot = <>' if temp_nudtot > 0: phone_rand = rand(1,temp_nudtot) dynamic '<<$ARGS[1]>>_nudselfie[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$ARGS[1]>>/nude/<>.jpg' end end end else if $ARGS[2] = 'tits': dynamic 'temp_titflash = <>' if temp_titflash > 0: phone_rand = rand(1,temp_titflash) dynamic '<<$ARGS[1]>>_titflash[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$ARGS[1]>>/titflash/<>.jpg' end end elseif $ARGS[2] = 'ass': dynamic 'temp_assflash = <>' if temp_assflash > 0: phone_rand = rand(1,temp_assflash) dynamic '<<$ARGS[1]>>_assflash[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$ARGS[1]>>/assflash/<>.jpg' end end elseif $ARGS[2] = 'pussy': dynamic 'temp_pussyflash = <>' if temp_pussyflash > 0: phone_rand = rand(1,temp_pussyflash) dynamic '<<$ARGS[1]>>_pussyflash[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/<<$ARGS[1]>>/pussyflash/<>.jpg' end end end end end !!taking selfies in the shower or bath if $ARGS[0] = 'Phone_selfie_image_bathing': minut += rand(5,7) if $ARGS[1] = 'shower': !!changing to and unmixed variable so the rng will work dynamic 'temp_showertot = <>' phone_rand = rand(1,temp_showertot) !!Setting the image owned flag to 1 dynamic 'bathroom_showerselfie[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/bathroom/shower/<>.jpg' end elseif $ARGS[1] = 'bath': dynamic 'temp_bathtot = <>' phone_rand = rand(1,temp_bathtot) dynamic 'bathroom_bathselfie[<>] = 1' gs 'stat' if usePopUps = 1: msg '' else view 'images/pc/selfies/bathroom/bath/<>.jpg' end end end !!for taking photos - only selfies for now if $ARGS[0] = 'Phone_camera': gs 'phone_selfies', 'Phone_selfie_totals' if $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 = 'city_park': $phone_loc = 'park' elseif $locclass = 'lockeroom': $phone_loc = 'lockeroom' elseif $locclass = 'beach': $phone_loc = 'beach' elseif $locclass = 'beach': $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'] = 'Camera


' !! Take a selfie depending on which clothes you are wearing $telefon['body'] += 'Take a selfie
' !! Flashing selfie 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 = <>") > 0: $telefon['body'] += 'Flash your tits for a selfie
' end if (exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and dyneval("result = <>") > 0: $telefon['body'] += 'Flash your ass for a selfie
' end if (exhibitionist_lvl > 1 or $phone_loc = 'bedroom') and dyneval("result = <>") > 0: $telefon['body'] += 'Flash your pussy for a selfie
' end end dynamic $telefon['print'] end !!-----------------------------------end of Camera------------------------------------------ !!-----------------------------------start of sms------------------------------------------ !{ Send SMS lists the current contacts, then clicking on a contact gives a list of messages that can be sent. Receive messages lists the sms messages sent to the player, these can be deleted, they will be in bold until read. To add an incoming message gs 'telefon', 'add_sms', 'A1', 'Test message the text goes here', 'images\pc\selfies\bathroom\underwear\1.jpg', 'images\pc\selfies\school_bathroom\pussyflash\1.jpg' A1 is the NPC code (A1 is Dmitriy Nosov "Dimka") You can have up to 4 pictures attached to the message To add an out going message that can be sent gs 'telefon', 'add_sms_to_send', 'A1', 'Test message the text goes here' To add a contact if it doesn't exist if arrpos('$contact', 'A1') = -1: gs 'telefon', 'AddContact', 'A1', 'images/characters/pavlovsk/school/head/1.jpg', "", "1 = 0", "", "", 0 SMS Arrays storing received messages and messages that can be sent Received 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 Send Messages $SMSSendContact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms $SMSSendMessage[] = text for the sms message $SMSSendCode[] = Code to execute for Incoming call SMSSendRepeatable[] = 0 delete option after send, 1 don't delete option $SMSSendDeleteId[] = id passed by the caller } if $ARGS[0] = 'Phone_sms': $telefon['body'] = ' SMS

' $telefon['body'] += 'Send new SMS
' $telefon['body'] += '' !!iterating all Messages !!reset and recalculate unread messages count, in case they get out of sync telefon['UnreadSMS'] = 0 i=0 :smsloop if i < arrsize('$SMSContact'): !! if the person sending is in the contact list display the names and icon telefon['contactid'] = arrpos('$contact',$SMSContact[i]) if telefon['contactid'] = -1: $telefonCon['NPCName'] = '' $telefonCon['Icon'] = 'icon_na.png' else $telefonCon['NPCName'] = $npc_nickname[$contact[telefon['contactid']]] $telefonCon['Icon'] = $contactIcon[telefon['contactid']] end if SMSMessageRead[i] = 0: telefon['UnreadSMS'] += 1 $telefon['body'] += dyneval($telefon['SMS'],i,$telefonCon['Icon'],$telefonCon['NPCName'],$SMSTime[i],SMSMessageRead[i]) i += 1 jump 'smsloop' end $telefon['body'] += '
iconNameReceived

' dynamic $telefon['print'] 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': $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]>> <> <<$month>> <>' $SMSPicture1[telefon['SMSCount']] = $ARGS[3] $SMSPicture2[telefon['SMSCount']] = $ARGS[4] $SMSPicture3[telefon['SMSCount']] = $ARGS[5] $SMSPicture4[telefon['SMSCount']] = $ARGS[6] SMSMessageRead[telefon['SMSCount']] = 0 telefon['SMSCount'] += 1 telefon['UnreadSMS'] += 1 end if $ARGS[0] = 'delete_sms': telefon['SMSid'] = ARGS[1] killvar '$SMSContact', telefon['SMSid'] killvar '$SMSMessage', telefon['SMSid'] killvar '$SMSTime', telefon['SMSid'] killvar '$SMSPicture1', telefon['SMSid'] killvar '$SMSPicture2', telefon['SMSid'] killvar '$SMSPicture3', telefon['SMSid'] killvar '$SMSPicture4', telefon['SMSid'] killvar 'SMSMessageRead', telefon['SMSid'] telefon['SMSCount'] -= 1 gs 'telefon', 'Phone_sms' end if $ARGS[0] = 'show_sms': telefon['SMSid'] = ARGS[1] !!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 telefon['contactid'] = arrpos('$contact',$SMSContact[telefon['SMSid']]) if telefon['contactid'] = -1: $telefonCon['NPCName'] = '' $telefonCon['Icon'] = 'icon_na.png' else $telefonCon['NPCName'] = $npc_nickname[$contact[telefon['contactid']]] $telefonCon['Icon'] = $contactIcon[telefon['contactid']] end !!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 instr($telefonCon['Icon'],'/') = 0: $telefonCon['Icon'] = 'images/system/phone/icons/' + $telefonCon['Icon'] end $telefon['body'] = ' SMS

' $telefon['body'] += '' $telefon['body'] += '' $telefon['body'] += '' if $SMSPicture1[telefon['SMSid']] <> '': $telefon['body'] += '' end if $SMSPicture2[telefon['SMSid']] <> '': $telefon['body'] += '' end if $SMSPicture3[telefon['SMSid']] <> '': $telefon['body'] += '' end if $SMSPicture4[telefon['SMSid']] <> '': $telefon['body'] += '' end $telefon['body'] += '
<<$telefonCon[''NPCName'']>>
<<$SMSMessage[telefon[''SMSid'']]>>

' $telefon['backButton'] = 'gs ''telefon'', ''Phone_sms''' dynamic $telefon['print'] end !! 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'] = { 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 instr($telefon['ContactIcon'],'.') = 0: $telefon['ContactIcon'] += '.png' end !!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 if telefon['SMSStatus'] = 0: $telefon['SMSstyle1'] = '' $telefon['SMSstyle2'] = '' else $telefon['SMSstyle1'] = '' $telefon['SMSstyle2'] = '' end $result = ' <<$telefon[''SMSstyle1'']>><<$telefon[''ContactNickName'']>><<$telefon[''SMSstyle2'']>> <<$telefon[''SMSstyle1'']>><<$telefon[''SMSTime'']>><<$telefon[''SMSstyle2'']>> <<$telefon[''SMSstyle1'']>>Delete<<$telefon[''SMSstyle2'']>> ' } !! List of Contacts that you can send sms messages to if $ARGS[0] = 'send_sms': $telefon['backButton'] = 'gs ''telefon'', ''Phone_sms''' $telefon['body'] = ' Send SMS

' $telefon['body'] += '' !!iterating all Contacts i=0 :smscontactloop if i < arrsize('$contact'): if contactAnon[i] = 0: $telefon['body'] += dyneval($telefon['contactsms'],i) end i += 1 jump 'smscontactloop' end $telefon['body'] += '

' dynamic $telefon['print'] killvar 'i' end !! This is the formatting function for a row in the Contact List. SHould be run as a DYNEVAL() !! $ARGS[0] = index of contact in the conntact arrays $telefon['contactsms'] = { !! Contact Row in phone contact list $telefon['ContactIcon'] = $contactIcon[ARGS[0]] $telefon['ContactNPCcode'] = $contact[ARGS[0]] !!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 instr($telefon['ContactIcon'],'/') = 0: $telefon['ContactIcon'] = 'images/system/phone/icons/' + $telefon['ContactIcon'] end $result = ' <<$npc_nickname[$telefon[''ContactNPCcode'']]>> New Message ' } !! List of SMS messages available to be sent to an NPC !! $ARGS[1] = NPC code for the contact we want to display messages for if $ARGS[0] = 'npcSendListSms': $telefon['backButton'] = 'gs ''telefon'', ''send_sms''' $telefon['body'] = ' Send SMS

' $telefon['body'] += '' !!iterating all send sms messages i=0 :npcSendListSmsLoop if i < arrsize('$SMSSendContact'): if $SMSSendContact[i] = $ARGS[1]: $telefon['body'] += dyneval($telefon['smsMessageToSend'],i) end i += 1 jump 'npcSendListSmsLoop' end $telefon['body'] += '

' dynamic $telefon['print'] killvar 'i' end !! This is the formatting function for a row in the messages to send List. SHould be run as a DYNEVAL() !! ARGS[0] = index of the message $telefon['smsMessageToSend'] = { $telefon['ContactNPCcode'] = $SMSSendContact[ARGS[0]] $result = ' <<$npc_nickname[$telefon[''ContactNPCcode'']]>> <<$SMSSendMessage[ARGS[0]]>> ' } if $ARGS[0] = 'smsSendMessage': dynamic '<<$SMSSendCode[ARGS[1]]>>' if SMSSendRepeatable[ARGS[1]] = 0: gs 'telefon', 'delete_sms_send_index', ARGS[1] end gs 'telefon', 'Phone_sms' end !{ Add a new message that can be sent by the player $ARGS[1] NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms $ARGS[2] text for the sms message $ARGS[3] Code to execute when the sms is sent ARGS[4] 0 delete option after send, 1 dont delete option $ARGS[5] id passed by the caller to identify the option to be deleted if it needs to be removed from the options } if $ARGS[0] = 'add_sms_to_send': i = arrsize('$SMSSendContact') $SMSSendContact[i] = $ARGS[1] $SMSSendMessage[i] = $ARGS[2] $SMSSendCode[i] = $ARGS[3] SMSSendRepeatable[i] = ARGS[4] $SMSSendDeleteId[i] = $ARGS[5] end if $ARGS[0] = 'delete_sms_send_index': killvar '$SMSSendContact', ARGS[1] killvar '$SMSSendMessage', ARGS[1] killvar '$SMSSendCode', ARGS[1] killvar 'SMSSendRepeatable', ARGS[1] killvar '$SMSSendDeleteId', ARGS[1] end !{ $ARGS[1] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') $ARGS[2] = Delete id of the message ($SMSSendDeleteId) } if $ARGS[0] = 'delete_sms_send_id': $telefon['SMStoDeleteFound'] = 'No' i = 0 :findSmsToDeleteLoop if (i < arrsize('$SMSSendContact')) and $telefon['SMStoDeleteFound'] = 'No': if $SMSSendContact[i] = $ARGS[1] and $SMSSendDeleteId[i] = $ARGS[2]: gs 'telefon', 'delete_sms_send_index', i $telefon['SMStoDeleteFound'] = 'Yes' end i += 1 jump 'findSmsToDeleteLoop' end end !!-----------------------------------end of sms------------------------------------------ if $ARGS[0] = 'Phone_wheather': $telefon['body'] = ' Weather


Temperature:
<<$temperature>>. <<$osadki>>
P.O.P. today is <>%
' dynamic $telefon['print'] end &! --- Phone_wheather --- if $ARGS[0] = 'Phone_calendar': $telefon['body'] = ' Calendar


Today:
<<$week[week]>>, <> <<$month>> <>
' dynamic $telefon['print'] end &! --- Phone_calendar --- if $ARGS[0] = 'Phone_media': $telefon['body'] = ' Media

This option is not active
' dynamic $telefon['print'] end &! --- Phone_media --- if $ARGS[0] = 'Phone_menu': if phone_off = 0: $telefon['body'] = '


' if menu_off = 1: $telefon['body'] += '
' else $telefon['body'] += '
' end dynamic $telefon['print'] else 'Your Phone is disabled for this event' end end &! --- Phone_menu --- if $ARGS[0] = 'Add_contact': $dummy = INPUT('Enter a note:') $contact[arrsize('$contact')] = dyneval($telefon['contact'],$ARGS[1],$dummy,$ARGS[2]) 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, $loc_arg 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 ---------------------------------