1
0

telefon.qsrc 65 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981
  1. # telefon
  2. !! Draw screens for mobile phone.
  3. !!
  4. !! The base storage for Contacts is controlled by the Array "$contact". This array is a list of NPC identifiers
  5. !! telling us which ones are in your contact list. There are several other ancillary arrays that support the functions
  6. !! of a contact. Each of these has matching indexes to the $contact array. These are mostly used internally, but a
  7. !! writer can make use of them if they need to.
  8. !!
  9. !! ContactList arrays:
  10. !! $contact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14')
  11. !! $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
  12. !! $contactOCode[] = Code to execute if call is placed to this contact
  13. !! $contactOSche[] = If statement code to determine schedule for outbound calls
  14. !! $contactICode[] = Code to execute for Incoming call
  15. !! $contactISche[] = if statement code for schedule of incoming calls
  16. !! contactAnon[] = 0 if contact number is known to Sveta, 1 for Anonymous
  17. !! contactToday[] = Calls from this contact today
  18. !! contactWeek[] = Calls from this contact this week
  19. !! contactLastCall[] = last time this Contact called
  20. !
  21. !! Add a contact with AddContact
  22. !! gs 'telefon', 'AddContact', <NPC Code>, <Icon for NPC>, <Code for Incoming Call>, <Limiter for Incoming Call>, <Code for Outgoing Call>, <Limiter for Outgoign Call>, <Anonymous=1>
  23. !! Example, to Add Mother:
  24. !! gs 'telefon', 'AddContact', 'A29', 'icon_npc1', "gs 'telefon', 'Phone_call'", "hour >= 8 and hour <= 20", "gs 'telefon', 'lover'", "hour >= 8 and hour <= 20", 0
  25. !!
  26. !! Remove a contact with DeleteContact
  27. !! gs 'telefon', 'DeleteContact', <NPC Code>
  28. !! Example, to delete Mom:
  29. !! gs 'telefon', 'DeleteContact', 'A29'
  30. !!
  31. !! Header for Phone Screen. Keeps consistent and in one place
  32. $telefon['header'] = {
  33. if telefon['UnreadSMS'] > 0:
  34. $telefon['SMSstatus'] = 'You have <<telefon[''UnreadSMS'']>> unread message(s)'
  35. else
  36. $telefon['SMSstatus'] = ''
  37. end
  38. $result = '<center>
  39. <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b><br>
  40. <TABLE cellspacing="0" width="80%">
  41. <TR>
  42. <TD><img src="images/system/icon/icon_statusbar_left.png"></TD>
  43. <TD><<$telefon[''SMSstatus'']>></TD>
  44. <TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD>
  45. </TR>
  46. </TABLE><br>'
  47. }
  48. !! Footer for phone screen. Body should be between these two
  49. $telefon['footer'] = {
  50. if $telefon['backButton'] = '': $telefon['backButton'] = 'gs ''telefon'', ''Phone_menu'''
  51. $result = ' <a href="exec:<<$telefon[''backButton'']>>"><img src="images/system/icon/back.png"></a><br><br>
  52. <a href="exec:gs''stat''">Put Phone Away.</a><br>
  53. </center>'
  54. $telefon['backButton'] = 'gs ''telefon'', ''Phone_menu'''
  55. }
  56. !! ''''This is how we print the screen on to the Additional Dscription window
  57. $telefon['print'] = {
  58. clr
  59. pl func('cleanHTML',dyneval($telefon['header']) + $telefon['body'] + dyneval($telefon['footer']))
  60. }
  61. !! This is the formatting function for a row in the Contact List. SHould be run as a DYNEVAL()
  62. $telefon['contact'] = {
  63. !! Contact Row in phone contact list
  64. !! $ARGS[0] = NPC icon
  65. !! $ARGS[1] = NPC Nickname
  66. !! $ARGS[2] = Code to execute for making a Call
  67. !! $ARGS[3] = if statement for determining if NPC is avaiable
  68. $telefon['ContactIcon'] = $ARGS[0]
  69. $telefon['ContactNickName'] = $ARGS[1]
  70. $telefon['ContactCallCode'] = $ARGS[2]
  71. $telefon['ContactCallSchedule'] = $ARGS[3]
  72. !!If file extension is not given, .png is assumed
  73. if instr($telefon['ContactIcon'],'.') = 0:
  74. $telefon['ContactIcon'] += '.png'
  75. end
  76. !!If path is not given, default phone icon path is assumed
  77. if instr($telefon['ContactIcon'],'/') = 0:
  78. $telefon['ContactIcon'] = 'images/system/phone/icons/' + $telefon['ContactIcon']
  79. end
  80. !!If Contact is not in available timeframe, we disable contact calling
  81. if dyneval('result = iif(<<$telefon["ContactCallSchedule"]>>,1,0)') = 0:
  82. $telefon['ContactCallCode'] = "gs 'telefon', 'phone_call_reject'"
  83. end
  84. $result = '<TR>
  85. <TD><img src="<<$telefon[''ContactIcon'']>>" width="75"></TD>
  86. <TD><<$telefon[''ContactNickName'']>></TD>
  87. <TD align="right"><a href="exec:$callerid = ''<<$telefon[''ContactIcon'']>>'' & <<$telefon[''ContactCallCode'']>>"><b>Call</b></a></TD>
  88. </TR>'
  89. }
  90. if $ARGS[0] = 'AddContact':
  91. !! $ARGS[1] = NPC Array identifier
  92. !! $ARGS[2] = Icon
  93. !! $ARGS[3] = Code to execute for Call out
  94. !! $ARGS[4] = If statement code to determine schedule for outbound calls
  95. !! $ARGS[5] = Code to execute for Incoming call
  96. !! $ARGS[6] = if statement code for schedule of incoming calls
  97. !! ARGS[7] = Anonymous? 0 if not, 1 if yes
  98. $telefonCon['NPC'] = $ARGS[1]
  99. $telefonCon['Icon'] = $ARGS[2]
  100. $telefonCon['OutCode'] = $ARGS[3]
  101. $telefonCon['OutSched'] = $ARGS[4]
  102. $telefonCon['InCode'] = $ARGS[5]
  103. $telefonCon['InSched'] = $ARGS[6]
  104. telefonCon['Anonymous'] = ARGS[7]
  105. telefonCon['ContactListID'] = arrpos('$contact',$telefonCon['NPC'])
  106. if telefonCon['ContactListID'] = -1:
  107. telefonCon['ContactListID'] = arrsize('$contact')
  108. $contact[telefonCon['ContactListID']] = $telefonCon['NPC']
  109. end
  110. $contactIcon[telefonCon['ContactListID']] = $telefonCon['Icon']
  111. $contactOCode[telefonCon['ContactListID']] = $telefonCon['OutCode']
  112. $contactOSche[telefonCon['ContactListID']] = $telefonCon['OutSched']
  113. $contactICode[telefonCon['ContactListID']] = $telefonCon['InCode']
  114. $contactISche[telefonCon['ContactListID']] = $telefonCon['InSched']
  115. contactAnon[telefonCon['ContactListID']] = telefonCon['Anonymous']
  116. killvar 'telefonCon'
  117. killvar '$telefonCon'
  118. end &! --- AddContact ---
  119. if $ARGS[0] = 'DeleteContact':
  120. !! $ARGS[1] = NPC Array identifier
  121. $telefonCon['NPC'] = $ARGS[1]
  122. telefonCon['ContactListID'] = arrpos('$contact',$telefonCon['NPC'])
  123. if telefonCon['ContactListID'] > -1:
  124. killvar '$contact', telefonCon['ContactListID']
  125. killvar '$contactIcon', telefonCon['ContactListID']
  126. killvar '$contactCode', telefonCon['ContactListID']
  127. end
  128. killvar 'telefonCon'
  129. killvar '$telefonCon'
  130. end &! --- AddContact ---
  131. if $ARGS[0] = 'ContactList':
  132. $telefon['body'] = '
  133. <font size=6>Contacts</font><br>
  134. <img src="<<FUNC(''$phone_theme'')>>icon_call.png" height="80" width="80"><br><br>
  135. <TABLE cellspacing="0" width="80%">'
  136. !!iterating all Contacts
  137. i=0
  138. :contactloop2
  139. if i < arrsize('$contact'):
  140. if contactAnon[i] = 0:
  141. $telefon['body'] += dyneval($telefon['contact'],$contactIcon[i],$npc_nickname[$contact[i]],$contactOCode[i],$contactOSche[i])
  142. end
  143. i += 1
  144. jump 'contactloop2'
  145. end
  146. !! Oddball Contacts
  147. if telalla > 0:
  148. $telefon['body'] += dyneval($telefon['contact'],'icon_ira1','Alla',"$telsob = 'Alla' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20")
  149. end
  150. if telmasha > 0:
  151. $telefon['body'] += dyneval($telefon['contact'],'icon_masha','Masha',"$telsob = 'Masha' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20")
  152. end
  153. !! iterating all lovers
  154. lover_number = 0
  155. :loverloop2
  156. if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0:
  157. $telefon['body'] += dyneval($telefon['contact'],'icon_bf'+lover_picture[lover_number],$loverdesc[lover_number],"lover_number = <<lover_number>> & gt 'telefon', 'callingTheLover', <<lover_number>>","hour > 6 and hour < 20")
  158. end
  159. lover_number += 1
  160. if lover_number < arrsize('pcs_lovers'): jump 'loverloop2'
  161. $telefon['body'] += '</TABLE><br>'
  162. dynamic $telefon['print']
  163. killvar 'i'
  164. killvar 'lover_number'
  165. end &! --- ContactList ---
  166. !! Reset Contact Call Stats Daily and Weekly
  167. !!
  168. !! ARGS[1] = New Week if 1, 0 if same week
  169. if $ARGS[0] = 'DailyStatRefresh':
  170. i=0
  171. :DailyStatRefLoop
  172. if i < arrsize('$contact'):
  173. contactToday[i] = 0
  174. if ARGS[1] = 1:
  175. contactWeek[i] = 0
  176. end
  177. i += 1
  178. jump 'DailyStatRefLoop'
  179. end
  180. killvar 'i'
  181. end
  182. !! Determine if any Incoming calls should happen
  183. !!
  184. !! ARGS[1] = Previous totminut
  185. !! ARGS[2] = Current totminut
  186. if $ARGS[0] = 'IncomingCheck':
  187. telefIncCheck['PrevTotalMinutes'] = ARGS[1]
  188. telefIncCheck['NewTotalMinutes'] = ARGS[2]
  189. if telefIncCheck['PrevTotalMinutes'] > telefIncCheck['NewTotalMinutes'] or telefon['LastIncCallCheck'] > telefIncCheck['NewTotalMinutes'] or telefon['LastIncCallCheck'] = 0:
  190. !! Time Cheat has been used, so we should do some cleanup
  191. telefon['LastIncCallCheck'] = telefIncCheck['NewTotalMinutes']
  192. end
  193. !! Limit the number of calls per day
  194. !! right now allow every 60 minutes
  195. if telefIncCheck['NewTotalMinutes'] - telefon['LastIncCallCheck'] > 60 and menu_off = 0 and phone_off = 0:
  196. telefon['LastIncCallCheck'] = telefIncCheck['NewTotalMinutes']
  197. gs 'telefon','IncomingCallChooser'
  198. end
  199. killvar 'telefIncCheck'
  200. end
  201. if $ARGS[0] = 'IncomingCallChooser':
  202. !! When an Incoming call happens, choose who it comes from
  203. !! Add Contacts
  204. i=0
  205. :telefonIncLoop1
  206. if i < arrsize('$contact'):
  207. if $contactICode[i] ! "":
  208. if dyneval('result = iif(<<$contactISche[i]>>,1,0)') = 1:
  209. j = arrsize('$telefIncCall')
  210. if contactAnon[i] = 1:
  211. $telefIncIcon[j] = "images/system/phone/decline.png"
  212. $telefIncName[j] = "Unknown Caller"
  213. else
  214. $telefIncIcon[j] = $contactIcon[i]
  215. $telefIncName[j] = $npc_nickname[$contact[i]]
  216. end
  217. $telefIncCall[j] = $contactICode[i]
  218. $telefIncNPC[j] = $contact[i]
  219. end
  220. end
  221. i += 1
  222. jump 'telefonIncLoop1'
  223. end
  224. !! Add Lovers
  225. i=0
  226. :telefonIncLoop2
  227. if i < 3 and hour > 5 and hour < 20:
  228. if pcs_lovers[i] = 1 and svidanie[i] = 0 and loverday[i] ! daystart and rand(1,100) > 95:
  229. j = arrsize('$telefIncCall')
  230. $telefIncCall[j] = "cls & gs 'telefon', 'lover', <<i>>"
  231. $telefIncIcon[j] = 'images/characters/shared/<<lover_picture[i]>>.jpg'
  232. $telefIncName[j] = $loverdesc[i]
  233. end
  234. i += 1
  235. jump 'telefonIncLoop2'
  236. end
  237. if arrsize('$telefIncCall') > 0:
  238. j = rand(0,arrsize('$telefIncCall')-1)
  239. if $telefIncNPC[j] ! "":
  240. i = arrpos('$contact',$telefIncNPC[j])
  241. contactLastCall[i] = totminut
  242. contactToday[i] += 1
  243. contactWeek[i] += 1
  244. end
  245. gs 'telefon', 'IncomingCall', $telefIncIcon[j], $telefIncName[j], $telefIncCall[j]
  246. end
  247. killvar 'i'
  248. killvar 'j'
  249. killvar '$telefIncIcon'
  250. killvar '$telefIncName'
  251. killvar '$telefIncCall'
  252. killvar '$telefIncNPC'
  253. end
  254. if $ARGS[0] = 'IncomingCall':
  255. !! $ARGS[1] = Icon for contact
  256. !! $ARGS[2] = Nickname of contact
  257. !! $ARGS[3] = Code to execute for this Call
  258. $telefonIncC['Icon'] = $ARGS[1]
  259. $telefonIncC['Name'] = $ARGS[2]
  260. $telefonIncC['Code'] = $ARGS[3]
  261. PLAY 'sound/old_phone.mp3',30
  262. $telefon['body'] = '
  263. <font size=6><<$telefonIncC["Name"]>> calling</font><br>
  264. <img src="<<$telefonIncC["Icon"]>>" width="200"><br>
  265. <br>
  266. <br>
  267. <br>
  268. <a href="exec:<<$telefonIncC["Code"]>>"><img src="images/system/phone/call_accept.png"></a>
  269. <a href="exec:gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a><br>
  270. <b><font color="red">Your phone is ringing</font></b><br>'
  271. dynamic $telefon['print']
  272. killvar '$telefonIncC'
  273. end
  274. !---------------------------------------------------------------------------------------
  275. ! Generic Calls for dates
  276. !! NPC Date
  277. !! ARGS[1] = contactlist index
  278. !! $ARGS[2] = Date Location
  279. if $ARGS[0] = 'NPCDate':
  280. Call4Date["ContactIndex"] = ARGS[1]
  281. $Call4Date["Location"] = $ARGS[2]
  282. $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
  283. $Call4Date["CallerName"] = $npc_nickname[$Call4Date["NPC"]]
  284. !! These variables are setup for certain downstream functions
  285. $caller = $Call4Date["CallerName"]
  286. $callerid = $contactIcon[Call4Date["ContactIndex"]]
  287. $boydesc = $Call4Date["CallerName"]
  288. pcs_mood += 10
  289. npc_rel[$Call4Date["NPC"]] += 3
  290. if $Call4Date["Location"] = 'city_park':
  291. if npc_gender[$Call4Date["NPC"]] = 0:
  292. gt 'dateM','datepark'
  293. else
  294. gt 'dateF','datepark'
  295. end
  296. elseif $Call4Date["Location"] = 'movie':
  297. if npc_gender[$Call4Date["NPC"]] = 0:
  298. gt 'dateM','datecinema'
  299. else
  300. !Not implemented yet
  301. !gt 'dateF','datecinema'
  302. end
  303. elseif $Call4Date["Location"] = 'bar':
  304. if npc_gender[$Call4Date["NPC"]] = 0:
  305. gt 'dateM','datebar'
  306. else
  307. gt 'dateF','datebar'
  308. end
  309. elseif $Call4Date["Location"] = 'cafe':
  310. if npc_gender[$Call4Date["NPC"]] = 0:
  311. gt 'dateM','datecafe'
  312. else
  313. !Not implemented yet
  314. !gt 'dateF','datecafe'
  315. end
  316. end
  317. killvar 'Call4Date'
  318. killvar '$Call4Date'
  319. end
  320. !! Sveta Calls the NPC
  321. !! ARGS[1] = contactlist index
  322. if $ARGS[0] = 'SvetaCallsNPC':
  323. cls
  324. cla
  325. Call4Date["ContactIndex"] = ARGS[1]
  326. $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
  327. $Call4Date["CallerName"] = $npc_nickname[$Call4Date["NPC"]]
  328. if npc_gender[$Call4Date["NPC"]] = 0:
  329. $Call4Date["NPC-he"] = 'he'
  330. $Call4Date["NPC-He"] = 'He'
  331. $Call4Date["NPC-his"] = 'his'
  332. $Call4Date["NPC-His"] = 'His'
  333. else
  334. $Call4Date["NPC-he"] = 'her'
  335. $Call4Date["NPC-He"] = 'Her'
  336. $Call4Date["NPC-his"] = 'hers'
  337. $Call4Date["NPC-His"] = 'Hers'
  338. end
  339. !! These variables are setup for certain downstream functions
  340. $caller = $Call4Date["CallerName"]
  341. $callerid = $contactIcon[Call4Date["ContactIndex"]]
  342. gs 'telefon','phone_balance'
  343. gs 'telefon','phone_call_receive'
  344. Call4Date["willAgree"] = (rand(0, 10) > 3)
  345. '"Yes, I''m listening," says a voice from the speaker.'
  346. if month > 5 and temper > 20 and sunWeather = 1:
  347. act 'Invite to the park':
  348. cla
  349. '"Let''s go for a walk in the park."'
  350. if Call4Date["willAgree"]:
  351. '<<$Call4Date["CallerName"]>>, "See you in the park in an hour."'
  352. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'city_park'
  353. else
  354. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  355. end
  356. end
  357. end
  358. act 'Invite to a movie':
  359. cla
  360. '"Want to go see a movie?"'
  361. if Call4Date["willAgree"]:
  362. '<<$Call4Date["CallerName"]>>, "See you at the movie theater in an hour."'
  363. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'movie'
  364. else
  365. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  366. end
  367. end
  368. if $home_town = 'city':
  369. act 'Invite to the bar':
  370. cla
  371. '"Let''s go to the bar."'
  372. if Call4Date["willAgree"]:
  373. '<<$Call4Date["CallerName"]>>, "See you at the bar in an hour."'
  374. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'bar'
  375. else
  376. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  377. end
  378. end
  379. end
  380. act 'Invite to the cafe':
  381. cla
  382. '"Let''s go to the cafe."'
  383. if Call4Date["willAgree"]:
  384. '<<$Call4Date["CallerName"]>>, "See you at the cafe in an hour."'
  385. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'cafe'
  386. else
  387. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  388. end
  389. end
  390. !!Willpower checks for resistance
  391. if npc_rel[$Call4Date["NPC"]] <= 25:
  392. $Call4Date["loverResist"] = 'easy'
  393. elseif npc_rel[$Call4Date["NPC"]] <= 50:
  394. $Call4Date["loverResist"] = 'medium'
  395. else
  396. $Call4Date["loverResist"] = 'hard'
  397. end
  398. gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
  399. if will_cost <= pcs_willpwr:
  400. act 'I think we should break up... (<<will_cost>> Willpower)':
  401. *clr & cla
  402. gs 'willpower', 'pay', 'self'
  403. gs 'stat'
  404. '<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  405. gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  406. act 'Hang up': gt 'telefon', 'fin'
  407. end
  408. else
  409. act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
  410. '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  411. end
  412. end
  413. act 'Hangup':gt 'telefon', 'fin'
  414. killvar 'Call4Date'
  415. killvar '$Call4Date'
  416. killvar '$DateNickName'
  417. end
  418. !! NPC Calls Sveta for a Date
  419. !! ARGS[1] = $contact index number
  420. if $ARGS[0] = 'NPCCallsForDate':
  421. cla
  422. clr
  423. Call4Date["ContactIndex"] = ARGS[1]
  424. $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
  425. if npc_gender[$Call4Date["NPC"]] = 0:
  426. $Call4Date["NPC-he"] = 'he'
  427. $Call4Date["NPC-He"] = 'He'
  428. $Call4Date["NPC-his"] = 'his'
  429. $Call4Date["NPC-His"] = 'His'
  430. else
  431. $Call4Date["NPC-he"] = 'her'
  432. $Call4Date["NPC-He"] = 'Her'
  433. $Call4Date["NPC-his"] = 'hers'
  434. $Call4Date["NPC-His"] = 'Hers'
  435. end
  436. !!Pick a nickname that caller will use for Sveta
  437. $DateNickName[0] = 'cutie'
  438. $DateNickName[1] = 'honey'
  439. $DateNickName[2] = 'sweetie'
  440. $DateNickName[3] = 'baby'
  441. $DateNickName[4] = 'hot stuff'
  442. $DateNickName[5] = '<<$pcs_nickname>>'
  443. $Call4Date['SvetaName'] = $DateNickName[rand(0, arrsize('$DateNickName'))]
  444. $Call4Date['CallerName'] = $npc_nickname[$Call4Date["NPC"]]
  445. !! These variables are setup for certain downstream functions
  446. $caller = $Call4Date["CallerName"]
  447. $callerid = $contactIcon[Call4Date["ContactIndex"]]
  448. 'Hey <<$Call4Date["SvetaName"]>>, it''s me, <<$Call4Date["CallerName"]>>. How''s it going?'
  449. act 'Answer':
  450. cla
  451. '"Pretty good, you?"'
  452. '<<$Call4Date["CallerName"]>>, "Great, but I kind of miss you, can we meet today?"'
  453. if week > 1 and week < 5 and workKafe = 1:
  454. act 'Sorry, I''m working today':
  455. cla
  456. '"Sorry, I''m working today."'
  457. '<<$Call4Date["CallerName"]>>, "Okay, I''ll call tomorrow."'
  458. act 'Hang up':gt 'telefon', 'fin'
  459. end
  460. end
  461. act 'Tonight':
  462. cla
  463. npc_rel[$Call4Date["NPC"]] += 1
  464. contMeetDay[Call4Date["ContactIndex"]] = daystart
  465. '"How about this evening?"'
  466. '<<$Call4Date["CallerName"]>>, "Sounds great! When can I come to pick you up?"'
  467. act 'Pick a time':
  468. cla
  469. 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]")
  470. if contMeetHour[Call4Date["ContactIndex"]] <= hour or contMeetHour[Call4Date["ContactIndex"]] > 23:contMeetHour[Call4Date["ContactIndex"]] = 20
  471. '"How about <<contMeetHour[Call4Date["ContactIndex"]]>>:00?."'
  472. '<<$Call4Date["CallerName"]>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<contMeetHour[Call4Date["ContactIndex"]]>>:00."'
  473. act 'Hang up':gt 'telefon', 'fin'
  474. end
  475. end
  476. act 'Maybe tomorrow':
  477. cla
  478. npc_rel[$Call4Date["NPC"]] -= 1
  479. '"I''m busy today. Call tomorrow."'
  480. if npc_rel[$Call4Date["NPC"]] <= 0:'<<$Call4Date["CallerName"]>>, Are you fucking me, you know what. Suck my dick.' & gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  481. if npc_rel[$Call4Date["NPC"]] > 0:'(<<$Call4Date["CallerName"]>>) - Okay, I''ll call tomorrow.'
  482. act 'Hang up': gt 'telefon', 'fin'
  483. end
  484. !!Willpower checks for resistance
  485. if npc_rel[$Call4Date["NPC"]] <= 25:
  486. $Call4Date["loverResist"] = 'easy'
  487. elseif npc_rel[$Call4Date["NPC"]] <= 50:
  488. $Call4Date["loverResist"] = 'medium'
  489. else
  490. $Call4Date["loverResist"] = 'hard'
  491. end
  492. gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
  493. if will_cost <= pcs_willpwr:
  494. act 'I think we should break up... (<<will_cost>> Willpower)':
  495. *clr & cla
  496. gs 'willpower', 'pay', 'self'
  497. gs 'stat'
  498. '<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  499. gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  500. act 'Hang up': gt 'telefon', 'fin'
  501. end
  502. else
  503. act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
  504. '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  505. end
  506. end
  507. end
  508. act 'Hang up (end relationship)':
  509. cla
  510. gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  511. gt 'telefon', 'fin'
  512. end
  513. killvar 'Call4Date'
  514. killvar '$Call4Date'
  515. killvar '$DateNickName'
  516. end
  517. if $ARGS[0] = 'start':
  518. gs 'stat'
  519. gs 'telefon','phone_call_receive'
  520. if npc_QW['A192'] = 1 and week = 6 and pcs_apprnc > 80:
  521. gt 'nastja', 'pos4'
  522. elseif npc_QW['A192'] = 2 and week ! 6 and zenit ! 0 and nastjaday ! daystart:
  523. gt 'nastja', 'pos13'
  524. elseif hour >= 8 and hour <= 20 and npc_QW['A192'] = 2 and week = 6 and pcs_apprnc > 80 and nastjaday ! daystart:
  525. gt 'nastja', 'pos12'
  526. elseif npc_QW['A192'] = 5 and week = 6 and nastjaday ! daystart:
  527. gt 'nastja', 'pos22'
  528. elseif npc_QW['A192'] = 6 and nastjaday ! daystart:
  529. gt 'nastja', 'pos31'
  530. else
  531. $callerid = 'images/system/phone/icons/icon_nastja.png'
  532. gs 'telefon','phone_call_reject'
  533. end
  534. end
  535. !--------------------------------------------------------------------------------------------------
  536. ! Old telephone system. Some of this should be removed.
  537. if $ARGS[0] = 'phone_ring':
  538. $telefon['body'] = '
  539. <font size=6><<$caller>> calling</font><br>
  540. <img src="<<$callerid>>"><br>
  541. <br>
  542. <br>
  543. <br>
  544. <br>'
  545. dynamic $telefon['print']
  546. end &! --- phone_ring ---
  547. if $ARGS[0] = 'phone_call_receive':
  548. $telefon['body'] = '
  549. <font size=6>Talking to <<$caller>></font><br>
  550. <img src="<<$callerid>>"><br>'
  551. dynamic $telefon['print']
  552. end &! --- phone_call_receive ---
  553. if $ARGS[0] = 'phone_balance':
  554. if balans < 4:
  555. $telefon['body'] = '
  556. <font size=6>Not enough credit on your account</font><br>
  557. <img src="<<$callerid>>"><br><br>
  558. <a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/phone/decline.png"></a><br>'
  559. dynamic $telefon['print']
  560. wait 3500
  561. cla
  562. gt $loc, $loc_arg
  563. elseif balans >= 4:
  564. balans -= 4
  565. end
  566. end &! --- phone_balance ---
  567. if $ARGS[0] = 'Phone_call':
  568. $telefon['body'] = '
  569. <font size=6>Calling <<$npc_nickname[''A29'']>></font><br>
  570. <img src="images/system/phone/icons/icon_npc1.png"><br><br>
  571. <a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a><br>'
  572. dynamic $telefon['print']
  573. wait 1500
  574. minut += 1
  575. $callerid = 'images/system/phone/icons/icon_npc1.png'
  576. gs 'telefon', 'phone_balance'
  577. $callerid = 'images/system/phone/icons/icon_npc1.png'
  578. gs 'telefon', 'phone_call_reject'
  579. end &! --- Phone_call ---
  580. if $ARGS[0] = 'phone_call_reject':
  581. $telefon['body'] = '
  582. <font size=6>Calling...</font><br>
  583. <img src="<<$callerid>>"><br><br>
  584. <a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a><br>'
  585. dynamic $telefon['print']
  586. end &! --- phone_call_reject ---
  587. if $ARGS[0] = 'Phone_megafon':
  588. $telefon['body'] = '
  589. <font size=6>MegaFon</font><br>
  590. <img src="<<FUNC(''$phone_theme'')>>icon_megafon.png" height="80" width="80"><br><br>
  591. <b>The balance in the account:</b>
  592. <font size=5><<balans>> ₽.</font><br>'
  593. dynamic $telefon['print']
  594. end &! --- Phone_megafon ---
  595. if $ARGS[0] = 'Edit_Custom_list':
  596. clr
  597. dummyas = arrsize('$contact')
  598. :din_bad_as1
  599. dummyas -= 1
  600. if dummyas >= 0:
  601. $dummyedit = $contact[dummyas]
  602. $dummyedit1 = dyneval('$result = ''</a><a href="exec:killvar ''''$contact'''',<<dummyas>> & gs ''''telefon'''', ''''Edit_Custom_list'''' "><b>Remove</b>'' ')
  603. $dummyedit2 = $replace($dummyedit,'<b>Call</b>',$dummyedit1)
  604. pl $dummyedit2
  605. jump 'din_bad_as1'
  606. end
  607. killvar 'dummyas'
  608. killvar 'dummyedit'
  609. killvar 'dummyedit1'
  610. killvar 'dummyedit2'
  611. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  612. !dynamic $telefon['print']
  613. end &! --- Edit_Custom_list ---
  614. if $ARGS[0] = 'mobilaraz':
  615. cls
  616. cla
  617. gs'din_bad'
  618. $caller = '<<$telsob>>'
  619. gs 'telefon','phone_balance'
  620. gs 'telefon','phone_call_receive'
  621. willAgree = (rand(0, 10) > 3)
  622. '"Yes, I''m listening," says a voice from the speaker.'
  623. if month > 5 and temper > 20 and sunWeather = 1:
  624. act 'Invite to the park':
  625. cla
  626. '"Let''s go for a walk in the park."'
  627. if willAgree:
  628. '<<$telsob>>, "See you in the park in an hour."'
  629. act 'Go':gt 'parksvid'
  630. else
  631. gs 'telefon','telotkaz',$telsob
  632. end
  633. end
  634. end
  635. act 'Invite to a movie':
  636. cla
  637. '"Want to go see a movie?"'
  638. if willAgree:
  639. '<<$telsob>>, "See you at the movie theater in an hour."'
  640. act 'Go':gt 'kinosvid'
  641. else
  642. gs 'telefon','telotkaz',$telsob
  643. end
  644. end
  645. act 'Invite to the pool hall':
  646. cla
  647. '"Let''s play pool."'
  648. if willAgree:
  649. '<<$telsob>>, "See you at the pool hall in an hour."'
  650. act 'Go':gt 'billsvid'
  651. else
  652. gs 'telefon','telotkaz',$telsob
  653. end
  654. end
  655. act 'Invite to the cafe':
  656. cla
  657. '"Let''s go to the cafe."'
  658. if willAgree:
  659. '<<$telsob>>, "See you at the cafe in an hour."'
  660. act 'Go':gt 'kafesvid'
  661. else
  662. gs 'telefon','telotkaz',$telsob
  663. end
  664. end
  665. act 'Invite to the casino':
  666. cla
  667. '"Let''s go to the casino."'
  668. if willAgree:
  669. '<<$telsob>>, "See you in the casino in an hour."'
  670. act 'Go':gt 'kazinosvid'
  671. else
  672. gs 'telefon','telotkaz',$telsob
  673. end
  674. end
  675. act 'Hangup':gt 'telefon', 'fin'
  676. end
  677. !----------------End Old Telephone----------------------------
  678. !-----------------------------------------------------------------------------
  679. ! Support for Hardcoded Lovers (BF/GF)
  680. if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1:
  681. cls
  682. cla
  683. gs'din_bad'
  684. lover_number = ARGS[1]
  685. $caller = '<<$loverdesc[lover_number]>>'
  686. $telsob = $caller
  687. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  688. gs 'telefon','phone_balance'
  689. gs 'telefon','phone_call_receive'
  690. willAgree = (rand(0, 10) > 3)
  691. '"Yes, I''m listening," says a voice from the speaker.'
  692. if month > 5 and temper > 20 and sunWeather = 1:
  693. act 'Invite to the park':
  694. cla
  695. '"Let''s go for a walk in the park."'
  696. if willAgree:
  697. '<<$telsob>>, "See you in the park in an hour."'
  698. act 'Go': gt 'parksvid'
  699. else
  700. gs 'telefon','telotkaz',$telsob
  701. end
  702. end
  703. end
  704. act 'Invite to a movie':
  705. cla
  706. '"Want to go see a movie?"'
  707. if willAgree:
  708. '<<$telsob>>, "See you at the movie theater in an hour."'
  709. act 'Go': gt 'kinosvid'
  710. else
  711. gs 'telefon','telotkaz',$telsob
  712. end
  713. end
  714. if $home_town = 'city':
  715. act 'Invite to the pool hall':
  716. cla
  717. '"Let''s play pool."'
  718. if willAgree:
  719. '<<$telsob>>, "See you at the pool hall in an hour."'
  720. act 'Go': gt 'billsvid'
  721. else
  722. gs 'telefon','telotkaz',$telsob
  723. end
  724. end
  725. end
  726. act 'Invite to the cafe':
  727. cla
  728. '"Let''s go to the cafe."'
  729. if willAgree:
  730. '<<$telsob>>, "See you at the cafe in an hour."'
  731. act 'Go': gt 'kafesvid'
  732. else
  733. gs 'telefon','telotkaz',$telsob
  734. end
  735. end
  736. act 'Invite to the casino':
  737. cla
  738. '"Let''s go to the casino."'
  739. if willAgree:
  740. '<<$telsob>>, "See you in the casino in an hour."'
  741. act 'Go': gt 'kazinosvid'
  742. else
  743. gs 'telefon','telotkaz',$telsob
  744. end
  745. end
  746. act 'I think we should break up...':
  747. cla
  748. 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  749. gs 'lover', 'remove', lover_number
  750. act 'Hangup':gt 'telefon', 'fin'
  751. end
  752. act 'Hangup':gt 'telefon', 'fin'
  753. end
  754. if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 0:
  755. cls
  756. cla
  757. gs'din_bad'
  758. lover_number = ARGS[1]
  759. $caller = '<<$loverdesc[lover_number]>>'
  760. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  761. gs 'telefon','phone_balance'
  762. gs 'telefon','phone_call_receive'
  763. willAgree = (rand(0, 10) > 3)
  764. '"Yes, I''m listening," says a voice from the speaker.'
  765. if month > 5 and temper > 20 and sunWeather = 1:
  766. act 'Invite to the park':
  767. cla
  768. '"Let''s go for a walk in the park."'
  769. if willAgree:
  770. '<<$loverdesc[lover_number]>>, "See you in the park in an hour."'
  771. act 'Go':gt 'svidboy', 'parksvid'
  772. else
  773. gs 'telefon','telotkaz',$loverdesc[lover_number]
  774. end
  775. end
  776. end
  777. act 'Invite to a movie':
  778. cla
  779. '"Want to go see a movie?"'
  780. if willAgree:
  781. '<<$loverdesc[lover_number]>>, "See you at the movie theater in an hour."'
  782. act 'Go':gt 'svidboy', 'kinosvid'
  783. else
  784. gs 'telefon','telotkaz',$loverdesc[lover_number]
  785. end
  786. end
  787. if $home_town = 'city':
  788. act 'Invite to the pool hall':
  789. cla
  790. '"Let''s play pool."'
  791. if willAgree:
  792. '<<$loverdesc[lover_number]>>, "See you at the pool hall in an hour."'
  793. act 'Go':gt 'svidboy', 'billsvid'
  794. else
  795. gs 'telefon','telotkaz',$loverdesc[lover_number]
  796. end
  797. end
  798. end
  799. act 'Invite to the cafe':
  800. cla
  801. '"Let''s go to the cafe."'
  802. if willAgree:
  803. '<<$loverdesc[lover_number]>>, "See you at the cafe in an hour."'
  804. act 'Go':gt 'svidboy', 'kafesvid'
  805. else
  806. gs 'telefon','telotkaz',$loverdesc[lover_number]
  807. end
  808. end
  809. act 'I think we should break up...':
  810. cla
  811. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  812. gs 'lover', 'remove', lover_number
  813. act 'Hangup':gt 'telefon', 'fin'
  814. end
  815. act 'Hangup':gt 'telefon', 'fin'
  816. end
  817. if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
  818. cla
  819. clr
  820. lover_number = ARGS[1]
  821. ring = 0
  822. lover_days = daystart - loverday[lover_number]
  823. !gs 'stat'
  824. !gs 'telefon','phone_call_receive'
  825. svetrand = rand(0, 5)
  826. if svetrand = 0:$sveta = 'cutie'
  827. if svetrand = 1:$sveta = 'honey'
  828. if svetrand = 2:$sveta = 'sweetie'
  829. if svetrand = 3:$sveta = 'baby'
  830. if svetrand = 4:$sveta = 'hot stuff'
  831. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  832. 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?'
  833. act 'Reply':
  834. cla
  835. '"Pretty good, you?"'
  836. '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
  837. if (pregchem / 24) <= lover_days and knowpreg = 1 and pregtalk = 0:
  838. act 'Tell him he''s going to be a dad':
  839. cla
  840. pregtalk = 1
  841. '"Honey, I''m pregnant with your child."'
  842. if haraklover[lover_number] = 0:
  843. if loverrelation[lover_number] >= 90:
  844. loverlove[lover_number] = 1
  845. '<<$loverdesc[lover_number]>>, "This is wonderful! We have to celebrate!"'
  846. 'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it on principle, but first he wants you to meet his parents.'
  847. '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, and have well-groomed and curled hair and makeup in moderation.'
  848. 'When you are totally ready <<$loverdesc[lover_number]>> will take you to his parents.'
  849. act 'Hang up':gt 'telefon', 'fin'
  850. act 'Meet tonight':
  851. cla
  852. svidanie[lover_number] = 1
  853. '"How about this evening?"'
  854. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  855. act 'Pick a time':
  856. cla
  857. meetday[lover_number] = daystart
  858. 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]")
  859. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  860. '"How about <<meethour[lover_number]>>:00?"'
  861. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  862. act 'Hang up':gt 'telefon', 'fin'
  863. end
  864. end
  865. elseif loverrelation[lover_number] < 90:
  866. money += 20000
  867. '<<$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.'
  868. act 'Hang up':gt 'telefon', 'fin'
  869. end
  870. elseif haraklover[lover_number] = 1:
  871. money += 20000
  872. '<<$loverdesc[lover_number]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  873. act 'Hang up':gt 'telefon', 'fin'
  874. elseif haraklover[lover_number] = 2:
  875. pregtalk = 0
  876. '<<$loverdesc[lover_number]>>, "What? You whore! Someone fucked your pussy, and now you drop it on me. You''re dumped.'
  877. gs 'lover', 'remove', lover_number
  878. act 'Hang up':gt 'telefon', 'fin'
  879. end
  880. end
  881. elseif (pregchem / 24) > lover_days and knowpreg = 1 and pregtalk = 0:
  882. act 'Honey, you will soon become a dad':
  883. cla
  884. loverrelation[lover_number] = 0
  885. '"Honey, I''m pregnant with your child."'
  886. '<<$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 else''s, go and tell him. I don''t want to see you again, goodbye."'
  887. act 'Hang up.':gt 'telefon', 'fin'
  888. end
  889. elseif week > 1 and week < 5 and workKafe = 1:
  890. act 'Sorry, I''m working today':
  891. cla
  892. '"Sorry, I''m working today."'
  893. '<<$loverdesc[lover_number]>>, "Okay, I''ll call tomorrow."'
  894. act 'Hang up':gt 'telefon', 'fin'
  895. end
  896. end
  897. act 'Tonight':
  898. cla
  899. loverrelation[lover_number] += 1
  900. svidanie[lover_number] = 1
  901. meetday[lover_number] = daystart
  902. '"How about this evening?"'
  903. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  904. act 'Pick a time':
  905. cla
  906. 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]")
  907. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  908. '"How about <<meethour[lover_number]>>:00?."'
  909. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  910. act 'Hang up':gt 'telefon', 'fin'
  911. end
  912. end
  913. act 'Maybe tomorrow':
  914. cla
  915. loverrelation[lover_number] -= 1
  916. '"I''m busy today. Call tomorrow."'
  917. if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Suck my dick.' & gs 'lover', 'remove', lover_number
  918. if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.'
  919. act 'Hang up': gt 'telefon', 'fin'
  920. end
  921. act 'I think we should break up...':
  922. cla
  923. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  924. gs 'lover', 'remove', lover_number
  925. act 'Hang up': gt 'telefon', 'fin'
  926. end
  927. end
  928. act 'Hang up (end relationship)':
  929. cla
  930. gs 'lover', 'remove', lover_number
  931. gt 'telefon', 'fin'
  932. end
  933. end
  934. if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 1:
  935. cla
  936. clr
  937. lover_number = ARGS[1]
  938. ring = 0
  939. lover_days = daystart - loverday[lover_number]
  940. !gs 'stat'
  941. !gs 'telefon','phone_call_receive'
  942. svetrand = rand(0, 5)
  943. if svetrand = 0:$sveta = 'cutie'
  944. if svetrand = 1:$sveta = 'honey'
  945. if svetrand = 2:$sveta = 'sweetie'
  946. if svetrand = 3:$sveta = 'baby'
  947. if svetrand = 4:$sveta = 'hot stuff'
  948. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  949. 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?'
  950. act 'Reply':
  951. cla
  952. '"Pretty good, you?"'
  953. '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
  954. act 'Tonight':
  955. cla
  956. loverrelation[lover_number] += 1
  957. svidanie[lover_number] = 1
  958. meetday[lover_number] = daystart
  959. '"How about this evening?"'
  960. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  961. act 'Pick a time':
  962. cla
  963. 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]")
  964. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  965. '"How about <<meethour[lover_number]>>:00?."'
  966. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  967. act 'Hang up':gt 'telefon', 'fin'
  968. end
  969. end
  970. act 'Maybe tomorrow':
  971. cla
  972. loverrelation[lover_number] -= 1
  973. '"I''m busy today. Call tomorrow."'
  974. if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Fuck off.' & gs 'lover', 'remove', lover_number
  975. if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.'
  976. act 'Hang up': gt 'telefon', 'fin'
  977. end
  978. act 'I think we should break up...':
  979. cla
  980. 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  981. gs 'lover', 'remove', lover_number
  982. act 'Hang up': gt 'telefon', 'fin'
  983. end
  984. end
  985. act 'Hang up (end relationship)':
  986. cla
  987. gs 'lover', 'remove', lover_number
  988. gt 'telefon', 'fin'
  989. end
  990. end
  991. !---------------------- End of Lover support
  992. if $ARGS[0] = 'Phone_notebook':
  993. gs 'housing', 'rent'
  994. $telefon['body'] = '
  995. <font size=6>Planner</font><br>
  996. <img src="<<FUNC(''$phone_theme'')>>icon_notebook.png" height="80" width="80"><br>
  997. <<year>>-<<$month>>-<<day>>, <<$week[week]>><br><br>'
  998. rent1 = -1
  999. rent4 = -1
  1000. if home_owned[1] > 0 and ArendHouseSL > 0:rent1 = ArendHouseSL
  1001. if home_owned[4] > 0 and ArendHouseSL4 > 0:rent4 = ArendHouseSL4
  1002. d1 = day
  1003. w1 = week
  1004. m1 = month
  1005. y1 = year
  1006. i = 0
  1007. $list = '<br>&emsp;<b>•</b> '
  1008. :pnotebook
  1009. daynum = daystart+i
  1010. $calendarday = ''
  1011. if m1 = 1 and d1 >= 1 and d1 <= 8:
  1012. $calendarday += $list + 'New Year holidays'
  1013. if d1 = 1:$calendarday += ', New Year'
  1014. if d1 = 7:$calendarday += ', Christmas'
  1015. end
  1016. if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day'
  1017. if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day'
  1018. if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day'
  1019. if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday'
  1020. if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day'
  1021. if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day'
  1022. if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday'
  1023. if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day'
  1024. if storyline = 1 and SchoolAtestat = 0:
  1025. if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.'
  1026. if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.'
  1027. if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.'
  1028. if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.'
  1029. if y1 = 2017 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!'
  1030. if m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.'
  1031. if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.'
  1032. if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.'
  1033. if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.'
  1034. end
  1035. if daynum >= daylastperiod+28 and daynum < daylastperiod+31:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
  1036. if daynum >= daylastperiod+12 and daynum < daylastperiod+14:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
  1037. if pregchem >= 6720:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
  1038. if w1 < 5 and (workSec >= 1 or BurgerQW['Secretary'] = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
  1039. if w1 < 5 and workFabrika = 1:
  1040. $calendarday += $list + 'Working as a seamstress. '
  1041. if age < 18:$calendarday += '<i>(16:00 - 20:00)</i>' else $calendarday += '<i>(8:00 - 16:00)</i>'
  1042. end
  1043. if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as a nurse. <i>(8:00 - 16:00)</i>'
  1044. if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as a masseuse. <i>(9:00 - 17:00)</i>'
  1045. !! if maidqw > 0:$calendarday += '<br>&emsp;<b>•</b> Working as maid. <i>(16:00 - 19:00)</i>'
  1046. if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <i><<$porndesc[pfilmday[i]]>></i>'
  1047. 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 + '<i>Pay day!</i>'
  1048. if d1 = nyp_day and m1 = 12 and SchoolAtestat = 0 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!'
  1049. if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum:
  1050. if sisboytrioQW = 1:
  1051. $calendarday += $list + '<font color="orange">Threesome with Anya and Roma at 18:00</font>'
  1052. else
  1053. $calendarday += $list + '<font color="orange">Anya having sex with Roma at 18:00</font>'
  1054. end
  1055. end
  1056. if sisboyparty = 2 and sisboyparty_day+1 = daynum:$calendarday += $list + '<font color="orange">Party at Rex''s, gathering before 18:00 at Community Center</font>'
  1057. if rent1 = 0:$calendarday += $list + 'Rent on city apartment expires!'
  1058. if rent4 = 0:$calendarday += $list + 'Rent on Pushkin apartment expires!'
  1059. if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!'
  1060. if kid > 0:
  1061. k1 = kid
  1062. :kiddieloop
  1063. if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <<kid>>. baby!'
  1064. if k1 > 1:k1 -= 1 & jump 'kiddieloop'
  1065. end
  1066. if $calendarday ! '':
  1067. $telefon['body'] += '<b><<$monthName[m1]>> <<d1>>, <<$week[w1]>>:</b>'
  1068. $telefon['body'] += $calendarday +'<br>'
  1069. end
  1070. if i < 14:
  1071. rent1 -= 1
  1072. rent4 -= 1
  1073. i += 1
  1074. w1 += 1
  1075. if w1 > 7:w1 = 1
  1076. d1 += 1
  1077. if monthsend[m1] < d1:
  1078. m1 += 1 & d1 = 1
  1079. if m1 = 13: m1 = 1 & y1 += 1
  1080. end
  1081. jump 'pnotebook'
  1082. end
  1083. killvar 'calendarday'
  1084. killvar 'rent1'
  1085. killvar 'rent4'
  1086. killvar 'd1'
  1087. killvar 'w1'
  1088. killvar 'm1'
  1089. killvar 'y1'
  1090. killvar 'daynum'
  1091. dynamic $telefon['print']
  1092. end &! --- Phone_notebook ---
  1093. !!----------------------------------------Camera-------------------------------------------------
  1094. !!for viewing photos on your phone
  1095. if $ARGS[0] = 'Phone_pictures':
  1096. gt 'phone_selfies', 'selfies'
  1097. end
  1098. !!picking the selfie image when taking photos, this sets the location variable
  1099. !{
  1100. $ARGS[1] is phone location if left blank it is a generic selfie (one of the locations in $selfieLoc[])
  1101. $ARGS[2] is for flashing when clothed if left blank then it is not flashing
  1102. }
  1103. if $ARGS[0] = 'Phone_camera_selfie':
  1104. minut += rand(5,7)
  1105. if $ARGS[1] <> '':
  1106. gs 'telefon', 'Phone_selfie_image', $ARGS[1], $ARGS[2]
  1107. else
  1108. phone_rand = RAND(1,selfieClotot[0])
  1109. dynamic '<<$selfieLoc[0]>>_closelfie[<<phone_rand>>] = 1'
  1110. gs 'stat'
  1111. if usePopUps = 1:
  1112. msg '<img src="images/pc/activities/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><<phone_rand>>.jpg">'
  1113. else
  1114. view 'images/pc/activities/selfies/<<$selfieLoc[0]>>/clothed/<<$selfieFilePrefix[0]>><<phone_rand>>.jpg'
  1115. end
  1116. end
  1117. !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
  1118. !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
  1119. !msg '<img src="images/system/phone/phone_selfie<<phone_rand>>.jpg">'
  1120. end
  1121. !!taking selfies, this chooses a random image for the location for clothed, underwear and nude
  1122. !{
  1123. $ARGS[1] is phone location (one of the locations in $selfieLoc[])
  1124. $ARGS[2] is for flashing when clothed if left blank then it is not flashing
  1125. }
  1126. if $ARGS[0] = 'Phone_selfie_image':
  1127. if $ARGS[2] = '':
  1128. if PCloswimwear = 1:
  1129. !!changing to and unmixed variable so the rng will work
  1130. if Enable_Android = 1:
  1131. dynamic 'temp_swim = <<selfieSwimtot[arrpos(''$selfieLoc'', $ARGS[1],1)]>>'
  1132. else
  1133. dynamic 'temp_swim = <<selfieSwimtot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
  1134. end
  1135. if temp_swim > 0:
  1136. phone_rand = rand(1,temp_swim)
  1137. !!Setting the image owned flag to 1
  1138. dynamic '<<$ARGS[1]>>_swim[<<phone_rand>>] = 1'
  1139. gs 'stat'
  1140. if usePopUps = 1:
  1141. msg '<img src="images/pc/activities/selfies/<<$ARGS[1]>>/bikini/<<phone_rand>>.jpg">'
  1142. else
  1143. view 'images/pc/activities/selfies/<<$ARGS[1]>>/bikini/<<phone_rand>>.jpg'
  1144. end
  1145. end
  1146. elseif $clothingworntype ! 'nude':
  1147. !!changing to and unmixed variable so the rng will work
  1148. if Enable_Android = 1:
  1149. dynamic 'temp_clotot = <<selfieClotot[arrpos(''$selfieLoc'', $ARGS[1],1)]>>'
  1150. else
  1151. dynamic 'temp_clotot = <<selfieClotot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
  1152. end
  1153. if temp_clotot > 0:
  1154. phone_rand = rand(1,temp_clotot)
  1155. !!Setting the image owned flag to 1
  1156. dynamic '<<$ARGS[1]>>_closelfie[<<phone_rand>>] = 1'
  1157. gs 'stat'
  1158. if usePopUps = 1:
  1159. msg '<img src="images/pc/activities/selfies/<<$ARGS[1]>>/clothed/<<phone_rand>>.jpg">'
  1160. else
  1161. view 'images/pc/activities/selfies/<<$ARGS[1]>>/clothed/<<phone_rand>>.jpg'
  1162. end
  1163. end
  1164. elseif $pantyworntype ! 'none':
  1165. if Enable_Android = 1:
  1166. dynamic 'temp_undtot = <<selfieUndtot[arrpos(''$selfieLoc'', $ARGS[1],1)]>>'
  1167. else
  1168. dynamic 'temp_undtot = <<selfieUndtot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
  1169. end
  1170. if temp_undtot > 0:
  1171. phone_rand = rand(1,temp_undtot)
  1172. dynamic '<<$ARGS[1]>>_undselfie[<<phone_rand>>] = 1'
  1173. gs 'stat'
  1174. if usePopUps = 1:
  1175. msg '<img src="images/pc/activities/selfies/<<$ARGS[1]>>/underwear/<<phone_rand>>.jpg">'
  1176. else
  1177. view 'images/pc/activities/selfies/<<$ARGS[1]>>/underwear/<<phone_rand>>.jpg'
  1178. end
  1179. end
  1180. else
  1181. if Enable_Android = 1:
  1182. dynamic 'temp_nudtot = <<selfieNudtot[arrpos(''$selfieLoc'', $ARGS[1],1)]>>'
  1183. else
  1184. dynamic 'temp_nudtot = <<selfieNudtot[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
  1185. end
  1186. if temp_nudtot > 0:
  1187. phone_rand = rand(1,temp_nudtot)
  1188. dynamic '<<$ARGS[1]>>_nudselfie[<<phone_rand>>] = 1'
  1189. gs 'stat'
  1190. if usePopUps = 1:
  1191. msg '<img src="images/pc/activities/selfies/<<$ARGS[1]>>/nude/<<phone_rand>>.jpg">'
  1192. else
  1193. view 'images/pc/activities/selfies/<<$ARGS[1]>>/nude/<<phone_rand>>.jpg'
  1194. end
  1195. end
  1196. end
  1197. else
  1198. if $ARGS[2] = 'tits':
  1199. if Enable_Android = 1:
  1200. dynamic 'temp_titflash = <<selfieTitflash[arrpos(''$selfieLoc'', $ARGS[1],1)]>>'
  1201. else
  1202. dynamic 'temp_titflash = <<selfieTitflash[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
  1203. end
  1204. if temp_titflash > 0:
  1205. phone_rand = rand(1,temp_titflash)
  1206. dynamic '<<$ARGS[1]>>_titflash[<<phone_rand>>] = 1'
  1207. gs 'stat'
  1208. if usePopUps = 1:
  1209. msg '<img src="images/pc/activities/selfies/<<$ARGS[1]>>/titflash/<<phone_rand>>.jpg">'
  1210. else
  1211. view 'images/pc/activities/selfies/<<$ARGS[1]>>/titflash/<<phone_rand>>.jpg'
  1212. end
  1213. end
  1214. elseif $ARGS[2] = 'ass':
  1215. if Enable_Android = 1:
  1216. dynamic 'temp_assflash = <<selfieAssflash[arrpos(''$selfieLoc'', $ARGS[1],1)]>>'
  1217. else
  1218. dynamic 'temp_assflash = <<selfieAssflash[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
  1219. end
  1220. if temp_assflash > 0:
  1221. phone_rand = rand(1,temp_assflash)
  1222. dynamic '<<$ARGS[1]>>_assflash[<<phone_rand>>] = 1'
  1223. gs 'stat'
  1224. if usePopUps = 1:
  1225. msg '<img src="images/pc/activities/selfies/<<$ARGS[1]>>/assflash/<<phone_rand>>.jpg">'
  1226. else
  1227. view 'images/pc/activities/selfies/<<$ARGS[1]>>/assflash/<<phone_rand>>.jpg'
  1228. end
  1229. end
  1230. elseif $ARGS[2] = 'pussy':
  1231. if Enable_Android = 1:
  1232. dynamic 'temp_pussyflash = <<selfiePussyflash[arrpos(''$selfieLoc'', $ARGS[1],1)]>>'
  1233. else
  1234. dynamic 'temp_pussyflash = <<selfiePussyflash[arrpos(1, ''$selfieLoc'', $ARGS[1])]>>'
  1235. end
  1236. if temp_pussyflash > 0:
  1237. phone_rand = rand(1,temp_pussyflash)
  1238. dynamic '<<$ARGS[1]>>_pussyflash[<<phone_rand>>] = 1'
  1239. gs 'stat'
  1240. if usePopUps = 1:
  1241. msg '<img src="images/pc/activities/selfies/<<$ARGS[1]>>/pussyflash/<<phone_rand>>.jpg">'
  1242. else
  1243. view 'images/pc/activities/selfies/<<$ARGS[1]>>/pussyflash/<<phone_rand>>.jpg'
  1244. end
  1245. end
  1246. end
  1247. end
  1248. end
  1249. !!taking selfies in the shower or bath
  1250. if $ARGS[0] = 'Phone_selfie_image_bathing':
  1251. minut += rand(5,7)
  1252. if $ARGS[1] = 'shower':
  1253. !!changing to and unmixed variable so the rng will work
  1254. if Enable_Android = 1:
  1255. dynamic 'temp_showertot = <<selfieShowertot[arrpos(''$selfieLoc'', ''bathroom'',1)]>>'
  1256. else
  1257. dynamic 'temp_showertot = <<selfieShowertot[arrpos(1, ''$selfieLoc'', ''bathroom'')]>>'
  1258. end
  1259. phone_rand = rand(1,temp_showertot)
  1260. !!Setting the image owned flag to 1
  1261. dynamic 'bathroom_showerselfie[<<phone_rand>>] = 1'
  1262. gs 'stat'
  1263. if usePopUps = 1:
  1264. msg '<img src="images/pc/activities/selfies/bathroom/shower/<<phone_rand>>.jpg">'
  1265. else
  1266. view 'images/pc/activities/selfies/bathroom/shower/<<phone_rand>>.jpg'
  1267. end
  1268. elseif $ARGS[1] = 'bath':
  1269. if Enable_Android = 1:
  1270. dynamic 'temp_bathtot = <<selfieBathtot[arrpos(''$selfieLoc'', ''bathroom'',1)]>>'
  1271. else
  1272. dynamic 'temp_bathtot = <<selfieBathtot[arrpos(1, ''$selfieLoc'', ''bathroom'')]>>'
  1273. end
  1274. phone_rand = rand(1,temp_bathtot)
  1275. dynamic 'bathroom_bathselfie[<<phone_rand>>] = 1'
  1276. gs 'stat'
  1277. if usePopUps = 1:
  1278. msg '<img src="images/pc/activities/selfies/bathroom/bath/<<phone_rand>>.jpg">'
  1279. else
  1280. view 'images/pc/activities/selfies/bathroom/bath/<<phone_rand>>.jpg'
  1281. end
  1282. end
  1283. end
  1284. !!for taking photos - only selfies for now
  1285. if $ARGS[0] = 'Phone_camera':
  1286. gs 'phone_selfies', 'Phone_selfie_totals'
  1287. if $locclass = 'bedr':
  1288. $phone_loc = 'bedroom'
  1289. elseif $locclass = 'kitr':
  1290. $phone_loc = 'kitchen'
  1291. elseif $locclass = 'livingr':
  1292. $phone_loc = 'livingroom'
  1293. elseif $locclass = 'changingroom':
  1294. $phone_loc = 'changingroom'
  1295. elseif $locclass = 'city_park':
  1296. $phone_loc = 'park'
  1297. elseif $locclass = 'lockeroom':
  1298. $phone_loc = 'lockeroom'
  1299. elseif $locclass = 'beach':
  1300. $phone_loc = 'beach'
  1301. elseif $locclass = 'beach':
  1302. $phone_loc = 'beach'
  1303. elseif $locclass = 'classroom':
  1304. $phone_loc = 'classroom'
  1305. elseif $locclass = 'school_bathroom':
  1306. $phone_loc = 'school_bathroom'
  1307. elseif $locclass = 'restroom':
  1308. $phone_loc = 'restroom'
  1309. elseif $location_type = 'bathroom':
  1310. $phone_loc = 'bathroom'
  1311. else
  1312. $phone_loc = ''
  1313. end
  1314. $telefon['body'] = '<font size=6>Camera</font><br>
  1315. <img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"><br><br>'
  1316. !! Take a selfie depending on which clothes you are wearing
  1317. $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'', ''<<$phone_loc>>'' "><b>Take a selfie</b></a><br>'
  1318. !! Flashing selfie
  1319. if $clothingworntype ! 'nude' and $phone_loc <> '':
  1320. if Enable_Android = 1:
  1321. locIndex = arrpos('$selfieLoc', $phone_loc,1)
  1322. else
  1323. locIndex = arrpos(1, '$selfieLoc', $phone_loc)
  1324. end
  1325. if (pcs_inhib >= 35 or exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and dyneval("result = <<selfieTitflash[locIndex]>>") > 0:
  1326. $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>'
  1327. end
  1328. if (exhibitionist_lvl > 0 or $phone_loc = 'bedroom') and dyneval("result = <<selfieAssflash[locIndex]>>") > 0:
  1329. $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>'
  1330. end
  1331. if (exhibitionist_lvl > 1 or $phone_loc = 'bedroom') and dyneval("result = <<selfiePussyflash[locIndex]>>") > 0:
  1332. $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>'
  1333. end
  1334. end
  1335. dynamic $telefon['print']
  1336. end
  1337. !!-----------------------------------end of Camera------------------------------------------
  1338. !!-----------------------------------start of sms------------------------------------------
  1339. !{
  1340. Send SMS lists the current contacts, then clicking on a contact gives a list of messages that can be sent.
  1341. Receive messages lists the sms messages sent to the player, these can be deleted, they will be in bold until read.
  1342. To add an incoming message
  1343. 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'
  1344. A1 is the NPC code (A1 is Dmitriy Nosov "Dimka")
  1345. You can have up to 4 pictures attached to the message
  1346. To add an out going message that can be sent
  1347. gs 'telefon', 'add_sms_to_send', 'A1', 'Test message the text goes here'
  1348. To add a contact if it doesn't exist
  1349. if arrpos('$contact', 'A1') = -1: gs 'telefon', 'AddContact', 'A1', 'images/characters/pavlovsk/school/head/1.jpg', "", "1 = 0", "", "", 0
  1350. SMS Arrays storing received messages and messages that can be sent
  1351. Received Messages
  1352. telefon['UnreadSMS'] = number of unread SMS messages
  1353. $SMSContact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
  1354. $SMSMessage[] = text for the sms message
  1355. $SMSTime[] = date time the message was received
  1356. $SMSPicture1[] = url for first picture sent as part of the message
  1357. $SMSPicture2[] = url for second picture sent as part of the message
  1358. $SMSPicture3[] = url for third picture sent as part of the message
  1359. $SMSPicture4[] = url for fourth picture sent as part of the message
  1360. SMSMessageRead[] = 0 unread, 1 read
  1361. Send Messages
  1362. $SMSSendContact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
  1363. $SMSSendMessage[] = text for the sms message
  1364. $SMSSendCode[] = Code to execute for Incoming call
  1365. SMSSendRepeatable[] = 0 delete option after send, 1 don't delete option
  1366. $SMSSendDeleteId[] = id passed by the caller
  1367. }
  1368. if $ARGS[0] = 'Phone_sms':
  1369. $telefon['body'] = '
  1370. <font size=6>SMS</font><br>
  1371. <img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"><br>'
  1372. $telefon['body'] += '<b><a href="exec:gs ''telefon'', ''send_sms''">Send new SMS</a></b><br>'
  1373. $telefon['body'] += '<TABLE cellspacing="0" width="80%"><TR><TH>icon</TH><TH>Name</TH><TH align="right">Received</TH><TH></TH></TR>'
  1374. !!iterating all Messages
  1375. !!reset and recalculate unread messages count, in case they get out of sync
  1376. telefon['UnreadSMS'] = 0
  1377. i=0
  1378. :smsloop
  1379. if i < arrsize('$SMSContact'):
  1380. !! if the person sending is in the contact list display the names and icon
  1381. telefon['contactid'] = arrpos('$contact',$SMSContact[i])
  1382. if telefon['contactid'] = -1:
  1383. $telefonCon['NPCName'] = ''
  1384. $telefonCon['Icon'] = 'icon_na.png'
  1385. else
  1386. $telefonCon['NPCName'] = $npc_nickname[$contact[telefon['contactid']]]
  1387. $telefonCon['Icon'] = $contactIcon[telefon['contactid']]
  1388. end
  1389. if SMSMessageRead[i] = 0: telefon['UnreadSMS'] += 1
  1390. $telefon['body'] += dyneval($telefon['SMS'],i,$telefonCon['Icon'],$telefonCon['NPCName'],$SMSTime[i],SMSMessageRead[i])
  1391. i += 1
  1392. jump 'smsloop'
  1393. end
  1394. $telefon['body'] += '</TABLE><br>'
  1395. dynamic $telefon['print']
  1396. killvar 'i'
  1397. end &! --- Phone_sms ---
  1398. !{
  1399. New SMS Message
  1400. If NPC is not in the contacts list of the phone it will be displayed as unknown until the contact has been added
  1401. $ARGS[1] = NPC code for contact. ('A129', 'A29', 'B13', 'C14')
  1402. $ARGS[2] = Message text to be displayed
  1403. $ARGS[3] = path to a picture to be displayed (optional)
  1404. $ARGS[4] = path to a picture to be displayed (optional)
  1405. $ARGS[5] = path to a picture to be displayed (optional)
  1406. $ARGS[6] = path to a picture to be displayed (optional)
  1407. }
  1408. if $ARGS[0] = 'add_sms':
  1409. $SMSContact[telefon['SMSCount']] = $ARGS[1]
  1410. $SMSMessage[telefon['SMSCount']] = $ARGS[2]
  1411. $SMSTime[telefon['SMSCount']] = '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
  1412. $SMSPicture1[telefon['SMSCount']] = $ARGS[3]
  1413. $SMSPicture2[telefon['SMSCount']] = $ARGS[4]
  1414. $SMSPicture3[telefon['SMSCount']] = $ARGS[5]
  1415. $SMSPicture4[telefon['SMSCount']] = $ARGS[6]
  1416. SMSMessageRead[telefon['SMSCount']] = 0
  1417. telefon['SMSCount'] += 1
  1418. telefon['UnreadSMS'] += 1
  1419. end
  1420. if $ARGS[0] = 'delete_sms':
  1421. telefon['SMSid'] = ARGS[1]
  1422. killvar '$SMSContact', telefon['SMSid']
  1423. killvar '$SMSMessage', telefon['SMSid']
  1424. killvar '$SMSTime', telefon['SMSid']
  1425. killvar '$SMSPicture1', telefon['SMSid']
  1426. killvar '$SMSPicture2', telefon['SMSid']
  1427. killvar '$SMSPicture3', telefon['SMSid']
  1428. killvar '$SMSPicture4', telefon['SMSid']
  1429. killvar 'SMSMessageRead', telefon['SMSid']
  1430. telefon['SMSCount'] -= 1
  1431. gs 'telefon', 'Phone_sms'
  1432. end
  1433. if $ARGS[0] = 'show_sms':
  1434. telefon['SMSid'] = ARGS[1]
  1435. !!set to read and update the number of unread messages
  1436. if SMSMessageRead[telefon['SMSid']] = 0:
  1437. telefon['UnreadSMS'] -= 1
  1438. SMSMessageRead[telefon['SMSid']] = 1
  1439. end
  1440. !! Get image and name if in phone contacts otherwise show unknown
  1441. telefon['contactid'] = arrpos('$contact',$SMSContact[telefon['SMSid']])
  1442. if telefon['contactid'] = -1:
  1443. $telefonCon['NPCName'] = ''
  1444. $telefonCon['Icon'] = 'icon_na.png'
  1445. else
  1446. $telefonCon['NPCName'] = $npc_nickname[$contact[telefon['contactid']]]
  1447. $telefonCon['Icon'] = $contactIcon[telefon['contactid']]
  1448. end
  1449. !!If file extension is not given, .png is assumed
  1450. if instr($telefonCon['Icon'],'.') = 0:
  1451. $telefonCon['Icon'] += '.png'
  1452. end
  1453. !!If path is not given, default phone icon path is assumed
  1454. if instr($telefonCon['Icon'],'/') = 0:
  1455. $telefonCon['Icon'] = 'images/system/phone/icons/' + $telefonCon['Icon']
  1456. end
  1457. $telefon['body'] = '
  1458. <font size=6>SMS</font><br>
  1459. <img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"><br>'
  1460. $telefon['body'] += '<TABLE cellspacing="0" width="80%">'
  1461. $telefon['body'] += '<TR><TD><img src="<<$telefonCon[''Icon'']>>"></TD><TD><<$telefonCon[''NPCName'']>></TD></TR>'
  1462. $telefon['body'] += '<TR><TD colspan="2"><<$SMSMessage[telefon[''SMSid'']]>></TD></TR>'
  1463. if $SMSPicture1[telefon['SMSid']] <> '':
  1464. $telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture1[telefon[''SMSid'']]>>"></TD></TR>'
  1465. end
  1466. if $SMSPicture2[telefon['SMSid']] <> '':
  1467. $telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture2[telefon[''SMSid'']]>>"></TD></TR>'
  1468. end
  1469. if $SMSPicture3[telefon['SMSid']] <> '':
  1470. $telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture3[telefon[''SMSid'']]>>"></TD></TR>'
  1471. end
  1472. if $SMSPicture4[telefon['SMSid']] <> '':
  1473. $telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture4[telefon[''SMSid'']]>>"></TD></TR>'
  1474. end
  1475. $telefon['body'] += '</TABLE><br>'
  1476. $telefon['backButton'] = 'gs ''telefon'', ''Phone_sms'''
  1477. dynamic $telefon['print']
  1478. end
  1479. !! This is the formatting function for a row in the SMS message table. SHould be run as a DYNEVAL()
  1480. !{
  1481. SMS Row in messages table
  1482. ARGS[0] = message id
  1483. $ARGS[1] = NPC icon
  1484. $ARGS[2] = NPC Nickname
  1485. $ARGS[3] = Time received
  1486. $ARGS[4] = 0 unread, 1 read
  1487. }
  1488. $telefon['SMS'] = {
  1489. telefon['SMSid'] = ARGS[0]
  1490. $telefon['ContactIcon'] = $ARGS[1]
  1491. $telefon['ContactNickName'] = $ARGS[2]
  1492. $telefon['SMSTime'] = $ARGS[3]
  1493. telefon['SMSStatus'] = ARGS[4]
  1494. !!If file extension is not given, .png is assumed
  1495. if instr($telefon['ContactIcon'],'.') = 0:
  1496. $telefon['ContactIcon'] += '.png'
  1497. end
  1498. !!If path is not given, default phone icon path is assumed
  1499. if instr($telefon['ContactIcon'],'/') = 0:
  1500. $telefon['ContactIcon'] = 'images/system/phone/icons/' + $telefon['ContactIcon']
  1501. end
  1502. !! unread will be bold
  1503. if telefon['SMSStatus'] = 0:
  1504. $telefon['SMSstyle1'] = '<b>'
  1505. $telefon['SMSstyle2'] = '</b>'
  1506. else
  1507. $telefon['SMSstyle1'] = ''
  1508. $telefon['SMSstyle2'] = ''
  1509. end
  1510. $result = '<TR>
  1511. <TD><img src="<<$telefon[''ContactIcon'']>>"></TD>
  1512. <TD><<$telefon[''SMSstyle1'']>><<$telefon[''ContactNickName'']>><<$telefon[''SMSstyle2'']>></TD>
  1513. <TD align="right"><<$telefon[''SMSstyle1'']>><a href="exec:gs ''telefon'', ''show_sms'', <<telefon[''SMSid'']>>"><<$telefon[''SMSTime'']>></a><<$telefon[''SMSstyle2'']>></TD>
  1514. <TD><<$telefon[''SMSstyle1'']>><a href="exec:gs ''telefon'', ''delete_sms'', <<telefon[''SMSid'']>>">Delete</a><<$telefon[''SMSstyle2'']>></TD>
  1515. </TR>'
  1516. }
  1517. !! List of Contacts that you can send sms messages to
  1518. if $ARGS[0] = 'send_sms':
  1519. $telefon['backButton'] = 'gs ''telefon'', ''Phone_sms'''
  1520. $telefon['body'] = '
  1521. <font size=6>Send SMS</font><br>
  1522. <img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"><br>'
  1523. $telefon['body'] += '<TABLE cellspacing="0" width="80%">'
  1524. !!iterating all Contacts
  1525. i=0
  1526. :smscontactloop
  1527. if i < arrsize('$contact'):
  1528. if contactAnon[i] = 0:
  1529. $telefon['body'] += dyneval($telefon['contactsms'],i)
  1530. end
  1531. i += 1
  1532. jump 'smscontactloop'
  1533. end
  1534. $telefon['body'] += '</TABLE><br>'
  1535. dynamic $telefon['print']
  1536. killvar 'i'
  1537. end
  1538. !! This is the formatting function for a row in the Contact List. SHould be run as a DYNEVAL()
  1539. !! $ARGS[0] = index of contact in the conntact arrays
  1540. $telefon['contactsms'] = {
  1541. !! Contact Row in phone contact list
  1542. $telefon['ContactIcon'] = $contactIcon[ARGS[0]]
  1543. $telefon['ContactNPCcode'] = $contact[ARGS[0]]
  1544. !!If file extension is not given, .png is assumed
  1545. if instr($telefon['ContactIcon'],'.') = 0:
  1546. $telefon['ContactIcon'] += '.png'
  1547. end
  1548. !!If path is not given, default phone icon path is assumed
  1549. if instr($telefon['ContactIcon'],'/') = 0:
  1550. $telefon['ContactIcon'] = 'images/system/phone/icons/' + $telefon['ContactIcon']
  1551. end
  1552. $result = '
  1553. <TR>
  1554. <TD><img src="<<$telefon[''ContactIcon'']>>" width="75"></TD>
  1555. <TD><<$npc_nickname[$telefon[''ContactNPCcode'']]>></TD>
  1556. <TD><a href="exec:gs ''telefon'', ''npcSendListSms'', ''<<$telefon[''ContactNPCcode'']>>''">New Message</a></TD>
  1557. </TR>'
  1558. }
  1559. !! List of SMS messages available to be sent to an NPC
  1560. !! $ARGS[1] = NPC code for the contact we want to display messages for
  1561. if $ARGS[0] = 'npcSendListSms':
  1562. $telefon['backButton'] = 'gs ''telefon'', ''send_sms'''
  1563. $telefon['body'] = '
  1564. <font size=6>Send SMS</font><br>
  1565. <img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"><br>'
  1566. $telefon['body'] += '<TABLE cellspacing="0" width="80%">'
  1567. !!iterating all send sms messages
  1568. i=0
  1569. :npcSendListSmsLoop
  1570. if i < arrsize('$SMSSendContact'):
  1571. if $SMSSendContact[i] = $ARGS[1]:
  1572. $telefon['body'] += dyneval($telefon['smsMessageToSend'],i)
  1573. end
  1574. i += 1
  1575. jump 'npcSendListSmsLoop'
  1576. end
  1577. $telefon['body'] += '</TABLE><br>'
  1578. dynamic $telefon['print']
  1579. killvar 'i'
  1580. end
  1581. !! This is the formatting function for a row in the messages to send List. SHould be run as a DYNEVAL()
  1582. !! ARGS[0] = index of the message
  1583. $telefon['smsMessageToSend'] = {
  1584. $telefon['ContactNPCcode'] = $SMSSendContact[ARGS[0]]
  1585. $result = '
  1586. <TR>
  1587. <TD><<$npc_nickname[$telefon[''ContactNPCcode'']]>></TD>
  1588. <TD><a href="exec: gs ''telefon'', ''smsSendMessage'', ''<<ARGS[0]>>''"><<$SMSSendMessage[ARGS[0]]>></a></TD>
  1589. </TR>'
  1590. }
  1591. if $ARGS[0] = 'smsSendMessage':
  1592. dynamic '<<$SMSSendCode[ARGS[1]]>>'
  1593. if SMSSendRepeatable[ARGS[1]] = 0:
  1594. gs 'telefon', 'delete_sms_send_index', ARGS[1]
  1595. end
  1596. gs 'telefon', 'Phone_sms'
  1597. end
  1598. !{
  1599. Add a new message that can be sent by the player
  1600. $ARGS[1] NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
  1601. $ARGS[2] text for the sms message
  1602. $ARGS[3] Code to execute when the sms is sent
  1603. ARGS[4] 0 delete option after send, 1 dont delete option
  1604. $ARGS[5] id passed by the caller to identify the option to be deleted if it needs to be removed from the options
  1605. }
  1606. if $ARGS[0] = 'add_sms_to_send':
  1607. i = arrsize('$SMSSendContact')
  1608. $SMSSendContact[i] = $ARGS[1]
  1609. $SMSSendMessage[i] = $ARGS[2]
  1610. $SMSSendCode[i] = $ARGS[3]
  1611. SMSSendRepeatable[i] = ARGS[4]
  1612. $SMSSendDeleteId[i] = $ARGS[5]
  1613. end
  1614. if $ARGS[0] = 'delete_sms_send_index':
  1615. killvar '$SMSSendContact', ARGS[1]
  1616. killvar '$SMSSendMessage', ARGS[1]
  1617. killvar '$SMSSendCode', ARGS[1]
  1618. killvar 'SMSSendRepeatable', ARGS[1]
  1619. killvar '$SMSSendDeleteId', ARGS[1]
  1620. end
  1621. !{
  1622. $ARGS[1] = NPC code for contact. ('A129', 'A29', 'B13', 'C14')
  1623. $ARGS[2] = Delete id of the message ($SMSSendDeleteId)
  1624. }
  1625. if $ARGS[0] = 'delete_sms_send_id':
  1626. $telefon['SMStoDeleteFound'] = 'No'
  1627. i = 0
  1628. :findSmsToDeleteLoop
  1629. if (i < arrsize('$SMSSendContact')) and $telefon['SMStoDeleteFound'] = 'No':
  1630. if $SMSSendContact[i] = $ARGS[1] and $SMSSendDeleteId[i] = $ARGS[2]:
  1631. gs 'telefon', 'delete_sms_send_index', i
  1632. $telefon['SMStoDeleteFound'] = 'Yes'
  1633. end
  1634. i += 1
  1635. jump 'findSmsToDeleteLoop'
  1636. end
  1637. end
  1638. !!-----------------------------------end of sms------------------------------------------
  1639. if $ARGS[0] = 'Phone_wheather':
  1640. $telefon['body'] = '
  1641. <font size=6>Weather</font><br>
  1642. <img src="<<FUNC(''$phone_theme'')>>icon_weather.png" height="80" width="80"><br><br>
  1643. <b>Temperature:</b><br>
  1644. <<$temperature>>. <<$osadki>><br>
  1645. P.O.P. today is <<weatherFall>>%<br>'
  1646. dynamic $telefon['print']
  1647. end &! --- Phone_wheather ---
  1648. if $ARGS[0] = 'Phone_calendar':
  1649. $telefon['body'] = '
  1650. <font size=6>Calendar</font><br>
  1651. <img src="<<FUNC(''$phone_theme'')>>icon_calendar.png" height="80" width="80"><br><br>
  1652. <B>Today:</B><br>
  1653. <<$week[week]>>, <<day>> <<$month>> <<year>><br>'
  1654. dynamic $telefon['print']
  1655. end &! --- Phone_calendar ---
  1656. if $ARGS[0] = 'Phone_media':
  1657. $telefon['body'] = '
  1658. <font size=6>Media</font><br>
  1659. <img src="<<FUNC(''$phone_theme'')>>icon_music.png" height="80" width="80"><br>
  1660. <b>This option is not active</b><br>'
  1661. dynamic $telefon['print']
  1662. end &! --- Phone_media ---
  1663. if $ARGS[0] = 'Phone_menu':
  1664. if phone_off = 0:
  1665. $telefon['body'] = '
  1666. <a href="exec:gs ''telefon'', ''Phone_camera'' "><img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"></a>
  1667. <a href="exec:gs ''telefon'', ''Phone_calendar'' "><img src="<<FUNC(''$phone_theme'')>>icon_calendar.png" height="80" width="80"></a>
  1668. <a href="exec:gs ''telefon'', ''Phone_pictures'' "><img src="<<FUNC(''$phone_theme'')>>icon_pictures.png" height="80" width="80"></a>
  1669. <br>
  1670. <a href="exec:gs ''telefon'', ''Phone_media'' "><img src="<<FUNC(''$phone_theme'')>>icon_music.png" height="80" width="80"></a>
  1671. <a href="exec:gs ''telefon'', ''Phone_notebook'' "><img src="<<FUNC(''$phone_theme'')>>icon_notebook.png" height="80" width="80"></a>
  1672. <a href="exec:gs ''telefon'', ''Phone_wheather'' "><img src="<<FUNC(''$phone_theme'')>>icon_weather.png" height="80" width="80"></a>
  1673. <br>
  1674. <a href="exec:gs ''telefon'', ''ContactList'' "><img src="<<FUNC(''$phone_theme'')>>icon_call.png" height="80" width="80"></a>
  1675. <a href="exec:gs ''telefon'', ''Phone_sms'' "><img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"></a>
  1676. <a href="exec:gs ''telefon'', ''Phone_megafon'' "><img src="<<FUNC(''$phone_theme'')>>icon_megafon.png" height="80" width="80"></a>
  1677. <br>'
  1678. if menu_off = 1:
  1679. $telefon['body'] += '<a href="exec:gs ''obj_din'', ''menu_disabled''"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png" height="80" width="80"></a><br>'
  1680. else
  1681. $telefon['body'] += '<a href="exec:killvar ''menu_page'' & gs ''Cheatmenu_din'' & dynamic $cheatmenu[''setting'']"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png" height="80" width="80"></a><br>'
  1682. end
  1683. dynamic $telefon['print']
  1684. else
  1685. '<font color="red"><b>Your phone is disabled for this event</b></font>'
  1686. end
  1687. end &! --- Phone_menu ---
  1688. if $ARGS[0] = 'Add_contact':
  1689. $dummy = INPUT('Enter a note:')
  1690. $contact[arrsize('$contact')] = dyneval($telefon['contact'],$ARGS[1],$dummy,$ARGS[2])
  1691. killvar '$dummy'
  1692. end &! --- Add_contact ---
  1693. if $ARGS[0] = 'telotkaz':
  1694. cla
  1695. minut += 10
  1696. '<<$ARGS[1]>>, "Sorry, I''m busy right now, maybe next time."'
  1697. act 'Hangup':gt 'telefon', 'fin'
  1698. end &! --- telotkaz ---
  1699. if $ARGS[0] = 'fin':
  1700. killvar 'lover_number'
  1701. cla
  1702. gt $loc, $loc_arg
  1703. end
  1704. if $ARGS[0] = 'setup':
  1705. !! array $$phonetheme_name is built.
  1706. !! might need a tweak to have it rebuilt when new themes are available.
  1707. $phonetheme_name[0] = 'Custom_Standard'
  1708. $phonetheme_name[1] = 'Bimbo'
  1709. $phonetheme_name[2] = 'Custom_Aluminus'
  1710. $phonetheme_name[3] = 'Custom_Bottlecapped'
  1711. $phonetheme_name[4] = 'Custom_Galactic'
  1712. $phonetheme_name[5] = 'Custom_Vectored'
  1713. $phonetheme_name[6] = 'Custom_Veneer'
  1714. $phonetheme_name[7] = 'Custom_Voidwalker'
  1715. $phonetheme_name[8] = 'Custom_Voidwalker Red'
  1716. $phonetheme_name[9] = 'Custom_Voidwalker Toxic'
  1717. $phonetheme_name[10] = 'Gopnik'
  1718. $phonetheme_name[11] = 'Sports'
  1719. $phonetheme_name[12] = 'Succubus'
  1720. $phonetheme_name[13] = 'Woodshop'
  1721. phonetheme[0] = 1
  1722. end
  1723. --- telefon ---------------------------------