1
0

telefon 35 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769
  1. # telefon
  2. if $ARGS[0] = 'start':
  3. gs 'stat'
  4. gs 'telefon','phone_call_receive'
  5. if npc_QW['A192'] = 1 and week = 6 and pcs_apprnc > 80:
  6. gt 'nastja', 'pos4'
  7. elseif npc_QW['A192'] = 2 and week ! 6 and zenit ! 0 and nastjaday ! daystart:
  8. gt 'nastja', 'pos13'
  9. elseif hour >= 8 and hour <= 20 and npc_QW['A192'] = 2 and week = 6 and pcs_apprnc > 80 and nastjaday ! daystart:
  10. gt 'nastja', 'pos12'
  11. elseif npc_QW['A192'] = 5 and week = 6 and nastjaday ! daystart:
  12. gt 'nastja', 'pos22'
  13. elseif npc_QW['A192'] = 6 and nastjaday ! daystart:
  14. gt 'nastja', 'pos31'
  15. else
  16. $callerid = 'icon_nastja'
  17. gs 'telefon','phone_call_reject'
  18. end
  19. end
  20. if $ARGS[0] = 'mobilaraz':
  21. cls
  22. cla
  23. gs'din_bad'
  24. $caller = '<<$telsob>>'
  25. gs 'telefon','phone_balance'
  26. gs 'telefon','phone_call_receive'
  27. willAgree = (rand(0, 10) > 3)
  28. '"Yes, I''m listening," says a voice from the speaker.'
  29. if month > 5 and temper > 20 and sunWeather = 1:
  30. act 'Invite to the park':
  31. cla
  32. '"Let''s go for a walk in the park."'
  33. if willAgree:
  34. '<<$telsob>>, "See you in the park in an hour."'
  35. act 'Go':gt 'parksvid'
  36. else
  37. gs 'telefon','telotkaz',$telsob
  38. end
  39. end
  40. end
  41. act 'Invite to a movie':
  42. cla
  43. '"Want to go see a movie?"'
  44. if willAgree:
  45. '<<$telsob>>, "See you at the movie theater in an hour."'
  46. act 'Go':gt 'kinosvid'
  47. else
  48. gs 'telefon','telotkaz',$telsob
  49. end
  50. end
  51. act 'Invite to the pool hall':
  52. cla
  53. '"Let''s play pool."'
  54. if willAgree:
  55. '<<$telsob>>, "See you at the pool hall in an hour."'
  56. act 'Go':gt 'billsvid'
  57. else
  58. gs 'telefon','telotkaz',$telsob
  59. end
  60. end
  61. act 'Invite to the cafe':
  62. cla
  63. '"Let''s go to the cafe."'
  64. if willAgree:
  65. '<<$telsob>>, "See you at the cafe in an hour."'
  66. act 'Go':gt 'kafesvid'
  67. else
  68. gs 'telefon','telotkaz',$telsob
  69. end
  70. end
  71. act 'Invite to the casino':
  72. cla
  73. '"Let''s go to the casino."'
  74. if willAgree:
  75. '<<$telsob>>, "See you in the casino in an hour."'
  76. act 'Go':gt 'kazinosvid'
  77. else
  78. gs 'telefon','telotkaz',$telsob
  79. end
  80. end
  81. act 'Hangup':gt 'telefon', 'fin'
  82. end
  83. if $ARGS[0] = 'callingTheLover':
  84. cls
  85. cla
  86. gs'din_bad'
  87. lover_number = ARGS[1]
  88. $caller = '<<$loverdesc[0]>>'
  89. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  90. gs 'telefon','phone_balance'
  91. gs 'telefon','phone_call_receive'
  92. willAgree = (rand(0, 10) > 3)
  93. '"Yes, I''m listening," says a voice from the speaker.'
  94. if month > 5 and temper > 20 and sunWeather = 1:
  95. act 'Invite to the park':
  96. cla
  97. '"Let''s go for a walk in the park."'
  98. if willAgree:
  99. '<<$loverdesc[lover_number]>>, "See you in the park in an hour."'
  100. act 'Go':gt 'svidboy', 'parksvid'
  101. else
  102. gs 'telefon','telotkaz',$loverdesc[lover_number]
  103. end
  104. end
  105. end
  106. act 'Invite to a movie':
  107. cla
  108. '"Want to go see a movie?"'
  109. if willAgree:
  110. '<<$loverdesc[lover_number]>>, "See you at the movie theater in an hour."'
  111. act 'Go':gt 'svidboy', 'kinosvid'
  112. else
  113. gs 'telefon','telotkaz',$loverdesc[lover_number]
  114. end
  115. end
  116. act 'Invite to the pool hall':
  117. cla
  118. '"Let''s play pool."'
  119. if willAgree:
  120. '<<$loverdesc[lover_number]>>, "See you at the pool hall in an hour."'
  121. act 'Go':gt 'svidboy', 'billsvid'
  122. else
  123. gs 'telefon','telotkaz',$loverdesc[lover_number]
  124. end
  125. end
  126. act 'Invite to the cafe':
  127. cla
  128. '"Let''s go to the cafe."'
  129. if willAgree:
  130. '<<$loverdesc[lover_number]>>, "See you at the cafe in an hour."'
  131. act 'Go':gt 'svidboy', 'kafesvid'
  132. else
  133. gs 'telefon','telotkaz',$loverdesc[lover_number]
  134. end
  135. end
  136. act 'I think we should break up...':
  137. cla
  138. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  139. gs 'lover', 'remove', lover_number
  140. act 'Hangup':gt 'telefon', 'fin'
  141. end
  142. act 'Hangup':gt 'telefon', 'fin'
  143. killvar 'lover_number'
  144. end
  145. if $ARGS[0] = 'lover':
  146. cla
  147. clr
  148. lover_number = ARGS[1]
  149. ring = 0
  150. lover_days = daystart - loverday[lover_number]
  151. gs 'stat'
  152. gs 'telefon','phone_call_receive'
  153. svetrand = rand(0, 5)
  154. if svetrand = 0:$sveta = 'cutie'
  155. if svetrand = 1:$sveta = 'honey'
  156. if svetrand = 2:$sveta = 'sweetie'
  157. if svetrand = 3:$sveta = 'baby'
  158. if svetrand = 4:$sveta = 'hot stuff'
  159. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  160. 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?'
  161. act 'Normally':
  162. cla
  163. '"Pretty good, you?"'
  164. '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
  165. if pregtime <= lover_days and knowpreg = 1 and pregtalk = 0:
  166. act 'Tell him he''s going to be a dad':
  167. cla
  168. pregtalk = 1
  169. '"Honey, I''m pregnant with your child."'
  170. if haraklover[lover_number] = 0:
  171. if loverrelation[lover_number] >= 90:
  172. loverlove[lover_number] = 1
  173. '<<$loverdesc[lover_number]>>, "This is wonderful! We have to celebrate!"'
  174. '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.'
  175. '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.'
  176. 'When you are totally ready <<$loverdesc[lover_number]>> will take you to their parents.'
  177. act 'Hang up':gt 'telefon', 'fin'
  178. act 'Meet tonight':
  179. cla
  180. svidanie[lover_number] = 1
  181. '"How about this evening?"'
  182. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  183. act 'Pick a time':
  184. cla
  185. meetday[lover_number] = daystart
  186. 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]")
  187. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  188. '"How about <<meethour[lover_number]>>:00?"'
  189. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  190. act 'Hang up':gt 'telefon', 'fin'
  191. end
  192. end
  193. elseif loverrelation[lover_number] < 90:
  194. money += 20000
  195. '<<$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.'
  196. act 'Hang up':gt 'telefon', 'fin'
  197. end
  198. elseif haraklover[lover_number] = 1:
  199. money += 20000
  200. '<<$loverdesc[lover_number]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  201. act 'Hang up':gt 'telefon', 'fin'
  202. elseif haraklover[lover_number] = 2:
  203. pregtalk = 0
  204. '<<$loverdesc[lover_number]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  205. gs 'lover', 'remove', lover_number
  206. act 'Hang up':gt 'telefon', 'fin'
  207. end
  208. end
  209. elseif pregtime > lover_days and knowpreg = 1 and pregtalk = 0:
  210. act 'Honey, you will soon become a dad':
  211. cla
  212. loverrelation[lover_number] = 0
  213. '"Honey, I''m pregnant with your child."'
  214. '<<$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."'
  215. act 'Hang up.':gt 'telefon', 'fin'
  216. end
  217. elseif week > 1 and week < 5 and workKafe = 1:
  218. act 'Sorry, I''m working today':
  219. cla
  220. '"Sorry, I''m working today."'
  221. '<<$loverdesc[lover_number]>>, "Okay, I''ll call tomorrow."'
  222. act 'Hang up':gt 'telefon', 'fin'
  223. end
  224. end
  225. act 'Tonight':
  226. cla
  227. loverrelation[lover_number] += 1
  228. svidanie[lover_number] = 1
  229. meetday[lover_number] = daystart
  230. '"How about this evening?"'
  231. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  232. act 'Pick a time':
  233. cla
  234. 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]")
  235. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  236. '"How about <<meethour[lover_number]>>:00?."'
  237. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  238. act 'Hang up':gt 'telefon', 'fin'
  239. end
  240. end
  241. act 'Maybe tomorrow':
  242. cla
  243. loverrelation[lover_number] -= 1
  244. '"I''m busy today. Call tomorrow."'
  245. if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Suck my dick.' & gs 'lover', 'remove', lover_number
  246. if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.'
  247. act 'Hang up': gt 'telefon', 'fin'
  248. end
  249. act 'I think we should break up...':
  250. cla
  251. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  252. gs 'lover', 'remove', lover_number
  253. act 'Hang up': gt 'telefon', 'fin'
  254. end
  255. end
  256. act 'Leave':
  257. cla
  258. gs 'lover', 'remove', lover_number
  259. gt 'telefon', 'fin'
  260. end
  261. killvar 'lover_number'
  262. end
  263. if $ARGS[0] = 'phone_ring':
  264. clr
  265. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  266. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  267. pl'<center><font size=6><<$caller>> calling</font></center>'
  268. pl'<center><img src="<<$callerid>>"><br></center>'
  269. pl''
  270. pl''
  271. pl''
  272. pl''
  273. ! pl'<center><a href="exec:gt ''telefon'', ''start''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:gs ''stat''"><img src="images/system/phone/decline.png"></a></center>'
  274. end &! --- phone_ring ---
  275. if $ARGS[0] = 'phone_call_receive':
  276. clr
  277. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  278. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  279. pl'<center><font size=6>Talking to <<$caller>></font></center>'
  280. pl'<center><img src="<<$callerid>>"><br></center>'
  281. end &! --- phone_call_receive ---
  282. if $ARGS[0] = 'phone_balance':
  283. if balans < 4:
  284. clr
  285. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  286. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  287. pl'<center><font size=6>Not enough credit on your account</font></center>'
  288. pl'<center><img src="<<$callerid>>"><br></center>'
  289. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/phone/decline.png"></a></center>'
  290. wait 3500
  291. cla
  292. gt $loc, $metka
  293. elseif balans >= 4:
  294. balans -= 4
  295. end
  296. end &! --- phone_balance ---
  297. if $ARGS[0] = 'Phone_call':
  298. clr
  299. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  300. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  301. pl'<center><font size=6>Calling Mom</font></center>'
  302. pl'<center><img src="images/system/phone/icons/icon_npc1.png"><br></center>'
  303. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a></center>'
  304. wait 1500
  305. minut += 1
  306. $callerid = 'images/system/phone/icons/icon_npc1.png'
  307. gs 'telefon', 'phone_balance'
  308. $callerid = 'icon_npc1'
  309. gs 'telefon', 'phone_call_reject'
  310. end &! --- Phone_call ---
  311. if $ARGS[0] = 'phone_call_reject':
  312. clr
  313. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  314. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  315. pl'<center><font size=6>Calling....</font></center>'
  316. pl'<center><img src="images/system/phone/icons/<<$callerid>>.png"><br></center>'
  317. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a></center>'
  318. end &! --- phone_call_reject ---
  319. if $ARGS[0] = 'Phone_megafon':
  320. clr
  321. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  322. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  323. pl'<center><font size=6>Bullhorn</font></center>'
  324. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_megafon.png"><br></center>'
  325. pl'<center><b>The balance in the account: </b><font size=5><i><font size=6><<balans>></font></i> <b>₽</b>.</center>.'
  326. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  327. end &! --- Phone_megafon ---
  328. if $ARGS[0] = 'Phone_contactlist':
  329. clr
  330. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  331. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  332. pl '<center><font size=6>Contacts</font></center>'
  333. pl '<center><img src="<<FUNC(''$phone_theme'')>>icon_call.png"><br></center>'
  334. if StoryLine = 1:pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_npc1.png"></TD><TD>Mum</TD><TD align="right"><a href="exec:gs ''telefon'', ''Phone_call'' "><b>Call</b></a></TD></TR></TABLE></center>'
  335. if hour >= 8 and hour <= 19:
  336. if telalla > 0:
  337. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_ira1.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''images/system/phone/icons/icon_ira1.png'' & $telsob = ''Alla'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></TD></TR></TABLE></center>'
  338. end
  339. if telmasha > 0:
  340. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_masha.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''images/system/phone/icons/icon_masha.png'' & $telsob = ''Masha'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></TD></TR></TABLE></center>'
  341. end
  342. if telkat > 0:
  343. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_kat.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''images/system/phone/icons/icon_kat.png'' & $telsob = ''Kate'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></TD></TR></TABLE></center>'
  344. end
  345. !! iterating all lovers
  346. lover_number = 0
  347. :loverloop
  348. if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0 and rand(1,7) > 3:
  349. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+lover_picture[lover_number]+'.png"></TD><TD></TD><TD align="right"><a href="exec:lover_number = <<lover_number>> & gt ''telefon'', ''callingTheLover'', <<lover_number>>"><b>Call</b></a></TD></TR></TABLE></center>'
  350. end
  351. lover_number += 1
  352. if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
  353. killvar 'lover_number'
  354. else
  355. if telalla > 0:
  356. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_ira1.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_ira1'' & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
  357. end
  358. if telmasha > 0:
  359. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_masha.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_masha'' & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
  360. end
  361. if telkat > 0:
  362. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_kat.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_kat'' & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
  363. end
  364. !! iterating all lovers
  365. lover_number = 0
  366. :loverunavailableloop
  367. if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0:
  368. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+lover_picture[lover_number]+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+lover_picture[lover_number] & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
  369. end
  370. lover_number += 1
  371. if lover_number < arrsize('pcs_lovers'): jump 'loverunavailableloop'
  372. killvar 'lover_number'
  373. end
  374. if npc_QW['A192'] > 0:
  375. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_nastja.png"></TD><TD align="right"><a href="exec:gs ''telefon'', ''start''"><b>Call</b></a></TD></TR></TABLE></center>'
  376. end
  377. dummyas = arrsize('$contact')
  378. :din_bad_as
  379. dummyas -= 1
  380. if dummyas >= 0:
  381. pl '<<$contact[dummyas]>>'
  382. jump 'din_bad_as'
  383. end
  384. killvar 'dummyas'
  385. if arrsize('$contact')>0:pl'<center><a href="exec:gs ''telefon'', ''Edit_Custom_list'' "><b>Edit Contacts</b></a></center>'
  386. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  387. end &! --- Phone_contactlist ---
  388. if $ARGS[0] = 'Edit_Custom_list':
  389. clr
  390. dummyas = arrsize('$contact')
  391. :din_bad_as1
  392. dummyas -= 1
  393. if dummyas >= 0:
  394. $dummyedit = $contact[dummyas]
  395. $dummyedit1 = dyneval('$result = ''</a><a href="exec:killvar ''''$contact'''',<<dummyas>> & gs ''''telefon'''', ''''Edit_Custom_list'''' "><b>Remove</b>'' ')
  396. $dummyedit2 = $replace($dummyedit,'<b>Call</b>',$dummyedit1)
  397. pl $dummyedit2
  398. jump 'din_bad_as1'
  399. end
  400. killvar 'dummyas'
  401. killvar 'dummyedit'
  402. killvar 'dummyedit1'
  403. killvar 'dummyedit2'
  404. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  405. end &! --- Edit_Custom_list ---
  406. if $ARGS[0] = 'Phone_notebook':
  407. clr
  408. pl'<center><font size=6>Planner</font></center>'
  409. pl'<center><<year>>-<<$month>>-<<day>>, <<$week[week]>><br></center>'
  410. rent = -1
  411. if BuyHous = 2 and ArendHouseSL > 0:rent = ArendHouseSL
  412. preg1 = pregtime
  413. d1 = day
  414. w1 = week
  415. m1 = month
  416. y1 = year
  417. i = 0
  418. $list = '<br>&emsp;<b>•</b> '
  419. :pnotebook
  420. daynum = daystart+i
  421. $calendarday = ''
  422. if m1 = 1 and d1 >= 1 and d1 <= 8:
  423. $calendarday += $list + 'New Year holidays'
  424. if d1 = 1:$calendarday += ', New Year'
  425. if d1 = 7:$calendarday += ', Christmas'
  426. end
  427. if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day'
  428. if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day'
  429. if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day'
  430. if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday'
  431. if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day'
  432. if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day'
  433. if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday'
  434. if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day'
  435. if storyline = 1 and SchoolAtestat = 0:
  436. if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.'
  437. if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.'
  438. if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.'
  439. if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.'
  440. if schoool_year = 2000 and y1 = 2017 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!'
  441. if schoool_year = 2001 and y1 = 2018 and m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.'
  442. if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.'
  443. if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.'
  444. if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.'
  445. end
  446. if daynum >= lastmens+28 and daynum < lastmens+31:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
  447. if daynum >= lastmens+12 and daynum < lastmens+14:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
  448. if preg1 = 280:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
  449. if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
  450. if w1 < 5 and workFabrika = 1:
  451. $calendarday += $list + 'Working as a seamstress. '
  452. if age < 18:$calendarday += '<i>(16:00 - 20:00)</i>' else $calendarday += '<i>(8:00 - 16:00)</i>'
  453. end
  454. if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as nurse. <i>(8:00 - 16:00)</i>'
  455. if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as masseuse. <i>(9:00 - 17:00)</i>'
  456. !! if maidqw > 0:$calendarday += '<br>&emsp;<b>•</b> Working as maid. <i>(16:00 - 19:00)</i>'
  457. if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <i><<$porndesc[pfilmday[i]]>></i>'
  458. 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>'
  459. if d1 = nyp_day and m1 = 12 and SchoolAtestat = 0 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!'
  460. if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum:
  461. if sisboytrioQW = 1:
  462. $calendarday += $list + '<font color="orange">Threesome with Anja and Roma at 18:00</font>'
  463. else
  464. $calendarday += $list + '<font color="orange">Anja having sex with Roma at 18:00</font>'
  465. end
  466. end
  467. if sisboyparty = 2 and sisboyparty_day+1 = daynum:$calendarday += $list + '<font color="orange">Party at Rex, gathering before 18:00 at Community Center</font>'
  468. if rent = 0:$calendarday += $list + 'Rent on apartment expires!'
  469. if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!'
  470. if kid > 0:
  471. k1 = kid
  472. :kiddieloop
  473. if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <<kid>>. baby!'
  474. if k1 > 1:k1 -= 1 & jump 'kiddieloop'
  475. end
  476. if $calendarday ! '':
  477. p '<b><<$monthName[m1]>> <<d1>>, <<$week[w1]>>:</b>'
  478. pl $calendarday
  479. end
  480. if i < 14:
  481. preg1 += 1
  482. rent -= 1
  483. i += 1
  484. w1 += 1
  485. if w1 > 7:w1 = 1
  486. d1 += 1
  487. if monthsend[m1] < d1:
  488. m1 += 1 & d1 = 1
  489. if m1 = 13: m1 = 1 & y1 += 1
  490. end
  491. jump 'pnotebook'
  492. end
  493. killvar 'calendarday'
  494. killvar 'rent'
  495. killvar 'preg1'
  496. killvar 'd1'
  497. killvar 'w1'
  498. killvar 'm1'
  499. killvar 'y1'
  500. killvar 'daynum'
  501. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  502. end &! --- Phone_notebook ---
  503. if $ARGS[0] = 'Phone_pictures':
  504. clr
  505. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  506. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  507. pl'<center><font size=6>Gallery</font></center>'
  508. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_pictures.png"><br></center>'
  509. if phone_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie1.jpg''"><b>Selfie number1</b></a>'
  510. if phone_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie2.jpg''"><b>Selfie number2</b></a>'
  511. if vanr_selfie[0] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (0).jpg''"><b>After shower selfie number1</b></a>'
  512. if vanr_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (1).jpg''"><b>After shower selfie number2</b></a>'
  513. if vanr_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (2).jpg''"><b>After shower selfie number3</b></a>'
  514. if vanr_selfie[3] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (3).jpg''"><b>After shower selfie number4</b></a>'
  515. if vanr_selfie[4] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (4).jpg''"><b>After shower selfie number5</b></a>'
  516. if vanr_selfie[5] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (5).jpg''"><b>After shower selfie number6</b></a>'
  517. if vanr_selfie[6] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (6).jpg''"><b>After shower selfie number7</b></a>'
  518. if vanr_selfie[7] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (7).jpg''"><b>After shower selfie number8</b></a>'
  519. if vanr_selfie[8] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (8).jpg''"><b>After shower selfie number9</b></a>'
  520. if vanr_selfie[9] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (9).jpg''"><b>After shower selfie number10</b></a>'
  521. if vanr_selfie[10] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (10).jpg''"><b>After shower selfie number11</b></a>'
  522. if vanr_selfie[11] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (11).jpg''"><b>After shower selfie number12</b></a>'
  523. if vanr_selfie[12] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (12).jpg''"><b>After shower selfie number13</b></a>'
  524. if vanr_selfie[13] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (13).jpg''"><b>After shower selfie number14</b></a>'
  525. if vanr_selfie[14] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (14).jpg''"><b>After shower selfie number15</b></a>'
  526. if vanr_selfie[15] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (15).jpg''"><b>After shower selfie number16</b></a>'
  527. if vanr_selfie[16] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (16).jpg''"><b>After shower selfie number17</b></a>'
  528. if vanr_selfie[17] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (17).jpg''"><b>After shower selfie number18</b></a>'
  529. if vanr_selfie[18] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (18).jpg''"><b>After shower selfie number19</b></a>'
  530. if vanr_selfie[19] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (19).jpg''"><b>After shower selfie number20</b></a>'
  531. !if vanr_selfie[20] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (20).jpg''"><b>After shower selfie number21</b></a>'
  532. if vanr_selfie[21] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (21).jpg''"><b>After shower selfie number22</b></a>'
  533. if vanr_selfie[22] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (22).jpg''"><b>After shower selfie number23</b></a>'
  534. if vanr_selfie[23] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (23).jpg''"><b>After shower selfie number24</b></a>'
  535. if vanr_selfie[24] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (24).jpg''"><b>After shower selfie number25</b></a>'
  536. if vanr_selfie[25] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (25).jpg''"><b>After shower selfie number26</b></a>'
  537. if vanr_selfie[26] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (26).jpg''"><b>After shower selfie number27</b></a>'
  538. if vanr_selfie[27] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (27).jpg''"><b>After shower selfie number28</b></a>'
  539. if vanr_selfie[28] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (28).jpg''"><b>After shower selfie number29</b></a>'
  540. if vanr_selfie[29] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (29).jpg''"><b>After shower selfie number30</b></a>'
  541. if vanr_selfie[30] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (30).jpg''"><b>After shower selfie number31</b></a>'
  542. if vanr_selfie[31] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (31).jpg''"><b>After shower selfie number32</b></a>'
  543. if vanr_selfie[32] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (32).jpg''"><b>After shower selfie number33</b></a>'
  544. if vanr_selfie[33] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (33).jpg''"><b>After shower selfie number34</b></a>'
  545. if vanr_selfie[34] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (34).jpg''"><b>After shower selfie number35</b></a>'
  546. if vanr_selfie[35] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (35).jpg''"><b>After shower selfie number36</b></a>'
  547. if vanr_selfie[36] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (36).jpg''"><b>After shower selfie number37</b></a>'
  548. if vanr_selfie[37] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (37).jpg''"><b>After shower selfie number38</b></a>'
  549. if vanr_selfie[38] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (38).jpg''"><b>After shower selfie number39</b></a>'
  550. !if phone_selfie[m] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiem.jpg''"><b>Photo in sperm number1</b></a>'
  551. !if phone_selfie[n] = 1:pl'<a href="exec:view''images/system/phone/phone_selfien.jpg''"><b>Photo in sperm number2</b></a>'
  552. !if phone_selfie[x] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiex.jpg''"><b>Photo Event number1</b></a>'
  553. !if phone_selfie[y] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiey.jpg''"><b>Photo Event number2</b></a>'
  554. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  555. end &! --- Phone_pictures ---
  556. if $ARGS[0] = 'Phone_camera_selfie':
  557. if ($loc = 'vanrPar' or $loc = 'vanr' or $loc = 'yvan') and mirror_steam = hour:
  558. minut += RAND(5,7)
  559. phone_rand = RAND(0,38)
  560. vanr_selfie[phone_rand] = 1
  561. gs 'stat'
  562. gs 'telefon', 'Phone_pictures'
  563. view 'images/system/phone/selfie/bathroom/s (<<phone_rand>>).jpg'
  564. else
  565. minut += RAND(5,7)
  566. phone_rand = RAND(1,2)
  567. phone_selfie[phone_rand] = 1
  568. gs 'stat'
  569. gs 'telefon', 'Phone_pictures'
  570. view 'images/system/phone/selfie/phone_selfie<<phone_rand>>.jpg'
  571. end
  572. !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
  573. !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
  574. !view 'images/system/phone/phone_selfie<<phone_rand>>.jpg'
  575. end &! --- Phone_camera_selfie ---
  576. if $ARGS[0] = 'Phone_camera':
  577. clr
  578. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  579. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  580. pl'<center><font size=6>Camera</font></center>'
  581. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_camera.png"><br></center>'
  582. pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a>'
  583. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  584. end &! --- Phone_camera ---
  585. if $ARGS[0] = 'Phone_wheather':
  586. clr
  587. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  588. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  589. pl'<center><font size=6>Weather</font></center>'
  590. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_weather.png"><br></center>'
  591. pl'<center><font size=6><b>Temperature: <<$temperature>>. <i><<$osadki>></i></b></font></center>'
  592. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  593. end &! --- Phone_wheather ---
  594. if $ARGS[0] = 'Phone_calendar':
  595. clr
  596. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  597. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  598. pl'<center><font size=6>Calendar</font></center>'
  599. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_calendar.png"><br></center>'
  600. pl'<center><B>Today: </B><font size=5><<$week[week]>>, <i><font size=6><<day>></font></i> <<$month>> <i><font size=6><<year>></font></i> year.</font></center>'
  601. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  602. end &! --- Phone_calendar ---
  603. if $ARGS[0] = 'Phone_noactive':
  604. clr
  605. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  606. pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  607. pl'<center><font size=6>This option is not active</font></center>'
  608. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  609. end &! --- Phone_noactive ---
  610. if $ARGS[0] = 'Phone_menu':
  611. clr
  612. pl'<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  613. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
  614. pl'<center><a href="exec:gs ''telefon'', ''Phone_camera'' "><img src="<<FUNC(''$phone_theme'')>>icon_camera.png"></a><a href="exec:gs ''telefon'', ''Phone_calendar'' "><img src="<<FUNC(''$phone_theme'')>>icon_calendar.png"></a><a href="exec:gs ''telefon'', ''Phone_pictures'' "><img src="<<FUNC(''$phone_theme'')>>icon_pictures.png"></a></center>'
  615. pl'<center><a href="exec:gs ''telefon'', ''Phone_noactive'' "><img src="<<FUNC(''$phone_theme'')>>icon_music.png"></a><a href="exec:gs ''Cheatmenu_din'' & Enable_settingmode = 1 & dynamic $cheatmenu[''display'']"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png"></a><a href="exec:gs ''telefon'', ''Phone_wheather'' "><img src="<<FUNC(''$phone_theme'')>>icon_weather.png"></a></center>'
  616. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="<<FUNC(''$phone_theme'')>>icon_call.png"></a><a href="exec:gs ''telefon'', ''Phone_noactive'' "><img src="<<FUNC(''$phone_theme'')>>icon_sms.png"></a><a href="exec:gs ''telefon'', ''Phone_megafon'' "><img src="<<FUNC(''$phone_theme'')>>icon_megafon.png"></a></center>'
  617. pl'<center><a href="exec:gs ''telefon'', ''Phone_notebook'' "><img src="<<FUNC(''$phone_theme'')>>icon_notebook.png"></a></center>'
  618. pl'<center><a href="exec:gs''stat''"><img src="images/system/icon/back.png"></a></center>'
  619. end &! --- Phone_menu ---
  620. if $ARGS[0] = 'Add_contact':
  621. $dummy = INPUT('Enter a note:')
  622. $contact[arrsize('$contact')] = '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="<<$ARGS[1]>>"></TD><TD><<$dummy>></TD><TD align="right"><a href="exec:<<$ARGS[2]>>"><b>Call</b></a></TD></TR></TABLE>'
  623. killvar '$dummy'
  624. end &! --- Add_contact ---
  625. if $ARGS[0] = 'telotkaz':
  626. cla
  627. minut += 10
  628. '<<$ARGS[1]>>, "Sorry, I''m busy right now, maybe next time."'
  629. act 'Hangup':gt 'telefon', 'fin'
  630. end &! --- telotkaz ---
  631. if $ARGS[0] = 'fin':
  632. cla
  633. gt $loc, $metka
  634. end
  635. if $ARGS[0] = 'setup':
  636. ! array $$phonetheme_name is built.
  637. ! might need a tweak to have it rebuilt when new themes are available.
  638. $phonetheme_name[0] = 'Custom_Standard'
  639. $phonetheme_name[1] = 'Bimbo'
  640. $phonetheme_name[2] = 'Custom_Aluminus'
  641. $phonetheme_name[3] = 'Custom_Bottlecapped'
  642. $phonetheme_name[4] = 'Custom_Galactic'
  643. $phonetheme_name[5] = 'Custom_Vectored'
  644. $phonetheme_name[6] = 'Custom_Veneer'
  645. $phonetheme_name[7] = 'Custom_Voidwalker'
  646. $phonetheme_name[8] = 'Custom_Voidwalker Red'
  647. $phonetheme_name[9] = 'Custom_Voidwalker Toxic'
  648. $phonetheme_name[10] = 'Gopnik'
  649. $phonetheme_name[11] = 'Sports'
  650. $phonetheme_name[12] = 'Succubus'
  651. $phonetheme_name[13] = 'Woodshop'
  652. phonetheme[0] = 1
  653. end
  654. --- telefon ---------------------------------