telefon.qsrc 40 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049
  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' and loverGender[ARGS[1]] = 1:
  84. cls
  85. cla
  86. gs'din_bad'
  87. lover_number = ARGS[1]
  88. $caller = '<<$loverdesc[lover_number]>>'
  89. $telsob = $caller
  90. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  91. gs 'telefon','phone_balance'
  92. gs 'telefon','phone_call_receive'
  93. willAgree = (rand(0, 10) > 3)
  94. '"Yes, I''m listening," says a voice from the speaker.'
  95. if month > 5 and temper > 20 and sunWeather = 1:
  96. act 'Invite to the park':
  97. cla
  98. '"Let''s go for a walk in the park."'
  99. if willAgree:
  100. '<<$telsob>>, "See you in the park in an hour."'
  101. act 'Go': gt 'parksvid'
  102. else
  103. gs 'telefon','telotkaz',$telsob
  104. end
  105. end
  106. end
  107. act 'Invite to a movie':
  108. cla
  109. '"Want to go see a movie?"'
  110. if willAgree:
  111. '<<$telsob>>, "See you at the movie theater in an hour."'
  112. act 'Go': gt 'kinosvid'
  113. else
  114. gs 'telefon','telotkaz',$telsob
  115. end
  116. end
  117. if $home_town = 'city':
  118. act 'Invite to the pool hall':
  119. cla
  120. '"Let''s play pool."'
  121. if willAgree:
  122. '<<$telsob>>, "See you at the pool hall in an hour."'
  123. act 'Go': gt 'billsvid'
  124. else
  125. gs 'telefon','telotkaz',$telsob
  126. end
  127. end
  128. end
  129. act 'Invite to the cafe':
  130. cla
  131. '"Let''s go to the cafe."'
  132. if willAgree:
  133. '<<$telsob>>, "See you at the cafe in an hour."'
  134. act 'Go': gt 'kafesvid'
  135. else
  136. gs 'telefon','telotkaz',$telsob
  137. end
  138. end
  139. act 'Invite to the casino':
  140. cla
  141. '"Let''s go to the casino."'
  142. if willAgree:
  143. '<<$telsob>>, "See you in the casino in an hour."'
  144. act 'Go': gt 'kazinosvid'
  145. else
  146. gs 'telefon','telotkaz',$telsob
  147. end
  148. end
  149. act 'I think we should break up...':
  150. cla
  151. 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  152. gs 'lover', 'remove', lover_number
  153. act 'Hangup':gt 'telefon', 'fin'
  154. end
  155. act 'Hangup':gt 'telefon', 'fin'
  156. end
  157. if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 0:
  158. cls
  159. cla
  160. gs'din_bad'
  161. lover_number = ARGS[1]
  162. $caller = '<<$loverdesc[lover_number]>>'
  163. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  164. gs 'telefon','phone_balance'
  165. gs 'telefon','phone_call_receive'
  166. willAgree = (rand(0, 10) > 3)
  167. '"Yes, I''m listening," says a voice from the speaker.'
  168. if month > 5 and temper > 20 and sunWeather = 1:
  169. act 'Invite to the park':
  170. cla
  171. '"Let''s go for a walk in the park."'
  172. if willAgree:
  173. '<<$loverdesc[lover_number]>>, "See you in the park in an hour."'
  174. act 'Go':gt 'svidboy', 'parksvid'
  175. else
  176. gs 'telefon','telotkaz',$loverdesc[lover_number]
  177. end
  178. end
  179. end
  180. act 'Invite to a movie':
  181. cla
  182. '"Want to go see a movie?"'
  183. if willAgree:
  184. '<<$loverdesc[lover_number]>>, "See you at the movie theater in an hour."'
  185. act 'Go':gt 'svidboy', 'kinosvid'
  186. else
  187. gs 'telefon','telotkaz',$loverdesc[lover_number]
  188. end
  189. end
  190. if $home_town = 'city':
  191. act 'Invite to the pool hall':
  192. cla
  193. '"Let''s play pool."'
  194. if willAgree:
  195. '<<$loverdesc[lover_number]>>, "See you at the pool hall in an hour."'
  196. act 'Go':gt 'svidboy', 'billsvid'
  197. else
  198. gs 'telefon','telotkaz',$loverdesc[lover_number]
  199. end
  200. end
  201. end
  202. act 'Invite to the cafe':
  203. cla
  204. '"Let''s go to the cafe."'
  205. if willAgree:
  206. '<<$loverdesc[lover_number]>>, "See you at the cafe in an hour."'
  207. act 'Go':gt 'svidboy', 'kafesvid'
  208. else
  209. gs 'telefon','telotkaz',$loverdesc[lover_number]
  210. end
  211. end
  212. act 'I think we should break up...':
  213. cla
  214. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  215. gs 'lover', 'remove', lover_number
  216. act 'Hangup':gt 'telefon', 'fin'
  217. end
  218. act 'Hangup':gt 'telefon', 'fin'
  219. end
  220. if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
  221. cla
  222. clr
  223. lover_number = ARGS[1]
  224. ring = 0
  225. lover_days = daystart - loverday[lover_number]
  226. gs 'stat'
  227. gs 'telefon','phone_call_receive'
  228. svetrand = rand(0, 5)
  229. if svetrand = 0:$sveta = 'cutie'
  230. if svetrand = 1:$sveta = 'honey'
  231. if svetrand = 2:$sveta = 'sweetie'
  232. if svetrand = 3:$sveta = 'baby'
  233. if svetrand = 4:$sveta = 'hot stuff'
  234. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  235. 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?'
  236. act 'Reply':
  237. cla
  238. '"Pretty good, you?"'
  239. '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
  240. if pregtime <= lover_days and knowpreg = 1 and pregtalk = 0:
  241. act 'Tell him he''s going to be a dad':
  242. cla
  243. pregtalk = 1
  244. '"Honey, I''m pregnant with your child."'
  245. if haraklover[lover_number] = 0:
  246. if loverrelation[lover_number] >= 90:
  247. loverlove[lover_number] = 1
  248. '<<$loverdesc[lover_number]>>, "This is wonderful! We have to celebrate!"'
  249. '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.'
  250. '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.'
  251. 'When you are totally ready <<$loverdesc[lover_number]>> will take you to their parents.'
  252. act 'Hang up':gt 'telefon', 'fin'
  253. act 'Meet tonight':
  254. cla
  255. svidanie[lover_number] = 1
  256. '"How about this evening?"'
  257. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  258. act 'Pick a time':
  259. cla
  260. meetday[lover_number] = daystart
  261. 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]")
  262. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  263. '"How about <<meethour[lover_number]>>:00?"'
  264. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  265. act 'Hang up':gt 'telefon', 'fin'
  266. end
  267. end
  268. elseif loverrelation[lover_number] < 90:
  269. money += 20000
  270. '<<$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.'
  271. act 'Hang up':gt 'telefon', 'fin'
  272. end
  273. elseif haraklover[lover_number] = 1:
  274. money += 20000
  275. '<<$loverdesc[lover_number]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  276. act 'Hang up':gt 'telefon', 'fin'
  277. elseif haraklover[lover_number] = 2:
  278. pregtalk = 0
  279. '<<$loverdesc[lover_number]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  280. gs 'lover', 'remove', lover_number
  281. act 'Hang up':gt 'telefon', 'fin'
  282. end
  283. end
  284. elseif pregtime > lover_days and knowpreg = 1 and pregtalk = 0:
  285. act 'Honey, you will soon become a dad':
  286. cla
  287. loverrelation[lover_number] = 0
  288. '"Honey, I''m pregnant with your child."'
  289. '<<$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."'
  290. act 'Hang up.':gt 'telefon', 'fin'
  291. end
  292. elseif week > 1 and week < 5 and workKafe = 1:
  293. act 'Sorry, I''m working today':
  294. cla
  295. '"Sorry, I''m working today."'
  296. '<<$loverdesc[lover_number]>>, "Okay, I''ll call tomorrow."'
  297. act 'Hang up':gt 'telefon', 'fin'
  298. end
  299. end
  300. act 'Tonight':
  301. cla
  302. loverrelation[lover_number] += 1
  303. svidanie[lover_number] = 1
  304. meetday[lover_number] = daystart
  305. '"How about this evening?"'
  306. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  307. act 'Pick a time':
  308. cla
  309. 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]")
  310. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  311. '"How about <<meethour[lover_number]>>:00?."'
  312. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  313. act 'Hang up':gt 'telefon', 'fin'
  314. end
  315. end
  316. act 'Maybe tomorrow':
  317. cla
  318. loverrelation[lover_number] -= 1
  319. '"I''m busy today. Call tomorrow."'
  320. if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Suck my dick.' & gs 'lover', 'remove', lover_number
  321. if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.'
  322. act 'Hang up': gt 'telefon', 'fin'
  323. end
  324. act 'I think we should break up...':
  325. cla
  326. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  327. gs 'lover', 'remove', lover_number
  328. act 'Hang up': gt 'telefon', 'fin'
  329. end
  330. end
  331. act 'Hang up (end relationship)':
  332. cla
  333. gs 'lover', 'remove', lover_number
  334. gt 'telefon', 'fin'
  335. end
  336. end
  337. if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 1:
  338. cla
  339. clr
  340. lover_number = ARGS[1]
  341. ring = 0
  342. lover_days = daystart - loverday[lover_number]
  343. gs 'stat'
  344. gs 'telefon','phone_call_receive'
  345. svetrand = rand(0, 5)
  346. if svetrand = 0:$sveta = 'cutie'
  347. if svetrand = 1:$sveta = 'honey'
  348. if svetrand = 2:$sveta = 'sweetie'
  349. if svetrand = 3:$sveta = 'baby'
  350. if svetrand = 4:$sveta = 'hot stuff'
  351. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  352. 'Hey <<$sveta>>, it''s me, <<$loverdesc[lover_number]>>. How''s it going?'
  353. act 'Reply':
  354. cla
  355. '"Pretty good, you?"'
  356. '<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
  357. act 'Tonight':
  358. cla
  359. loverrelation[lover_number] += 1
  360. svidanie[lover_number] = 1
  361. meetday[lover_number] = daystart
  362. '"How about this evening?"'
  363. '<<$loverdesc[lover_number]>>, "Sounds great! When can I come to pick you up?"'
  364. act 'Pick a time':
  365. cla
  366. 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]")
  367. if meethour[lover_number] <= hour or meethour[lover_number] > 23:meethour[lover_number] = 20
  368. '"How about <<meethour[lover_number]>>:00?."'
  369. '<<$loverdesc[lover_number]>>, "Okay <<$sveta>>, see you at <<meethour[lover_number]>>:00."'
  370. act 'Hang up':gt 'telefon', 'fin'
  371. end
  372. end
  373. act 'Maybe tomorrow':
  374. cla
  375. loverrelation[lover_number] -= 1
  376. '"I''m busy today. Call tomorrow."'
  377. if loverrelation[lover_number] <= 0:'<<$loverdesc[lover_number]>>, Are you fucking me, you know what. Fuck off.' & gs 'lover', 'remove', lover_number
  378. if loverrelation[lover_number] > 0:'(<<$loverdesc[lover_number]>>) - Okay, I''ll call tomorrow.'
  379. act 'Hang up': gt 'telefon', 'fin'
  380. end
  381. act 'I think we should break up...':
  382. cla
  383. 'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  384. gs 'lover', 'remove', lover_number
  385. act 'Hang up': gt 'telefon', 'fin'
  386. end
  387. end
  388. act 'Hang up (end relationship)':
  389. cla
  390. gs 'lover', 'remove', lover_number
  391. gt 'telefon', 'fin'
  392. end
  393. end
  394. if $ARGS[0] = 'phone_ring':
  395. clr
  396. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  397. 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>'
  398. pl'<center><font size=6><<$caller>> calling</font></center>'
  399. pl'<center><img src="<<$callerid>>"><br></center>'
  400. pl''
  401. pl''
  402. pl''
  403. pl''
  404. ! 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>'
  405. end &! --- phone_ring ---
  406. if $ARGS[0] = 'phone_call_receive':
  407. clr
  408. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  409. 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>'
  410. pl'<center><font size=6>Talking to <<$caller>></font></center>'
  411. pl'<center><img src="<<$callerid>>"><br></center>'
  412. end &! --- phone_call_receive ---
  413. if $ARGS[0] = 'phone_balance':
  414. if balans < 4:
  415. clr
  416. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  417. 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>'
  418. pl'<center><font size=6>Not enough credit on your account</font></center>'
  419. pl'<center><img src="<<$callerid>>"><br></center>'
  420. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/phone/decline.png"></a></center>'
  421. wait 3500
  422. cla
  423. gt $loc, $metka
  424. elseif balans >= 4:
  425. balans -= 4
  426. end
  427. end &! --- phone_balance ---
  428. if $ARGS[0] = 'Phone_call':
  429. clr
  430. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  431. 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>'
  432. pl'<center><font size=6>Calling <<$npc_nickname[''A29'']>></font></center>'
  433. pl'<center><img src="images/system/phone/icons/icon_npc1.png"><br></center>'
  434. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a></center>'
  435. wait 1500
  436. minut += 1
  437. $callerid = 'images/system/phone/icons/icon_npc1.png'
  438. gs 'telefon', 'phone_balance'
  439. $callerid = 'icon_npc1'
  440. gs 'telefon', 'phone_call_reject'
  441. end &! --- Phone_call ---
  442. if $ARGS[0] = 'phone_call_reject':
  443. clr
  444. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  445. 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>'
  446. pl'<center><font size=6>Calling....</font></center>'
  447. pl'<center><img src="images/system/phone/icons/<<$callerid>>.png"><br></center>'
  448. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a></center>'
  449. end &! --- phone_call_reject ---
  450. if $ARGS[0] = 'Phone_megafon':
  451. clr
  452. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  453. 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>'
  454. pl'<center><font size=6>MegaFon</font></center>'
  455. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_megafon.png" height="80" width="80"><br></center>'
  456. pl'<center><b>The balance in the account:</b>'
  457. pl'<center><font size=5><<balans>> ₽.</font></center>'
  458. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  459. end &! --- Phone_megafon ---
  460. if $ARGS[0] = 'Phone_contactlist':
  461. clr
  462. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  463. 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>'
  464. pl '<center><font size=6>Contacts</font></center>'
  465. pl '<center><img src="<<FUNC(''$phone_theme'')>>icon_call.png" height="80" width="80"><br></center>'
  466. if StoryLine = 1:pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_npc1.png"></TD><TD><<$npc_nickname[''A29'']>></TD><TD align="right"><a href="exec:gs ''telefon'', ''Phone_call'' "><b>Call</b></a></TD></TR></TABLE></center>'
  467. if hour >= 8 and hour <= 19:
  468. if telalla > 0:
  469. 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>'
  470. end
  471. if telmasha > 0:
  472. 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>'
  473. end
  474. if telkat > 0:
  475. 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>'
  476. end
  477. !! iterating all lovers
  478. lover_number = 0
  479. :loverloop
  480. if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0:
  481. 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>'
  482. end
  483. lover_number += 1
  484. if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
  485. killvar 'lover_number'
  486. else
  487. if telalla > 0:
  488. 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>'
  489. end
  490. if telmasha > 0:
  491. 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>'
  492. end
  493. if telkat > 0:
  494. 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>'
  495. end
  496. !! iterating all lovers
  497. lover_number = 0
  498. :loverunavailableloop
  499. if pcs_lovers[lover_number] = 1 and svidanie[lover_number] = 0:
  500. 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>'
  501. end
  502. lover_number += 1
  503. if lover_number < arrsize('pcs_lovers'): jump 'loverunavailableloop'
  504. killvar 'lover_number'
  505. end
  506. if npc_QW['A192'] > 0:
  507. 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>'
  508. end
  509. dummyas = arrsize('$contact')
  510. :din_bad_as
  511. dummyas -= 1
  512. if dummyas >= 0:
  513. pl '<<$contact[dummyas]>>'
  514. jump 'din_bad_as'
  515. end
  516. killvar 'dummyas'
  517. if arrsize('$contact')>0:pl'<center><a href="exec:gs ''telefon'', ''Edit_Custom_list'' "><b>Edit Contacts</b></a></center>'
  518. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  519. end &! --- Phone_contactlist ---
  520. if $ARGS[0] = 'Edit_Custom_list':
  521. clr
  522. dummyas = arrsize('$contact')
  523. :din_bad_as1
  524. dummyas -= 1
  525. if dummyas >= 0:
  526. $dummyedit = $contact[dummyas]
  527. $dummyedit1 = dyneval('$result = ''</a><a href="exec:killvar ''''$contact'''',<<dummyas>> & gs ''''telefon'''', ''''Edit_Custom_list'''' "><b>Remove</b>'' ')
  528. $dummyedit2 = $replace($dummyedit,'<b>Call</b>',$dummyedit1)
  529. pl $dummyedit2
  530. jump 'din_bad_as1'
  531. end
  532. killvar 'dummyas'
  533. killvar 'dummyedit'
  534. killvar 'dummyedit1'
  535. killvar 'dummyedit2'
  536. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  537. end &! --- Edit_Custom_list ---
  538. if $ARGS[0] = 'Phone_notebook':
  539. clr
  540. gs 'housing', 'rent'
  541. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  542. 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>'
  543. pl'<center><font size=6>Planner</font></center>'
  544. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_notebook.png" height="80" width="80"></center>'
  545. pl'<center><<year>>-<<$month>>-<<day>>, <<$week[week]>><br></center>'
  546. rent1 = -1
  547. rent4 = -1
  548. if home_owned[1] > 0 and ArendHouseSL > 0:rent1 = ArendHouseSL
  549. if home_owned[4] > 0 and ArendHouseSL4 > 0:rent4 = ArendHouseSL4
  550. preg1 = pregtime
  551. d1 = day
  552. w1 = week
  553. m1 = month
  554. y1 = year
  555. i = 0
  556. $list = '<br>&emsp;<b>•</b> '
  557. :pnotebook
  558. daynum = daystart+i
  559. $calendarday = ''
  560. if m1 = 1 and d1 >= 1 and d1 <= 8:
  561. $calendarday += $list + 'New Year holidays'
  562. if d1 = 1:$calendarday += ', New Year'
  563. if d1 = 7:$calendarday += ', Christmas'
  564. end
  565. if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day'
  566. if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day'
  567. if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day'
  568. if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday'
  569. if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day'
  570. if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day'
  571. if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday'
  572. if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day'
  573. if storyline = 1 and SchoolAtestat = 0:
  574. if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.'
  575. if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.'
  576. if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.'
  577. if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.'
  578. if school_year = 2003 and y1 = 2020 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!'
  579. if school_year = 2004 and y1 = 2021 and m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.'
  580. if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.'
  581. if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.'
  582. if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.'
  583. end
  584. if daynum >= lastmens+28 and daynum < lastmens+31:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
  585. if daynum >= lastmens+12 and daynum < lastmens+14:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
  586. if preg1 = 280:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
  587. if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
  588. if w1 < 5 and workFabrika = 1:
  589. $calendarday += $list + 'Working as a seamstress. '
  590. if age < 18:$calendarday += '<i>(16:00 - 20:00)</i>' else $calendarday += '<i>(8:00 - 16:00)</i>'
  591. end
  592. if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as nurse. <i>(8:00 - 16:00)</i>'
  593. if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as masseuse. <i>(9:00 - 17:00)</i>'
  594. !! if maidqw > 0:$calendarday += '<br>&emsp;<b>•</b> Working as maid. <i>(16:00 - 19:00)</i>'
  595. if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <i><<$porndesc[pfilmday[i]]>></i>'
  596. 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>'
  597. if d1 = nyp_day and m1 = 12 and SchoolAtestat = 0 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!'
  598. if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum:
  599. if sisboytrioQW = 1:
  600. $calendarday += $list + '<font color="orange">Threesome with Anja and Roma at 18:00</font>'
  601. else
  602. $calendarday += $list + '<font color="orange">Anja having sex with Roma at 18:00</font>'
  603. end
  604. end
  605. if sisboyparty = 2 and sisboyparty_day+1 = daynum:$calendarday += $list + '<font color="orange">Party at Rex, gathering before 18:00 at Community Center</font>'
  606. if rent1 = 0:$calendarday += $list + 'Rent on city apartment expires!'
  607. if rent4 = 0:$calendarday += $list + 'Rent on Pushkin apartment expires!'
  608. if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!'
  609. if kid > 0:
  610. k1 = kid
  611. :kiddieloop
  612. if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <<kid>>. baby!'
  613. if k1 > 1:k1 -= 1 & jump 'kiddieloop'
  614. end
  615. if $calendarday ! '':
  616. p '<b><<$monthName[m1]>> <<d1>>, <<$week[w1]>>:</b>'
  617. pl $calendarday
  618. end
  619. if i < 14:
  620. preg1 += 1
  621. rent1 -= 1
  622. rent4 -= 1
  623. i += 1
  624. w1 += 1
  625. if w1 > 7:w1 = 1
  626. d1 += 1
  627. if monthsend[m1] < d1:
  628. m1 += 1 & d1 = 1
  629. if m1 = 13: m1 = 1 & y1 += 1
  630. end
  631. jump 'pnotebook'
  632. end
  633. killvar 'calendarday'
  634. killvar 'rent1'
  635. killvar 'rent4'
  636. killvar 'preg1'
  637. killvar 'd1'
  638. killvar 'w1'
  639. killvar 'm1'
  640. killvar 'y1'
  641. killvar 'daynum'
  642. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  643. end &! --- Phone_notebook ---
  644. !!----------------------------------------Camera-------------------------------------------------
  645. !!For setting the total numbers of selfies
  646. if $ARGS[0] = 'Phone_selfie_totals':
  647. bathroom_clotot = 20
  648. bathroom_undtot = 20
  649. bathroom_nudtot = 20
  650. bedroom_clotot = 27
  651. bedroom_undtot = 20
  652. bedroom_nudtot = 20
  653. kitchen_clotot = 16
  654. kitchen_undtot = 11
  655. kitchen_nudtot = 20
  656. livingroom_clotot = 17
  657. livingroom_undtot = 21
  658. livingroom_nudtot = 21
  659. changingroom_clotot = 19
  660. changingroom_undtot = 25
  661. changingroom_nudtot = 21
  662. park_clotot = 28
  663. park_undtot = 0
  664. park_nudtot = 18
  665. lockeroom_clotot = 21
  666. lockeroom_undtot = 16
  667. lockeroom_nudtot = 14
  668. beach_swim = 21
  669. beach_nudtot = 22
  670. end
  671. !!for viewing photos on your phone
  672. if $ARGS[0] = 'Phone_pictures':
  673. gs 'telefon', 'Phone_selfie_totals'
  674. clr
  675. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  676. 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>'
  677. pl'<center><font size=6>Gallery</font></center>'
  678. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_pictures.png" height="80" width="80"><br></center>'
  679. !!default images that are used in any location not set
  680. if phone_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie1.jpg''"><b>Selfie number1</b></a>'
  681. if phone_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie2.jpg''"><b>Selfie number2</b></a>'
  682. !!loop for locations where selfies can be taken starting with bathroom
  683. $phone_loc = 'bathroom'
  684. :phoneloc_loop
  685. !!Loop for clothed selfies, dynamics set variables as mixing them in loop instructions is bad
  686. temp_clocnt = 1
  687. dynamic 'temp_loop = <<$phone_loc>>_cloloop'
  688. dynamic 'temp_total = <<$phone_loc>>_clotot'
  689. :temp_loop
  690. !!setting value to unmixed variable so it can be checked in the if below
  691. dyneval '$phone_locval = <<$phone_loc>>_closelfie[<<temp_clocnt>>]'
  692. if $phone_locval = 1:pl '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/clothed/<<temp_clocnt>>.jpg''"><b>Clothed <<$phone_loc>> selfie #<<temp_clocnt>></b></a>'
  693. temp_clocnt += 1
  694. if temp_clocnt <= temp_total: jump'temp_loop'
  695. !!loop for underwwear selfies
  696. temp_undcnt = 1
  697. dynamic 'temp_loop1 = <<$phone_loc>>_undloop'
  698. dynamic 'temp_total = <<$phone_loc>>_undtot'
  699. :temp_loop1
  700. dyneval '$phone_locval = <<$phone_loc>>_undselfie[<<temp_undcnt>>]'
  701. if $phone_locval = 1:pl'<a href="exec:view''images/pc/selfies/<<$phone_loc>>/underwear/<<temp_undcnt>>.jpg''"><b>Underwear <<$phone_loc>> selfie #<<temp_undcnt>></b></a>'
  702. temp_undcnt += 1
  703. if temp_undcnt <= temp_total: jump'temp_loop1'
  704. !!loop for nude selfies
  705. temp_nudcnt = 1
  706. dynamic 'temp_loop2 = <<$phone_loc>>_nudloop'
  707. dynamic 'temp_total = <<$phone_loc>>_nudtot'
  708. :temp_loop2
  709. dyneval '$phone_locval = <<$phone_loc>>_nudselfie[<<temp_nudcnt>>]'
  710. if $phone_locval = 1:pl'<a href="exec:view''images/pc/selfies/<<$phone_loc>>/nude/<<temp_nudcnt>>.jpg''"><b>Nude <<$phone_loc>> selfie #<<temp_nudcnt>></b></a>'
  711. temp_nudcnt += 1
  712. if temp_nudcnt <= temp_total: jump'temp_loop2'
  713. !!Changes to location so all get processed
  714. if $phone_loc = 'bathroom':
  715. $phone_loc = 'bedroom'
  716. jump'phoneloc_loop'
  717. elseif $phone_loc = 'bedroom':
  718. $phone_loc = 'kitchen'
  719. jump'phoneloc_loop'
  720. elseif $phone_loc = 'kitchen':
  721. $phone_loc = 'livingroom'
  722. jump'phoneloc_loop'
  723. elseif $phone_loc = 'livingroom':
  724. $phone_loc = 'changingroom'
  725. jump'phoneloc_loop'
  726. elseif $phone_loc = 'changingroom':
  727. $phone_loc = 'park'
  728. jump'phoneloc_loop'
  729. elseif $phone_loc = 'park':
  730. $phone_loc = 'lockeroom'
  731. jump'phoneloc_loop'
  732. end
  733. !!variant for beach selfies using swimwear and nude only
  734. beach_swimcnt = 1
  735. :beach_swimloop
  736. if beach_swimselfie[beach_swimcnt] = 1:pl'<a href="exec:view''images/pc/selfies/bedroom/clothed/<<beach_swimcnt>>.jpg''"><b>Clothed bedroom selfie #<<beach_swimcnt>></b></a>'
  737. beach_swimcnt += 1
  738. if beach_swimcnt <= beach_swimtot: jump'beach_swimloop'
  739. beach_nudcnt = 1
  740. :beach_nudloop
  741. if beach_nudselfie[beach_nudcnt] = 1:pl'<a href="exec:view''images/pc/selfies/beach/nude/<<beach_nudcnt>>.jpg''"><b>Nude beach selfie #<<beach_nudcnt>></b></a>'
  742. beach_nudcnt += 1
  743. if beach_nudcnt <= beach_nudtot: jump'beach_nudloop'
  744. *nl
  745. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  746. end
  747. !!picking the selfie image when taking photos, this sets the location variable
  748. if $ARGS[0] = 'Phone_camera_selfie':
  749. gs 'telefon', 'Phone_selfie_totals'
  750. minut += RAND(5,7)
  751. if $location_type = 'bathroom':
  752. $phone_loc = 'bathroom'
  753. gs 'telefon', 'Phone_selfie_image'
  754. elseif $locclass = 'bedr':
  755. $phone_loc = 'bedroom'
  756. gs 'telefon', 'Phone_selfie_image'
  757. elseif $locclass = 'kitr':
  758. $phone_loc = 'kitchen'
  759. gs 'telefon', 'Phone_selfie_image'
  760. elseif $locclass = 'livingr':
  761. $phone_loc = 'livingroom'
  762. gs 'telefon', 'Phone_selfie_image'
  763. else
  764. phone_rand = RAND(1,2)
  765. phone_selfie[phone_rand] = 1
  766. gs 'stat'
  767. view 'images/system/phone/selfie/phone_selfie<<phone_rand>>.jpg'
  768. end
  769. !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
  770. !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
  771. !view 'images/system/phone/phone_selfie<<phone_rand>>.jpg'
  772. end
  773. !!taking selfies, this chooses a random image for the location for clothed, underwear and nude
  774. if $ARGS[0] = 'Phone_selfie_image':
  775. if $clothingworntype ! 'nude':
  776. !!changing to and unmixed variable so the rng will work
  777. dynamic 'temp_clotot = <<$phone_loc>>_clotot'
  778. phone_rand = rand(1,temp_clotot)
  779. !!Setting the image owned flag to 1
  780. dynamic '<<$phone_loc>>_closelfie[<<phone_rand>>] = 1'
  781. gs 'stat'
  782. view 'images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg'
  783. elseif $pantyworntype ! 'none':
  784. dynamic 'temp_undtot = <<$phone_loc>>_undtot'
  785. phone_rand = rand(1,temp_undtot)
  786. dynamic '<<$phone_loc>>_undselfie[<<phone_rand>>] = 1'
  787. gs 'stat'
  788. view 'images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg'
  789. else
  790. dynamic 'temp_nudtot = <<$phone_loc>>_nudtot'
  791. phone_rand = rand(1,temp_nudtot)
  792. dynamic '<<$phone_loc>>_nudselfie[<<phone_rand>>] = 1'
  793. gs 'stat'
  794. view 'images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg'
  795. end
  796. end
  797. !!for taking photos - only selfies for now
  798. if $ARGS[0] = 'Phone_camera':
  799. clr
  800. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  801. 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>'
  802. pl'<center><font size=6>Camera</font></center>'
  803. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"><br></center>'
  804. pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a>'
  805. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  806. end
  807. !!-----------------------------------end of Camera------------------------------------------
  808. if $ARGS[0] = 'Phone_wheather':
  809. clr
  810. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  811. 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>'
  812. pl'<center><font size=6>Weather</font></center>'
  813. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_weather.png" height="80" width="80"><br></center>'
  814. pl'<center><b>Temperature:</b></center>'
  815. pl'<center><<$temperature>>. <<$osadki>></center>'
  816. pl'<center>P.O.P. today is <<weatherFall>>%</center>'
  817. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  818. end &! --- Phone_wheather ---
  819. if $ARGS[0] = 'Phone_calendar':
  820. clr
  821. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  822. 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>'
  823. pl'<center><font size=6>Calendar</font></center>'
  824. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_calendar.png" height="80" width="80"><br></center>'
  825. pl'<center><B>Today:</B></center>'
  826. pl'<center><<$week[week]>>, <<day>> <<$month>> <<year>></center>'
  827. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  828. end &! --- Phone_calendar ---
  829. if $ARGS[0] = 'Phone_media':
  830. clr
  831. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  832. 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>'
  833. pl'<center><font size=6>Media</font></center>'
  834. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_music.png" height="80" width="80"></center>'
  835. pl'<center><b>This option is not active</b></center>'
  836. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  837. end &! --- Phone_media ---
  838. if $ARGS[0] = 'Phone_sms':
  839. clr
  840. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  841. 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>'
  842. pl'<center><font size=6>SMS</font></center>'
  843. pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"></center>'
  844. pl'<center><b>This option is not active</b></center>'
  845. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  846. end &! --- Phone_sms ---
  847. if $ARGS[0] = 'Phone_menu':
  848. clr
  849. pl'<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  850. 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>'
  851. pl'<center><a href="exec:gs ''telefon'', ''Phone_camera'' "><img src="<<FUNC(''$phone_theme'')>>icon_camera.png" height="80" width="80"></a><a href="exec:gs ''telefon'', ''Phone_calendar'' "><img src="<<FUNC(''$phone_theme'')>>icon_calendar.png" height="80" width="80"></a><a href="exec:gs ''telefon'', ''Phone_pictures'' "><img src="<<FUNC(''$phone_theme'')>>icon_pictures.png" height="80" width="80"></a></center>'
  852. pl'<center><a href="exec:gs ''telefon'', ''Phone_media'' "><img src="<<FUNC(''$phone_theme'')>>icon_music.png" height="80" width="80"></a><a href="exec:gs ''telefon'', ''Phone_notebook'' "><img src="<<FUNC(''$phone_theme'')>>icon_notebook.png" height="80" width="80"></a><a href="exec:gs ''telefon'', ''Phone_wheather'' "><img src="<<FUNC(''$phone_theme'')>>icon_weather.png" height="80" width="80"></a></center>'
  853. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="<<FUNC(''$phone_theme'')>>icon_call.png" height="80" width="80"></a><a href="exec:gs ''telefon'', ''Phone_sms'' "><img src="<<FUNC(''$phone_theme'')>>icon_sms.png" height="80" width="80"></a><a href="exec:gs ''telefon'', ''Phone_megafon'' "><img src="<<FUNC(''$phone_theme'')>>icon_megafon.png" height="80" width="80"></a></center>'
  854. pl''+iif(menu_off = 1, '<center><a href="exec:gs ''obj_din'', ''menu_disabled''"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png" height="80" width="80"></a></center>', '<center><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></center>')+''
  855. pl'<center><a href="exec:clr & gs''stat''"><img src="images/system/icon/back.png"></a></center>'
  856. end &! --- Phone_menu ---
  857. if $ARGS[0] = 'Add_contact':
  858. $dummy = INPUT('Enter a note:')
  859. $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>'
  860. killvar '$dummy'
  861. end &! --- Add_contact ---
  862. if $ARGS[0] = 'telotkaz':
  863. cla
  864. minut += 10
  865. '<<$ARGS[1]>>, "Sorry, I''m busy right now, maybe next time."'
  866. act 'Hangup':gt 'telefon', 'fin'
  867. end &! --- telotkaz ---
  868. if $ARGS[0] = 'fin':
  869. killvar 'lover_number'
  870. cla
  871. gt $loc, $metka
  872. end
  873. if $ARGS[0] = 'setup':
  874. ! array $$phonetheme_name is built.
  875. ! might need a tweak to have it rebuilt when new themes are available.
  876. $phonetheme_name[0] = 'Custom_Standard'
  877. $phonetheme_name[1] = 'Bimbo'
  878. $phonetheme_name[2] = 'Custom_Aluminus'
  879. $phonetheme_name[3] = 'Custom_Bottlecapped'
  880. $phonetheme_name[4] = 'Custom_Galactic'
  881. $phonetheme_name[5] = 'Custom_Vectored'
  882. $phonetheme_name[6] = 'Custom_Veneer'
  883. $phonetheme_name[7] = 'Custom_Voidwalker'
  884. $phonetheme_name[8] = 'Custom_Voidwalker Red'
  885. $phonetheme_name[9] = 'Custom_Voidwalker Toxic'
  886. $phonetheme_name[10] = 'Gopnik'
  887. $phonetheme_name[11] = 'Sports'
  888. $phonetheme_name[12] = 'Succubus'
  889. $phonetheme_name[13] = 'Woodshop'
  890. phonetheme[0] = 1
  891. end
  892. --- telefon ---------------------------------