telefon.qsrc 51 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622
  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. ! Header for Phone Screen. Keeps consistent and in one place
  31. $telefon['header'] = '<center>
  32. <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b><br>
  33. <TABLE cellspacing="0" width="80%">
  34. <TR>
  35. <TD><img src="images/system/icon/icon_statusbar_left.png"></TD>
  36. <TD></TD>
  37. <TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD>
  38. </TR>
  39. </TABLE><br>'
  40. ! Footer for phone screen. Body should be between these two
  41. $telefon['footer'] = '
  42. <a href="exec:gs''telefon'', ''Phone_menu''"><img src="images/system/icon/back.png"></a><br><br>
  43. <a href="exec:gs''stat''">Put Phone Away.</a><br>
  44. </center>'
  45. ! This is how we print the screnn on to the Additional Dscription window
  46. $telefon['print'] = {
  47. clr
  48. pl func('cleanHTML',$telefon['header'] + $telefon['body'] + $telefon['footer'])
  49. }
  50. ! This is the formatting function for a row in the Contact List. SHould be run as a DYNEVAL()
  51. $telefon['contact'] = {
  52. ! Contact Row in phone contact list
  53. ! $ARGS[0] = NPC icon
  54. ! $ARGS[1] = NPC Nickname
  55. ! $ARGS[2] = Code to execute for making a Call
  56. ! $ARGS[3] = if statement for determining if NPC is avaiable
  57. $telefon['ContactIcon'] = $ARGS[0]
  58. $telefon['ContactNickName'] = $ARGS[1]
  59. $telefon['ContactCallCode'] = $ARGS[2]
  60. $telefon['ContactCallSchedule'] = $ARGS[3]
  61. !If file extension is not given, .png is assumed
  62. if instr($telefon['ContactIcon'],'.') = 0:
  63. $telefon['ContactIcon'] += '.png'
  64. end
  65. !If path is not given, default phone icon path is assumed
  66. if instr($telefon['ContactIcon'],'/') = 0:
  67. $telefon['ContactIcon'] = 'images/system/phone/icons/' + $telefon['ContactIcon']
  68. end
  69. !If Contact is not in available timeframe, we disable contact calling
  70. if dyneval('result = iif(<<$telefon["ContactCallSchedule"]>>,1,0)') = 0:
  71. $telefon['ContactCallCode'] = "gs 'telefon', 'phone_call_reject'"
  72. end
  73. $result = '<TABLE cellspacing="0" width="80%"><TR>
  74. <TD><img src="<<$telefon[''ContactIcon'']>>"></TD>
  75. <TD><<$telefon[''ContactNickName'']>></TD>
  76. <TD align="right"><a href="exec:$callerid = ''<<$telefon[''ContactIcon'']>>'' & <<$telefon[''ContactCallCode'']>>"><b>Call</b></a></TD>
  77. </TR></TABLE><br>'
  78. }
  79. if $ARGS[0] = 'AddContact':
  80. ! $ARGS[1] = NPC Array identifier
  81. ! $ARGS[2] = Icon
  82. ! $ARGS[3] = Code to execute for Call out
  83. ! $ARGS[4] = If statement code to determine schedule for outbound calls
  84. ! $ARGS[5] = Code to execute for Incoming call
  85. ! $ARGS[6] = if statement code for schedule of incoming calls
  86. ! ARGS[7] = Anonymous? 0 if not, 1 if yes
  87. $telefonCon['NPC'] = $ARGS[1]
  88. $telefonCon['Icon'] = $ARGS[2]
  89. $telefonCon['OutCode'] = $ARGS[3]
  90. $telefonCon['OutSched'] = $ARGS[4]
  91. $telefonCon['InCode'] = $ARGS[5]
  92. $telefonCon['InSched'] = $ARGS[6]
  93. telefonCon['Anonymous'] = ARGS[7]
  94. telefonCon['ContactListID'] = arrpos('$contact',$telefonCon['NPC'])
  95. if telefonCon['ContactListID'] = -1:
  96. telefonCon['ContactListID'] = arrsize('$contact')
  97. $contact[telefonCon['ContactListID']] = $telefonCon['NPC']
  98. end
  99. $contactIcon[telefonCon['ContactListID']] = $telefonCon['Icon']
  100. $contactOCode[telefonCon['ContactListID']] = $telefonCon['OutCode']
  101. $contactOSche[telefonCon['ContactListID']] = $telefonCon['OutSched']
  102. $contactICode[telefonCon['ContactListID']] = $telefonCon['InCode']
  103. $contactISche[telefonCon['ContactListID']] = $telefonCon['InSched']
  104. contactAnon[telefonCon['ContactListID']] = telefonCon['Anonymous']
  105. killvar 'telefonCon'
  106. killvar '$telefonCon'
  107. end &! --- AddContact ---
  108. if $ARGS[0] = 'DeleteContact':
  109. ! $ARGS[1] = NPC Array identifier
  110. $telefonCon['NPC'] = $ARGS[1]
  111. telefonCon['ContactListID'] = arrpos('$contact',$telefonCon['NPC'])
  112. if telefonCon['ContactListID'] > -1:
  113. killvar '$contact', telefonCon['ContactListID']
  114. killvar '$contactIcon', telefonCon['ContactListID']
  115. killvar '$contactCode', telefonCon['ContactListID']
  116. end
  117. killvar 'telefonCon'
  118. killvar '$telefonCon'
  119. end &! --- AddContact ---
  120. if $ARGS[0] = 'ContactList':
  121. $telefon['body'] = '
  122. <font size=6>Contacts</font><br>
  123. <img src="<<FUNC(''$phone_theme'')>>icon_call.png" height="80" width="80"><br><br>'
  124. !!iterating all Contacts
  125. i=0
  126. :contactloop2
  127. if i < arrsize('$contact'):
  128. if contactAnon[i] = 0:
  129. $telefon['body'] += dyneval($telefon['contact'],$contactIcon[i],$npc_nickname[$contact[i]],$contactOCode[i],$contactOSche[i])
  130. end
  131. i += 1
  132. jump 'contactloop2'
  133. end
  134. ! Oddball Contacts
  135. if telalla > 0:
  136. $telefon['body'] += dyneval($telefon['contact'],'icon_ira1','Alla',"$telsob = 'Alla' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20")
  137. end
  138. if telmasha > 0:
  139. $telefon['body'] += dyneval($telefon['contact'],'icon_masha','Masha',"$telsob = 'Masha' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20")
  140. end
  141. !! iterating all lovers
  142. lover_number = 0
  143. :loverloop2
  144. if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0:
  145. $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")
  146. end
  147. lover_number += 1
  148. if lover_number < arrsize('pcs_lovers'): jump 'loverloop2'
  149. dynamic $telefon['print']
  150. killvar 'i'
  151. killvar 'lover_number'
  152. end &! --- ContactList ---
  153. ! Reset Contact Call Stats Daily and Weekly
  154. !
  155. ! ARGS[1] = New Week if 1, 0 if same week
  156. if $ARGS[0] = 'DailyStatRefresh':
  157. i=0
  158. :DailyStatRefLoop
  159. if i < arrsize('$contact'):
  160. contactToday[i] = 0
  161. if ARGS[1] = 1:
  162. contactWeek[i] = 0
  163. end
  164. i += 1
  165. jump 'DailyStatRefLoop'
  166. end
  167. killvar 'i'
  168. end
  169. ! Determine if any Incoming calls should happen
  170. !
  171. ! ARGS[1] = Previous totminut
  172. ! ARGS[2] = Current totminut
  173. if $ARGS[0] = 'IncomingCheck':
  174. telefIncCheck['PrevTotalMinutes'] = ARGS[1]
  175. telefIncCheck['NewTotalMinutes'] = ARGS[2]
  176. if telefIncCheck['PrevTotalMinutes'] > telefIncCheck['NewTotalMinutes'] or telefon['LastIncCallCheck'] > telefIncCheck['NewTotalMinutes'] or telefon['LastIncCallCheck'] = 0:
  177. ! Time Cheat has been used, so we should do some cleanup
  178. telefon['LastIncCallCheck'] = telefIncCheck['NewTotalMinutes']
  179. end
  180. ! Limit the number of calls per day
  181. ! right now allow every 60 minutes
  182. if telefIncCheck['NewTotalMinutes'] - telefon['LastIncCallCheck'] > 60 and menu_off = 0:
  183. telefon['LastIncCallCheck'] = telefIncCheck['NewTotalMinutes']
  184. gs 'telefon','IncomingCallChooser'
  185. end
  186. killvar 'telefIncCheck'
  187. end
  188. if $ARGS[0] = 'IncomingCallChooser':
  189. ! When an Incoming call happens, choose who it comes from
  190. ! Add Contacts
  191. i=0
  192. :telefonIncLoop1
  193. if i < arrsize('$contact'):
  194. if $contactICode[i] ! "":
  195. if dyneval('result = iif(<<$contactISche[i]>>,1,0)') = 1:
  196. j = arrsize('$telefIncCall')
  197. if contactAnon[i] = 1:
  198. $telefIncIcon[j] = "images/system/phone/decline.png"
  199. $telefIncName[j] = "Unknown Caller"
  200. else
  201. $telefIncIcon[j] = $contactIcon[i]
  202. $telefIncName[j] = $npc_nickname[$contact[i]]
  203. end
  204. $telefIncCall[j] = $contactICode[i]
  205. $telefIncNPC[j] = $contact[i]
  206. end
  207. end
  208. i += 1
  209. jump 'telefonIncLoop1'
  210. end
  211. ! Add Lovers
  212. i=0
  213. :telefonIncLoop2
  214. if i < 3 and hour > 5 and hour < 20:
  215. if pcs_lovers[i] = 1 and svidanie[i] = 0 and loverday[i] ! daystart and rand(1,7) > 5:
  216. j = arrsize('$telefIncCall')
  217. $telefIncCall[j] = "cls & gs 'telefon', 'lover', <<i>>"
  218. $telefIncIcon[j] = 'images/characters/shared/<<lover_picture[i]>>.jpg'
  219. $telefIncName[j] = $loverdesc[i]
  220. end
  221. i += 1
  222. jump 'telefonIncLoop2'
  223. end
  224. if arrsize('$telefIncCall') > 0:
  225. j = rand(0,arrsize('$telefIncCall')-1)
  226. if $telefIncNPC[j] ! "":
  227. i = arrpos('$contact',$telefIncNPC[j])
  228. contactLastCall[i] = totminut
  229. contactToday[i] += 1
  230. contactWeek[i] += 1
  231. end
  232. gs 'telefon', 'IncomingCall', $telefIncIcon[j], $telefIncName[j], $telefIncCall[j]
  233. end
  234. killvar 'i'
  235. killvar 'j'
  236. killvar '$telefIncIcon'
  237. killvar '$telefIncName'
  238. killvar '$telefIncCall'
  239. killvar '$telefIncNPC'
  240. end
  241. if $ARGS[0] = 'IncomingCall':
  242. ! $ARGS[1] = Icon for contact
  243. ! $ARGS[2] = Nickname of contact
  244. ! $ARGS[3] = Code to execute for this Call
  245. $telefonIncC['Icon'] = $ARGS[1]
  246. $telefonIncC['Name'] = $ARGS[2]
  247. $telefonIncC['Code'] = $ARGS[3]
  248. PLAY 'sound/old_phone.mp3',30
  249. $telefon['body'] = '
  250. <font size=6><<$telefonIncC["Name"]>> calling</font><br>
  251. <img src="<<$telefonIncC["Icon"]>>"><br>
  252. <br>
  253. <br>
  254. <br>
  255. <a href="exec:<<$telefonIncC["Code"]>>"><img src="images/system/phone/call_accept.png"></a>
  256. <a href="exec:gt $loc, $metka"><img src="images/system/phone/decline.png"></a><br>
  257. <b><font color="red">Your phone is ringing</font></b><br>'
  258. dynamic $telefon['print']
  259. killvar '$telefonIncC'
  260. end
  261. !---------------------------------------------------------------------------------------
  262. ! Generic Calls for dates
  263. !! NPC Date
  264. !! ARGS[1] = contactlist index
  265. !! $ARGS[2] = Date Location
  266. if $ARGS[0] = 'NPCDate':
  267. Call4Date["ContactIndex"] = ARGS[1]
  268. $Call4Date["Location"] = $ARGS[2]
  269. $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
  270. $Call4Date["CallerName"] = $npc_nickname[$Call4Date["NPC"]]
  271. !! These variables are setup for certain downstream functions
  272. $caller = $Call4Date["CallerName"]
  273. $callerid = $contactIcon[Call4Date["ContactIndex"]]
  274. $boydesc = $Call4Date["CallerName"]
  275. pcs_mood += 10
  276. npc_rel[$Call4Date["NPC"]] += 3
  277. if $Call4Date["Location"] = 'park':
  278. if npc_gender[$Call4Date["NPC"]] = 0:
  279. gt 'dateM','datepark'
  280. else
  281. gt 'dateF','datepark'
  282. end
  283. elseif $Call4Date["Location"] = 'movie':
  284. if npc_gender[$Call4Date["NPC"]] = 0:
  285. gt 'dateM','datecinema'
  286. else
  287. !Not implemented yet
  288. !gt 'dateF','datecinema'
  289. end
  290. elseif $Call4Date["Location"] = 'bar':
  291. if npc_gender[$Call4Date["NPC"]] = 0:
  292. gt 'dateM','datebar'
  293. else
  294. gt 'dateF','datebar'
  295. end
  296. elseif $Call4Date["Location"] = 'cafe':
  297. if npc_gender[$Call4Date["NPC"]] = 0:
  298. gt 'dateM','datecafe'
  299. else
  300. !Not implemented yet
  301. !gt 'dateF','datecafe'
  302. end
  303. end
  304. killvar 'Call4Date'
  305. killvar '$Call4Date'
  306. end
  307. !! Sveta Calls the NPC
  308. !! ARGS[1] = contactlist index
  309. if $ARGS[0] = 'SvetaCallsNPC':
  310. cls
  311. cla
  312. Call4Date["ContactIndex"] = ARGS[1]
  313. $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
  314. $Call4Date["CallerName"] = $npc_nickname[$Call4Date["NPC"]]
  315. if npc_gender[$Call4Date["NPC"]] = 0:
  316. $Call4Date["NPC-he"] = 'he'
  317. $Call4Date["NPC-He"] = 'He'
  318. $Call4Date["NPC-his"] = 'his'
  319. $Call4Date["NPC-His"] = 'His'
  320. else
  321. $Call4Date["NPC-he"] = 'her'
  322. $Call4Date["NPC-He"] = 'Her'
  323. $Call4Date["NPC-his"] = 'hers'
  324. $Call4Date["NPC-His"] = 'Hers'
  325. end
  326. !! These variables are setup for certain downstream functions
  327. $caller = $Call4Date["CallerName"]
  328. $callerid = $contactIcon[Call4Date["ContactIndex"]]
  329. gs 'telefon','phone_balance'
  330. gs 'telefon','phone_call_receive'
  331. Call4Date["willAgree"] = (rand(0, 10) > 3)
  332. '"Yes, I''m listening," says a voice from the speaker.'
  333. if month > 5 and temper > 20 and sunWeather = 1:
  334. act 'Invite to the park':
  335. cla
  336. '"Let''s go for a walk in the park."'
  337. if Call4Date["willAgree"]:
  338. '<<$Call4Date["CallerName"]>>, "See you in the park in an hour."'
  339. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'park'
  340. else
  341. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  342. end
  343. end
  344. end
  345. act 'Invite to a movie':
  346. cla
  347. '"Want to go see a movie?"'
  348. if Call4Date["willAgree"]:
  349. '<<$Call4Date["CallerName"]>>, "See you at the movie theater in an hour."'
  350. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'movie'
  351. else
  352. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  353. end
  354. end
  355. if $home_town = 'city':
  356. act 'Invite to the bar':
  357. cla
  358. '"Let''s go to the bar."'
  359. if Call4Date["willAgree"]:
  360. '<<$Call4Date["CallerName"]>>, "See you at the bar in an hour."'
  361. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'bar'
  362. else
  363. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  364. end
  365. end
  366. end
  367. act 'Invite to the cafe':
  368. cla
  369. '"Let''s go to the cafe."'
  370. if Call4Date["willAgree"]:
  371. '<<$Call4Date["CallerName"]>>, "See you at the cafe in an hour."'
  372. act 'Go':gt 'telefon', 'NPCDate', Call4Date["ContactIndex"], 'cafe'
  373. else
  374. gs 'telefon','telotkaz',$Call4Date["CallerName"]
  375. end
  376. end
  377. !!Willpower checks for resistance
  378. if npc_rel[$Call4Date["NPC"]] <= 25:
  379. $Call4Date["loverResist"] = 'easy'
  380. elseif npc_rel[$Call4Date["NPC"]] <= 50:
  381. $Call4Date["loverResist"] = 'medium'
  382. else
  383. $Call4Date["loverResist"] = 'hard'
  384. end
  385. gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
  386. if will_cost <= pcs_willpwr:
  387. act 'I think we should break up... (<<will_cost>> Willpower)':
  388. *clr & cla
  389. gs 'willpower', 'pay', 'self'
  390. gs 'stat'
  391. '<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  392. gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  393. act 'Hang up': gt 'telefon', 'fin'
  394. end
  395. else
  396. act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
  397. '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  398. end
  399. end
  400. act 'Hangup':gt 'telefon', 'fin'
  401. killvar 'Call4Date'
  402. killvar '$Call4Date'
  403. killvar '$DateNickName'
  404. end
  405. ! NPC Calls Sveta for a Date
  406. ! ARGS[1] = $contact index number
  407. if $ARGS[0] = 'NPCCallsForDate':
  408. cla
  409. clr
  410. Call4Date["ContactIndex"] = ARGS[1]
  411. $Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
  412. if npc_gender[$Call4Date["NPC"]] = 0:
  413. $Call4Date["NPC-he"] = 'he'
  414. $Call4Date["NPC-He"] = 'He'
  415. $Call4Date["NPC-his"] = 'his'
  416. $Call4Date["NPC-His"] = 'His'
  417. else
  418. $Call4Date["NPC-he"] = 'her'
  419. $Call4Date["NPC-He"] = 'Her'
  420. $Call4Date["NPC-his"] = 'hers'
  421. $Call4Date["NPC-His"] = 'Hers'
  422. end
  423. !!Pick a nickname that caller will use for Sveta
  424. $DateNickName[0] = 'cutie'
  425. $DateNickName[1] = 'honey'
  426. $DateNickName[2] = 'sweetie'
  427. $DateNickName[3] = 'baby'
  428. $DateNickName[4] = 'hot stuff'
  429. $DateNickName[5] = '<<$pcs_nickname>>'
  430. $Call4Date['SvetaName'] = $DateNickName[rand(0, arrsize('$DateNickName'))]
  431. $Call4Date['CallerName'] = $npc_nickname[$Call4Date["NPC"]]
  432. !! These variables are setup for certain downstream functions
  433. $caller = $Call4Date["CallerName"]
  434. $callerid = $contactIcon[Call4Date["ContactIndex"]]
  435. 'Hey <<$Call4Date["SvetaName"]>>, it''s me, <<$Call4Date["CallerName"]>>. How''s it going?'
  436. act 'Answer':
  437. cla
  438. '"Pretty good, you?"'
  439. '<<$Call4Date["CallerName"]>>, "Great, but I kind of miss you, can we meet today?"'
  440. if week > 1 and week < 5 and workKafe = 1:
  441. act 'Sorry, I''m working today':
  442. cla
  443. '"Sorry, I''m working today."'
  444. '<<$Call4Date["CallerName"]>>, "Okay, I''ll call tomorrow."'
  445. act 'Hang up':gt 'telefon', 'fin'
  446. end
  447. end
  448. act 'Tonight':
  449. cla
  450. npc_rel[$Call4Date["NPC"]] += 1
  451. contMeetDay[Call4Date["ContactIndex"]] = daystart
  452. '"How about this evening?"'
  453. '<<$Call4Date["CallerName"]>>, "Sounds great! When can I come to pick you up?"'
  454. act 'Pick a time':
  455. cla
  456. 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]")
  457. if contMeetHour[Call4Date["ContactIndex"]] <= hour or contMeetHour[Call4Date["ContactIndex"]] > 23:contMeetHour[Call4Date["ContactIndex"]] = 20
  458. '"How about <<contMeetHour[Call4Date["ContactIndex"]]>>:00?."'
  459. '<<$Call4Date["CallerName"]>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<contMeetHour[Call4Date["ContactIndex"]]>>:00."'
  460. act 'Hang up':gt 'telefon', 'fin'
  461. end
  462. end
  463. act 'Maybe tomorrow':
  464. cla
  465. npc_rel[$Call4Date["NPC"]] -= 1
  466. '"I''m busy today. Call tomorrow."'
  467. if npc_rel[$Call4Date["NPC"]] <= 0:'<<$Call4Date["CallerName"]>>, Are you fucking me, you know what. Suck my dick.' & gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  468. if npc_rel[$Call4Date["NPC"]] > 0:'(<<$Call4Date["CallerName"]>>) - Okay, I''ll call tomorrow.'
  469. act 'Hang up': gt 'telefon', 'fin'
  470. end
  471. !!Willpower checks for resistance
  472. if npc_rel[$Call4Date["NPC"]] <= 25:
  473. $Call4Date["loverResist"] = 'easy'
  474. elseif npc_rel[$Call4Date["NPC"]] <= 50:
  475. $Call4Date["loverResist"] = 'medium'
  476. else
  477. $Call4Date["loverResist"] = 'hard'
  478. end
  479. gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
  480. if will_cost <= pcs_willpwr:
  481. act 'I think we should break up... (<<will_cost>> Willpower)':
  482. *clr & cla
  483. gs 'willpower', 'pay', 'self'
  484. gs 'stat'
  485. '<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  486. gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  487. act 'Hang up': gt 'telefon', 'fin'
  488. end
  489. else
  490. act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
  491. '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  492. end
  493. end
  494. end
  495. act 'Hang up (end relationship)':
  496. cla
  497. gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
  498. gt 'telefon', 'fin'
  499. end
  500. killvar 'Call4Date'
  501. killvar '$Call4Date'
  502. killvar '$DateNickName'
  503. end
  504. if $ARGS[0] = 'start':
  505. gs 'stat'
  506. gs 'telefon','phone_call_receive'
  507. if npc_QW['A192'] = 1 and week = 6 and pcs_apprnc > 80:
  508. gt 'nastja', 'pos4'
  509. elseif npc_QW['A192'] = 2 and week ! 6 and zenit ! 0 and nastjaday ! daystart:
  510. gt 'nastja', 'pos13'
  511. elseif hour >= 8 and hour <= 20 and npc_QW['A192'] = 2 and week = 6 and pcs_apprnc > 80 and nastjaday ! daystart:
  512. gt 'nastja', 'pos12'
  513. elseif npc_QW['A192'] = 5 and week = 6 and nastjaday ! daystart:
  514. gt 'nastja', 'pos22'
  515. elseif npc_QW['A192'] = 6 and nastjaday ! daystart:
  516. gt 'nastja', 'pos31'
  517. else
  518. $callerid = 'images/system/phone/icons/icon_nastja.png'
  519. gs 'telefon','phone_call_reject'
  520. end
  521. end
  522. !--------------------------------------------------------------------------------------------------
  523. ! Old telephone system. Some of this should be removed.
  524. if $ARGS[0] = 'phone_ring':
  525. $telefon['body'] = '
  526. <font size=6><<$caller>> calling</font><br>
  527. <img src="<<$callerid>>"><br>
  528. <br>
  529. <br>
  530. <br>
  531. <br>'
  532. dynamic $telefon['print']
  533. end &! --- phone_ring ---
  534. if $ARGS[0] = 'phone_call_receive':
  535. $telefon['body'] = '
  536. <font size=6>Talking to <<$caller>></font><br>
  537. <img src="<<$callerid>>"><br>'
  538. dynamic $telefon['print']
  539. end &! --- phone_call_receive ---
  540. if $ARGS[0] = 'phone_balance':
  541. if balans < 4:
  542. $telefon['body'] = '
  543. <font size=6>Not enough credit on your account</font><br>
  544. <img src="<<$callerid>>"><br><br>
  545. <a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/phone/decline.png"></a><br>'
  546. dynamic $telefon['print']
  547. wait 3500
  548. cla
  549. gt $loc, $metka
  550. elseif balans >= 4:
  551. balans -= 4
  552. end
  553. end &! --- phone_balance ---
  554. if $ARGS[0] = 'Phone_call':
  555. $telefon['body'] = '
  556. <font size=6>Calling <<$npc_nickname[''A29'']>></font><br>
  557. <img src="images/system/phone/icons/icon_npc1.png"><br><br>
  558. <a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a><br>'
  559. dynamic $telefon['print']
  560. wait 1500
  561. minut += 1
  562. $callerid = 'images/system/phone/icons/icon_npc1.png'
  563. gs 'telefon', 'phone_balance'
  564. $callerid = 'images/system/phone/icons/icon_npc1.png'
  565. gs 'telefon', 'phone_call_reject'
  566. end &! --- Phone_call ---
  567. if $ARGS[0] = 'phone_call_reject':
  568. $telefon['body'] = '
  569. <font size=6>Calling....</font><br>
  570. <img src="<<$callerid>>"><br><br>
  571. <a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a><br>'
  572. dynamic $telefon['print']
  573. end &! --- phone_call_reject ---
  574. if $ARGS[0] = 'Phone_megafon':
  575. $telefon['body'] = '
  576. <font size=6>MegaFon</font><br>
  577. <img src="<<FUNC(''$phone_theme'')>>icon_megafon.png" height="80" width="80"><br><br>
  578. <b>The balance in the account:</b>
  579. <font size=5><<balans>> ₽.</font><br>'
  580. dynamic $telefon['print']
  581. end &! --- Phone_megafon ---
  582. if $ARGS[0] = 'Edit_Custom_list':
  583. clr
  584. dummyas = arrsize('$contact')
  585. :din_bad_as1
  586. dummyas -= 1
  587. if dummyas >= 0:
  588. $dummyedit = $contact[dummyas]
  589. $dummyedit1 = dyneval('$result = ''</a><a href="exec:killvar ''''$contact'''',<<dummyas>> & gs ''''telefon'''', ''''Edit_Custom_list'''' "><b>Remove</b>'' ')
  590. $dummyedit2 = $replace($dummyedit,'<b>Call</b>',$dummyedit1)
  591. pl $dummyedit2
  592. jump 'din_bad_as1'
  593. end
  594. killvar 'dummyas'
  595. killvar 'dummyedit'
  596. killvar 'dummyedit1'
  597. killvar 'dummyedit2'
  598. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  599. !dynamic $telefon['print']
  600. end &! --- Edit_Custom_list ---
  601. if $ARGS[0] = 'mobilaraz':
  602. cls
  603. cla
  604. gs'din_bad'
  605. $caller = '<<$telsob>>'
  606. gs 'telefon','phone_balance'
  607. gs 'telefon','phone_call_receive'
  608. willAgree = (rand(0, 10) > 3)
  609. '"Yes, I''m listening," says a voice from the speaker.'
  610. if month > 5 and temper > 20 and sunWeather = 1:
  611. act 'Invite to the park':
  612. cla
  613. '"Let''s go for a walk in the park."'
  614. if willAgree:
  615. '<<$telsob>>, "See you in the park in an hour."'
  616. act 'Go':gt 'parksvid'
  617. else
  618. gs 'telefon','telotkaz',$telsob
  619. end
  620. end
  621. end
  622. act 'Invite to a movie':
  623. cla
  624. '"Want to go see a movie?"'
  625. if willAgree:
  626. '<<$telsob>>, "See you at the movie theater in an hour."'
  627. act 'Go':gt 'kinosvid'
  628. else
  629. gs 'telefon','telotkaz',$telsob
  630. end
  631. end
  632. act 'Invite to the pool hall':
  633. cla
  634. '"Let''s play pool."'
  635. if willAgree:
  636. '<<$telsob>>, "See you at the pool hall in an hour."'
  637. act 'Go':gt 'billsvid'
  638. else
  639. gs 'telefon','telotkaz',$telsob
  640. end
  641. end
  642. act 'Invite to the cafe':
  643. cla
  644. '"Let''s go to the cafe."'
  645. if willAgree:
  646. '<<$telsob>>, "See you at the cafe in an hour."'
  647. act 'Go':gt 'kafesvid'
  648. else
  649. gs 'telefon','telotkaz',$telsob
  650. end
  651. end
  652. act 'Invite to the casino':
  653. cla
  654. '"Let''s go to the casino."'
  655. if willAgree:
  656. '<<$telsob>>, "See you in the casino in an hour."'
  657. act 'Go':gt 'kazinosvid'
  658. else
  659. gs 'telefon','telotkaz',$telsob
  660. end
  661. end
  662. act 'Hangup':gt 'telefon', 'fin'
  663. end
  664. !----------------End Old Telephone----------------------------
  665. !-----------------------------------------------------------------------------
  666. ! Support for Hardcoded Lovers (BF/GF)
  667. if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1:
  668. cls
  669. cla
  670. gs'din_bad'
  671. lover_number = ARGS[1]
  672. $caller = '<<$loverdesc[lover_number]>>'
  673. $telsob = $caller
  674. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  675. gs 'telefon','phone_balance'
  676. gs 'telefon','phone_call_receive'
  677. willAgree = (rand(0, 10) > 3)
  678. '"Yes, I''m listening," says a voice from the speaker.'
  679. if month > 5 and temper > 20 and sunWeather = 1:
  680. act 'Invite to the park':
  681. cla
  682. '"Let''s go for a walk in the park."'
  683. if willAgree:
  684. '<<$telsob>>, "See you in the park in an hour."'
  685. act 'Go': gt 'parksvid'
  686. else
  687. gs 'telefon','telotkaz',$telsob
  688. end
  689. end
  690. end
  691. act 'Invite to a movie':
  692. cla
  693. '"Want to go see a movie?"'
  694. if willAgree:
  695. '<<$telsob>>, "See you at the movie theater in an hour."'
  696. act 'Go': gt 'kinosvid'
  697. else
  698. gs 'telefon','telotkaz',$telsob
  699. end
  700. end
  701. if $home_town = 'city':
  702. act 'Invite to the pool hall':
  703. cla
  704. '"Let''s play pool."'
  705. if willAgree:
  706. '<<$telsob>>, "See you at the pool hall in an hour."'
  707. act 'Go': gt 'billsvid'
  708. else
  709. gs 'telefon','telotkaz',$telsob
  710. end
  711. end
  712. end
  713. act 'Invite to the cafe':
  714. cla
  715. '"Let''s go to the cafe."'
  716. if willAgree:
  717. '<<$telsob>>, "See you at the cafe in an hour."'
  718. act 'Go': gt 'kafesvid'
  719. else
  720. gs 'telefon','telotkaz',$telsob
  721. end
  722. end
  723. act 'Invite to the casino':
  724. cla
  725. '"Let''s go to the casino."'
  726. if willAgree:
  727. '<<$telsob>>, "See you in the casino in an hour."'
  728. act 'Go': gt 'kazinosvid'
  729. else
  730. gs 'telefon','telotkaz',$telsob
  731. end
  732. end
  733. act 'I think we should break up...':
  734. cla
  735. 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  736. gs 'lover', 'remove', lover_number
  737. act 'Hangup':gt 'telefon', 'fin'
  738. end
  739. act 'Hangup':gt 'telefon', 'fin'
  740. end
  741. if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 0:
  742. cls
  743. cla
  744. gs'din_bad'
  745. lover_number = ARGS[1]
  746. $caller = '<<$loverdesc[lover_number]>>'
  747. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  748. gs 'telefon','phone_balance'
  749. gs 'telefon','phone_call_receive'
  750. willAgree = (rand(0, 10) > 3)
  751. '"Yes, I''m listening," says a voice from the speaker.'
  752. if month > 5 and temper > 20 and sunWeather = 1:
  753. act 'Invite to the park':
  754. cla
  755. '"Let''s go for a walk in the park."'
  756. if willAgree:
  757. '<<$loverdesc[lover_number]>>, "See you in the park in an hour."'
  758. act 'Go':gt 'svidboy', 'parksvid'
  759. else
  760. gs 'telefon','telotkaz',$loverdesc[lover_number]
  761. end
  762. end
  763. end
  764. act 'Invite to a movie':
  765. cla
  766. '"Want to go see a movie?"'
  767. if willAgree:
  768. '<<$loverdesc[lover_number]>>, "See you at the movie theater in an hour."'
  769. act 'Go':gt 'svidboy', 'kinosvid'
  770. else
  771. gs 'telefon','telotkaz',$loverdesc[lover_number]
  772. end
  773. end
  774. if $home_town = 'city':
  775. act 'Invite to the pool hall':
  776. cla
  777. '"Let''s play pool."'
  778. if willAgree:
  779. '<<$loverdesc[lover_number]>>, "See you at the pool hall in an hour."'
  780. act 'Go':gt 'svidboy', 'billsvid'
  781. else
  782. gs 'telefon','telotkaz',$loverdesc[lover_number]
  783. end
  784. end
  785. end
  786. act 'Invite to the cafe':
  787. cla
  788. '"Let''s go to the cafe."'
  789. if willAgree:
  790. '<<$loverdesc[lover_number]>>, "See you at the cafe in an hour."'
  791. act 'Go':gt 'svidboy', 'kafesvid'
  792. else
  793. gs 'telefon','telotkaz',$loverdesc[lover_number]
  794. end
  795. end
  796. act 'I think we should break up...':
  797. cla
  798. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  799. gs 'lover', 'remove', lover_number
  800. act 'Hangup':gt 'telefon', 'fin'
  801. end
  802. act 'Hangup':gt 'telefon', 'fin'
  803. end
  804. if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
  805. cla
  806. clr
  807. lover_number = ARGS[1]
  808. ring = 0
  809. lover_days = daystart - loverday[lover_number]
  810. !gs 'stat'
  811. !gs 'telefon','phone_call_receive'
  812. svetrand = rand(0, 5)
  813. if svetrand = 0:$sveta = 'cutie'
  814. if svetrand = 1:$sveta = 'honey'
  815. if svetrand = 2:$sveta = 'sweetie'
  816. if svetrand = 3:$sveta = 'baby'
  817. if svetrand = 4:$sveta = 'hot stuff'
  818. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  819. 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?'
  820. act 'Reply':
  821. cla
  822. '"Pretty good, you?"'
  823. '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
  824. if (pregchem / 24) <= lover_days and knowpreg = 1 and pregtalk = 0:
  825. act 'Tell him he''s going to be a dad':
  826. cla
  827. pregtalk = 1
  828. '"Honey, I''m pregnant with your child."'
  829. if haraklover[lover_number] = 0:
  830. if loverrelation[lover_number] >= 90:
  831. loverlove[lover_number] = 1
  832. '<<$loverdesc[lover_number]>>, "This is wonderful! We have to celebrate!"'
  833. 'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
  834. 'He warns you that his mother is very demanding and rigorous. <<$loverdesc[lover_number]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
  835. 'When you are totally ready <<$loverdesc[lover_number]>> will take you to his parents.'
  836. act 'Hang up':gt 'telefon', 'fin'
  837. act 'Meet tonight':
  838. cla
  839. svidanie[lover_number] = 1
  840. '"How about this evening?"'
  841. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  842. act 'Pick a time':
  843. cla
  844. meetday[lover_number] = daystart
  845. 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]")
  846. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  847. '"How about <<meethour[lover_number]>>:00?"'
  848. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  849. act 'Hang up':gt 'telefon', 'fin'
  850. end
  851. end
  852. elseif loverrelation[lover_number] < 90:
  853. money += 20000
  854. '<<$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.'
  855. act 'Hang up':gt 'telefon', 'fin'
  856. end
  857. elseif haraklover[lover_number] = 1:
  858. money += 20000
  859. '<<$loverdesc[lover_number]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  860. act 'Hang up':gt 'telefon', 'fin'
  861. elseif haraklover[lover_number] = 2:
  862. pregtalk = 0
  863. '<<$loverdesc[lover_number]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  864. gs 'lover', 'remove', lover_number
  865. act 'Hang up':gt 'telefon', 'fin'
  866. end
  867. end
  868. elseif (pregchem / 24) > lover_days and knowpreg = 1 and pregtalk = 0:
  869. act 'Honey, you will soon become a dad':
  870. cla
  871. loverrelation[lover_number] = 0
  872. '"Honey, I''m pregnant with your child."'
  873. '<<$loverdesc[lover_number]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
  874. act 'Hang up.':gt 'telefon', 'fin'
  875. end
  876. elseif week > 1 and week < 5 and workKafe = 1:
  877. act 'Sorry, I''m working today':
  878. cla
  879. '"Sorry, I''m working today."'
  880. '<<$loverdesc[lover_number]>>, "Okay, I''ll call tomorrow."'
  881. act 'Hang up':gt 'telefon', 'fin'
  882. end
  883. end
  884. act 'Tonight':
  885. cla
  886. loverrelation[lover_number] += 1
  887. svidanie[lover_number] = 1
  888. meetday[lover_number] = daystart
  889. '"How about this evening?"'
  890. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  891. act 'Pick a time':
  892. cla
  893. 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]")
  894. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  895. '"How about <<meethour[lover_number]>>:00?."'
  896. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  897. act 'Hang up':gt 'telefon', 'fin'
  898. end
  899. end
  900. act 'Maybe tomorrow':
  901. cla
  902. loverrelation[lover_number] -= 1
  903. '"I''m busy today. Call tomorrow."'
  904. if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Suck my dick.' & gs 'lover', 'remove', lover_number
  905. if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.'
  906. act 'Hang up': gt 'telefon', 'fin'
  907. end
  908. act 'I think we should break up...':
  909. cla
  910. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  911. gs 'lover', 'remove', lover_number
  912. act 'Hang up': gt 'telefon', 'fin'
  913. end
  914. end
  915. act 'Hang up (end relationship)':
  916. cla
  917. gs 'lover', 'remove', lover_number
  918. gt 'telefon', 'fin'
  919. end
  920. end
  921. if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 1:
  922. cla
  923. clr
  924. lover_number = ARGS[1]
  925. ring = 0
  926. lover_days = daystart - loverday[lover_number]
  927. !gs 'stat'
  928. !gs 'telefon','phone_call_receive'
  929. svetrand = rand(0, 5)
  930. if svetrand = 0:$sveta = 'cutie'
  931. if svetrand = 1:$sveta = 'honey'
  932. if svetrand = 2:$sveta = 'sweetie'
  933. if svetrand = 3:$sveta = 'baby'
  934. if svetrand = 4:$sveta = 'hot stuff'
  935. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  936. 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?'
  937. act 'Reply':
  938. cla
  939. '"Pretty good, you?"'
  940. '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
  941. act 'Tonight':
  942. cla
  943. loverrelation[lover_number] += 1
  944. svidanie[lover_number] = 1
  945. meetday[lover_number] = daystart
  946. '"How about this evening?"'
  947. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  948. act 'Pick a time':
  949. cla
  950. 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]")
  951. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  952. '"How about <<meethour[lover_number]>>:00?."'
  953. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  954. act 'Hang up':gt 'telefon', 'fin'
  955. end
  956. end
  957. act 'Maybe tomorrow':
  958. cla
  959. loverrelation[lover_number] -= 1
  960. '"I''m busy today. Call tomorrow."'
  961. if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Fuck off.' & gs 'lover', 'remove', lover_number
  962. if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.'
  963. act 'Hang up': gt 'telefon', 'fin'
  964. end
  965. act 'I think we should break up...':
  966. cla
  967. 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  968. gs 'lover', 'remove', lover_number
  969. act 'Hang up': gt 'telefon', 'fin'
  970. end
  971. end
  972. act 'Hang up (end relationship)':
  973. cla
  974. gs 'lover', 'remove', lover_number
  975. gt 'telefon', 'fin'
  976. end
  977. end
  978. !---------------------- End of Lover support
  979. if $ARGS[0] = 'Phone_notebook':
  980. gs 'housing', 'rent'
  981. $telefon['body'] = '
  982. <font size=6>Planner</font><br>
  983. <img src="<<FUNC(''$phone_theme'')>>icon_notebook.png" height="80" width="80"><br>
  984. <<year>>-<<$month>>-<<day>>, <<$week[week]>><br><br>'
  985. rent1 = -1
  986. rent4 = -1
  987. if home_owned[1] > 0 and ArendHouseSL > 0:rent1 = ArendHouseSL
  988. if home_owned[4] > 0 and ArendHouseSL4 > 0:rent4 = ArendHouseSL4
  989. d1 = day
  990. w1 = week
  991. m1 = month
  992. y1 = year
  993. i = 0
  994. $list = '<br>&emsp;<b>•</b> '
  995. :pnotebook
  996. daynum = daystart+i
  997. $calendarday = ''
  998. if m1 = 1 and d1 >= 1 and d1 <= 8:
  999. $calendarday += $list + 'New Year holidays'
  1000. if d1 = 1:$calendarday += ', New Year'
  1001. if d1 = 7:$calendarday += ', Christmas'
  1002. end
  1003. if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day'
  1004. if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day'
  1005. if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day'
  1006. if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday'
  1007. if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day'
  1008. if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day'
  1009. if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday'
  1010. if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day'
  1011. if storyline = 1 and SchoolAtestat = 0:
  1012. if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.'
  1013. if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.'
  1014. if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.'
  1015. if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.'
  1016. if school_year = 2003 and y1 = 2020 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!'
  1017. if school_year = 2004 and y1 = 2021 and m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.'
  1018. if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.'
  1019. if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.'
  1020. if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.'
  1021. end
  1022. if daynum >= lastmens+28 and daynum < lastmens+31:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
  1023. if daynum >= lastmens+12 and daynum < lastmens+14:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
  1024. if pregchem >= 6720:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
  1025. if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
  1026. if w1 < 5 and workFabrika = 1:
  1027. $calendarday += $list + 'Working as a seamstress. '
  1028. if age < 18:$calendarday += '<i>(16:00 - 20:00)</i>' else $calendarday += '<i>(8:00 - 16:00)</i>'
  1029. end
  1030. if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as nurse. <i>(8:00 - 16:00)</i>'
  1031. if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as masseuse. <i>(9:00 - 17:00)</i>'
  1032. !! if maidqw > 0:$calendarday += '<br>&emsp;<b>•</b> Working as maid. <i>(16:00 - 19:00)</i>'
  1033. if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <i><<$porndesc[pfilmday[i]]>></i>'
  1034. if d1 = 25 and (PersSecWork = 1 or workKafe = 1 or workhosp = 1 or worksalon = 1 or tanwork = 1 or workSec = 1 or workFabrika = 1):$calendarday += $list + '<i>Pay day!</i>'
  1035. if d1 = nyp_day and m1 = 12 and SchoolAtestat = 0 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!'
  1036. if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum:
  1037. if sisboytrioQW = 1:
  1038. $calendarday += $list + '<font color="orange">Threesome with Anya and Roma at 18:00</font>'
  1039. else
  1040. $calendarday += $list + '<font color="orange">Anya having sex with Roma at 18:00</font>'
  1041. end
  1042. end
  1043. if sisboyparty = 2 and sisboyparty_day+1 = daynum:$calendarday += $list + '<font color="orange">Party at Rex, gathering before 18:00 at Community Center</font>'
  1044. if rent1 = 0:$calendarday += $list + 'Rent on city apartment expires!'
  1045. if rent4 = 0:$calendarday += $list + 'Rent on Pushkin apartment expires!'
  1046. if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!'
  1047. if kid > 0:
  1048. k1 = kid
  1049. :kiddieloop
  1050. if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <<kid>>. baby!'
  1051. if k1 > 1:k1 -= 1 & jump 'kiddieloop'
  1052. end
  1053. if $calendarday ! '':
  1054. $telefon['body'] += '<b><<$monthName[m1]>> <<d1>>, <<$week[w1]>>:</b>'
  1055. $telefon['body'] += $calendarday +'<br>'
  1056. end
  1057. if i < 14:
  1058. rent1 -= 1
  1059. rent4 -= 1
  1060. i += 1
  1061. w1 += 1
  1062. if w1 > 7:w1 = 1
  1063. d1 += 1
  1064. if monthsend[m1] < d1:
  1065. m1 += 1 & d1 = 1
  1066. if m1 = 13: m1 = 1 & y1 += 1
  1067. end
  1068. jump 'pnotebook'
  1069. end
  1070. killvar 'calendarday'
  1071. killvar 'rent1'
  1072. killvar 'rent4'
  1073. killvar 'd1'
  1074. killvar 'w1'
  1075. killvar 'm1'
  1076. killvar 'y1'
  1077. killvar 'daynum'
  1078. dynamic $telefon['print']
  1079. end &! --- Phone_notebook ---
  1080. !!----------------------------------------Camera-------------------------------------------------
  1081. !!For setting the total numbers of selfies
  1082. if $ARGS[0] = 'Phone_selfie_totals':
  1083. bathroom_clotot = 20
  1084. bathroom_undtot = 20
  1085. bathroom_nudtot = 20
  1086. bathroom_titflash = 10
  1087. bathroom_assflash = 10
  1088. bathroom_pussyflash = 10
  1089. bathroom_bathtot = 24
  1090. bathroom_showertot = 25
  1091. bedroom_clotot = 27
  1092. bedroom_undtot = 20
  1093. bedroom_nudtot = 25
  1094. bedroom_titflash = 30
  1095. bedroom_assflash = 5
  1096. bedroom_pussyflash = 17
  1097. kitchen_clotot = 16
  1098. kitchen_undtot = 11
  1099. kitchen_nudtot = 19
  1100. kitchen_titflash = 20
  1101. kitchen_assflash = 1
  1102. kitchen_pussyflash = 5
  1103. livingroom_clotot = 17
  1104. livingroom_undtot = 21
  1105. livingroom_nudtot = 16
  1106. livingroom_titflash = 7
  1107. livingroom_assflash = 2
  1108. livingroom_pussyflash = 2
  1109. changingroom_clotot = 19
  1110. changingroom_undtot = 25
  1111. changingroom_nudtot = 25
  1112. changingroom_titflash = 28
  1113. changingroom_assflash = 16
  1114. changingroom_pussyflash = 27
  1115. park_clotot = 28
  1116. park_undtot = 0
  1117. park_nudtot = 10
  1118. park_titflash = 13
  1119. park_assflash = 1
  1120. park_pussyflash = 4
  1121. lockeroom_clotot = 21
  1122. lockeroom_undtot = 16
  1123. lockeroom_nudtot = 6
  1124. lockeroom_titflash = 9
  1125. lockeroom_assflash = 1
  1126. lockeroom_pussyflash = 10
  1127. beach_swim = 21
  1128. beach_nudtot = 15
  1129. beach_titflash = 11
  1130. beach_assflash = 1
  1131. beach_pussyflash = 2
  1132. end
  1133. !!for viewing photos on your phone
  1134. if $ARGS[0] = 'Phone_pictures':
  1135. gt 'phone_selfies', 'selfies'
  1136. end
  1137. !!picking the selfie image when taking photos, this sets the location variable
  1138. if $ARGS[0] = 'Phone_camera_selfie':
  1139. gs 'telefon', 'Phone_selfie_totals'
  1140. minut += rand(5,7)
  1141. if $location_type = 'bathroom':
  1142. $phone_loc = 'bathroom'
  1143. gs 'telefon', 'Phone_selfie_image'
  1144. elseif $locclass = 'bedr':
  1145. $phone_loc = 'bedroom'
  1146. gs 'telefon', 'Phone_selfie_image'
  1147. elseif $locclass = 'kitr':
  1148. $phone_loc = 'kitchen'
  1149. gs 'telefon', 'Phone_selfie_image'
  1150. elseif $locclass = 'livingr':
  1151. $phone_loc = 'livingroom'
  1152. gs 'telefon', 'Phone_selfie_image'
  1153. elseif $locclass = 'changingroom':
  1154. $phone_loc = 'changingroom'
  1155. gs 'telefon', 'Phone_selfie_image'
  1156. elseif $locclass = 'park':
  1157. $phone_loc = 'park'
  1158. gs 'telefon', 'Phone_selfie_image'
  1159. elseif $locclass = 'lockeroom':
  1160. $phone_loc = 'lockeroom'
  1161. gs 'telefon', 'Phone_selfie_image'
  1162. elseif $locclass = 'beach':
  1163. $phone_loc = 'beach'
  1164. gs 'telefon', 'Phone_selfie_image'
  1165. else
  1166. phone_rand = RAND(1,2)
  1167. phone_selfie[phone_rand] = 1
  1168. gs 'stat'
  1169. view 'images/system/phone/selfie/phone_selfie<<phone_rand>>.jpg'
  1170. end
  1171. !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
  1172. !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
  1173. !view 'images/system/phone/phone_selfie<<phone_rand>>.jpg'
  1174. end
  1175. !!taking selfies, this chooses a random image for the location for clothed, underwear and nude
  1176. if $ARGS[0] = 'Phone_selfie_image':
  1177. if $flashing = '':
  1178. if $clothingworntype = 'swimwear':
  1179. !!changing to and unmixed variable so the rng will work
  1180. dynamic 'temp_swim = <<$phone_loc>>_swim'
  1181. phone_rand = rand(1,temp_swim)
  1182. !!Setting the image owned flag to 1
  1183. dynamic '<<$phone_loc>>_swim[<<phone_rand>>] = 1'
  1184. gs 'stat'
  1185. view 'images/pc/selfies/<<$phone_loc>>/bikini/<<phone_rand>>.jpg'
  1186. elseif $clothingworntype ! 'nude':
  1187. !!changing to and unmixed variable so the rng will work
  1188. dynamic 'temp_clotot = <<$phone_loc>>_clotot'
  1189. phone_rand = rand(1,temp_clotot)
  1190. !!Setting the image owned flag to 1
  1191. dynamic '<<$phone_loc>>_closelfie[<<phone_rand>>] = 1'
  1192. gs 'stat'
  1193. view 'images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg'
  1194. elseif $pantyworntype ! 'none':
  1195. dynamic 'temp_undtot = <<$phone_loc>>_undtot'
  1196. phone_rand = rand(1,temp_undtot)
  1197. dynamic '<<$phone_loc>>_undselfie[<<phone_rand>>] = 1'
  1198. gs 'stat'
  1199. view 'images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg'
  1200. else
  1201. dynamic 'temp_nudtot = <<$phone_loc>>_nudtot'
  1202. phone_rand = rand(1,temp_nudtot)
  1203. dynamic '<<$phone_loc>>_nudselfie[<<phone_rand>>] = 1'
  1204. gs 'stat'
  1205. view 'images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg'
  1206. end
  1207. else
  1208. if $flashing = 'tits':
  1209. dynamic 'temp_titflash = <<$phone_loc>>_titflash'
  1210. phone_rand = rand(1,temp_titflash)
  1211. dynamic '<<$phone_loc>>_titflash[<<phone_rand>>] = 1'
  1212. gs 'stat'
  1213. view 'images/pc/selfies/<<$phone_loc>>/titflash/<<phone_rand>>.jpg'
  1214. elseif $flashing = 'ass':
  1215. dynamic 'temp_assflash = <<$phone_loc>>_assflash'
  1216. phone_rand = rand(1,temp_assflash)
  1217. dynamic '<<$phone_loc>>_assflash[<<phone_rand>>] = 1'
  1218. gs 'stat'
  1219. view 'images/pc/selfies/<<$phone_loc>>/assflash/<<phone_rand>>.jpg'
  1220. elseif $flashing = 'pussy':
  1221. dynamic 'temp_pussyflash = <<$phone_loc>>_pussyflash'
  1222. phone_rand = rand(1,temp_pussyflash)
  1223. dynamic '<<$phone_loc>>_pussyflash[<<phone_rand>>] = 1'
  1224. gs 'stat'
  1225. view 'images/pc/selfies/<<$phone_loc>>/pussyflash/<<phone_rand>>.jpg'
  1226. end
  1227. $flashing = ''
  1228. end
  1229. end
  1230. !!taking selfies in the shower or bath
  1231. if $ARGS[0] = 'Phone_selfie_image_bathing':
  1232. gs 'telefon', 'Phone_selfie_totals'
  1233. $phone_loc = 'bathroom'
  1234. minut += rand(5,7)
  1235. if $ARGS[1] = 'shower':
  1236. !!changing to and unmixed variable so the rng will work
  1237. dynamic 'temp_showertot = bathroom_showertot'
  1238. phone_rand = rand(1,temp_showertot)
  1239. !!Setting the image owned flag to 1
  1240. dynamic '<<$phone_loc>>_showerselfie[<<phone_rand>>] = 1'
  1241. gs 'stat'
  1242. view 'images/pc/selfies/<<$phone_loc>>/shower/<<phone_rand>>.jpg'
  1243. elseif $ARGS[1] = 'bath':
  1244. dynamic 'temp_bathtot = bathroom_bathtot'
  1245. phone_rand = rand(1,temp_bathtot)
  1246. dynamic '<<$phone_loc>>_bathselfie[<<phone_rand>>] = 1'
  1247. gs 'stat'
  1248. view 'images/pc/selfies/<<$phone_loc>>/bath/<<phone_rand>>.jpg'
  1249. end
  1250. end
  1251. !!for taking photos - only selfies for now
  1252. if $ARGS[0] = 'Phone_camera':
  1253. if $location_type = 'bathroom':
  1254. $phone_loc = 'bathroom'
  1255. elseif $locclass = 'bedr':
  1256. $phone_loc = 'bedroom'
  1257. elseif $locclass = 'kitr':
  1258. $phone_loc = 'kitchen'
  1259. elseif $locclass = 'livingr':
  1260. $phone_loc = 'livingroom'
  1261. elseif $locclass = 'changingroom':
  1262. $phone_loc = 'changingroom'
  1263. elseif $locclass = 'park':
  1264. $phone_loc = 'park'
  1265. elseif $locclass = 'lockeroom':
  1266. $phone_loc = 'lockeroom'
  1267. elseif $locclass = 'beach':
  1268. $phone_loc = 'beach'
  1269. else
  1270. $phone_loc = ''
  1271. end
  1272. $telefon['body'] = '<font size=6>Camera</font><br>
  1273. <img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"><br><br>'
  1274. !! Take a selfie depending on which clothes you are wearing
  1275. $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a><br>'
  1276. !! Flashing selfie
  1277. if $clothingworntype ! 'nude' and ($phone_loc = 'bedroom' or $phone_loc = 'kitchen' or $phone_loc = 'livingroom' or $phone_loc = 'changingroom' or $phone_loc = 'park' or $phone_loc = 'lockeroom' or $phone_loc = 'beach'):
  1278. if $phone_loc = 'bedroom':
  1279. $telefon['body'] += '
  1280. <a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a><br>
  1281. <a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a><br>
  1282. <a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a><br>'
  1283. else
  1284. if pcs_inhib >= 35 or exhibitionist_lvl > 0:
  1285. $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a><br>'
  1286. end
  1287. if exhibitionist_lvl > 0:
  1288. $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a><br>'
  1289. end
  1290. if exhibitionist_lvl > 1:
  1291. $telefon['body'] += '<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a><br>'
  1292. end
  1293. end
  1294. end
  1295. dynamic $telefon['print']
  1296. end
  1297. if $ARGS[0] = 'titflash':
  1298. $flashing = 'tits'
  1299. gs 'telefon', 'Phone_camera_selfie'
  1300. end
  1301. if $ARGS[0] = 'assflash':
  1302. $flashing = 'ass'
  1303. gs 'telefon', 'Phone_camera_selfie'
  1304. end
  1305. if $ARGS[0] = 'pussyflash':
  1306. $flashing = 'pussy'
  1307. gs 'telefon', 'Phone_camera_selfie'
  1308. end
  1309. !!-----------------------------------end of Camera------------------------------------------
  1310. if $ARGS[0] = 'Phone_wheather':
  1311. $telefon['body'] = '
  1312. <font size=6>Weather</font><br>
  1313. <img src="<<FUNC(''$phone_theme'')>>icon_weather.png" height="80" width="80"><br><br>
  1314. <b>Temperature:</b><br>
  1315. <<$temperature>>. <<$osadki>><br>
  1316. P.O.P. today is <<weatherFall>>%<br>'
  1317. dynamic $telefon['print']
  1318. end &! --- Phone_wheather ---
  1319. if $ARGS[0] = 'Phone_calendar':
  1320. $telefon['body'] = '
  1321. <font size=6>Calendar</font><br>
  1322. <img src="<<FUNC(''$phone_theme'')>>icon_calendar.png" height="80" width="80"><br><br>
  1323. <B>Today:</B><br>
  1324. <<$week[week]>>, <<day>> <<$month>> <<year>><br>'
  1325. dynamic $telefon['print']
  1326. end &! --- Phone_calendar ---
  1327. if $ARGS[0] = 'Phone_media':
  1328. $telefon['body'] = '
  1329. <font size=6>Media</font><br>
  1330. <img src="<<FUNC(''$phone_theme'')>>icon_music.png" height="80" width="80"><br>
  1331. <b>This option is not active</b><br>'
  1332. dynamic $telefon['print']
  1333. end &! --- Phone_media ---
  1334. if $ARGS[0] = 'Phone_sms':
  1335. $telefon['body'] = '
  1336. <font size=6>SMS</font><br>
  1337. <img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"><br>
  1338. <b>This option is not active</b><br>'
  1339. dynamic $telefon['print']
  1340. end &! --- Phone_sms ---
  1341. if $ARGS[0] = 'Phone_menu':
  1342. $telefon['body'] = '
  1343. <a href="exec:gs ''telefon'', ''Phone_camera'' "><img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"></a>
  1344. <a href="exec:gs ''telefon'', ''Phone_calendar'' "><img src="<<FUNC(''$phone_theme'')>>icon_calendar.png" height="80" width="80"></a>
  1345. <a href="exec:gs ''telefon'', ''Phone_pictures'' "><img src="<<FUNC(''$phone_theme'')>>icon_pictures.png" height="80" width="80"></a>
  1346. <br>
  1347. <a href="exec:gs ''telefon'', ''Phone_media'' "><img src="<<FUNC(''$phone_theme'')>>icon_music.png" height="80" width="80"></a>
  1348. <a href="exec:gs ''telefon'', ''Phone_notebook'' "><img src="<<FUNC(''$phone_theme'')>>icon_notebook.png" height="80" width="80"></a>
  1349. <a href="exec:gs ''telefon'', ''Phone_wheather'' "><img src="<<FUNC(''$phone_theme'')>>icon_weather.png" height="80" width="80"></a>
  1350. <br>
  1351. <a href="exec:gs ''telefon'', ''ContactList'' "><img src="<<FUNC(''$phone_theme'')>>icon_call.png" height="80" width="80"></a>
  1352. <a href="exec:gs ''telefon'', ''Phone_sms'' "><img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"></a>
  1353. <a href="exec:gs ''telefon'', ''Phone_megafon'' "><img src="<<FUNC(''$phone_theme'')>>icon_megafon.png" height="80" width="80"></a>
  1354. <br>'
  1355. if menu_off = 1:
  1356. $telefon['body'] += '<a href="exec:gs ''obj_din'', ''menu_disabled''"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png" height="80" width="80"></a><br>'
  1357. else
  1358. $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>'
  1359. end
  1360. dynamic $telefon['print']
  1361. end &! --- Phone_menu ---
  1362. if $ARGS[0] = 'Add_contact':
  1363. $dummy = INPUT('Enter a note:')
  1364. $contact[arrsize('$contact')] = dyneval($telefon['contact'],$ARGS[1],$dummy,$ARGS[2])
  1365. killvar '$dummy'
  1366. end &! --- Add_contact ---
  1367. if $ARGS[0] = 'telotkaz':
  1368. cla
  1369. minut += 10
  1370. '<<$ARGS[1]>>, "Sorry, I''m busy right now, maybe next time."'
  1371. act 'Hangup':gt 'telefon', 'fin'
  1372. end &! --- telotkaz ---
  1373. if $ARGS[0] = 'fin':
  1374. killvar 'lover_number'
  1375. cla
  1376. gt $loc, $metka
  1377. end
  1378. if $ARGS[0] = 'setup':
  1379. ! array $$phonetheme_name is built.
  1380. ! might need a tweak to have it rebuilt when new themes are available.
  1381. $phonetheme_name[0] = 'Custom_Standard'
  1382. $phonetheme_name[1] = 'Bimbo'
  1383. $phonetheme_name[2] = 'Custom_Aluminus'
  1384. $phonetheme_name[3] = 'Custom_Bottlecapped'
  1385. $phonetheme_name[4] = 'Custom_Galactic'
  1386. $phonetheme_name[5] = 'Custom_Vectored'
  1387. $phonetheme_name[6] = 'Custom_Veneer'
  1388. $phonetheme_name[7] = 'Custom_Voidwalker'
  1389. $phonetheme_name[8] = 'Custom_Voidwalker Red'
  1390. $phonetheme_name[9] = 'Custom_Voidwalker Toxic'
  1391. $phonetheme_name[10] = 'Gopnik'
  1392. $phonetheme_name[11] = 'Sports'
  1393. $phonetheme_name[12] = 'Succubus'
  1394. $phonetheme_name[13] = 'Woodshop'
  1395. phonetheme[0] = 1
  1396. end
  1397. --- telefon ---------------------------------