telefon.qsrc 65 KB

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