1
0

telefon 47 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193
  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. telotvet = rand(0, 10)
  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 telotvet > 3:
  34. '<<$telsob>>, "See you in the park in an hour."'
  35. act 'Go':gt 'parksvid'
  36. elseif telotvet <= 3:
  37. gs 'telefon','telotkaz'
  38. end
  39. end
  40. end
  41. act 'Invite to a movie':
  42. cla
  43. '"Want to go see a movie?"'
  44. if telotvet > 3:
  45. '<<$telsob>>, "See you at the movie theater in an hour."'
  46. act 'Go':gt 'kinosvid'
  47. elseif telotvet <= 3:
  48. gs 'telefon','telotkaz'
  49. end
  50. end
  51. act 'Invite to the pool hall':
  52. cla
  53. '"Let''s play pool."'
  54. if telotvet > 3:
  55. '<<$telsob>>, "See you at the pool hall in an hour."'
  56. act 'Go':gt 'billsvid'
  57. elseif telotvet <= 3:
  58. gs 'telefon','telotkaz'
  59. end
  60. end
  61. act 'Invite to the cafe':
  62. cla
  63. '"Let''s go to the cafe."'
  64. if telotvet > 3:
  65. '<<$telsob>>, "See you at the cafe in an hour."'
  66. act 'Go':gt 'kafesvid'
  67. elseif telotvet <= 3:
  68. gs 'telefon','telotkaz'
  69. end
  70. end
  71. act 'Invite to the casino':
  72. cla
  73. '"Let''s go to the casino."'
  74. if telotvet > 3:
  75. '<<$telsob>>, "See you in the casino in an hour."'
  76. act 'Go':gt 'kazinosvid'
  77. elseif telotvet <= 3:
  78. gs 'telefon','telotkaz'
  79. end
  80. end
  81. act 'Hangup':gt 'telefon', 'fin'
  82. end
  83. if $ARGS[0] = 'mobilarazboyA':
  84. cls
  85. cla
  86. gs'din_bad'
  87. $caller = '<<$loverdesc[1]>>'
  88. $callerid = 'images/characters/shared/'+boypicA+'.jpg'
  89. gs 'telefon','phone_balance'
  90. gs 'telefon','phone_call_receive'
  91. telotvet = rand(0, 10)
  92. '"Yes, I''m listening," says a voice from the speaker.'
  93. if month > 5 and temper > 20 and sunWeather = 1:
  94. act 'Invite to the park':
  95. cla
  96. '"Let''s go for a walk in the park."'
  97. if telotvet > 3:
  98. '<<$loverdesc[1]>>, "See you in the park in an hour."'
  99. act 'Go':gt 'svidboy', 'parksvid'
  100. elseif telotvet <= 3:
  101. gs 'telefon','telotkazboy'
  102. end
  103. end
  104. end
  105. act 'Invite to a movie':
  106. cla
  107. '"Want to go see a movie?"'
  108. if telotvet > 3:
  109. '<<$loverdesc[1]>>, "See you at the movie theater in an hour."'
  110. act 'Go':gt 'svidboy', 'kinosvid'
  111. elseif telotvet <= 3:
  112. gs 'telefon','telotkaz'
  113. end
  114. end
  115. act 'Invite to the pool hall':
  116. cla
  117. '"Let''s play pool."'
  118. if telotvet > 3:
  119. '<<$loverdesc[1]>>, "See you at the pool hall in an hour."'
  120. act 'Go':gt 'svidboy', 'billsvid'
  121. elseif telotvet <= 3:
  122. gs 'telefon','telotkazboy'
  123. end
  124. end
  125. act 'Invite to the cafe':
  126. cla
  127. '"Let''s go to the cafe."'
  128. if telotvet > 3:
  129. '<<$loverdesc[1]>>, "See you at the cafe in an hour."'
  130. act 'Go':gt 'svidboy', 'kafesvid'
  131. elseif telotvet <= 3:
  132. gs 'telefon','telotkazboy'
  133. end
  134. end
  135. act 'I think we should break up...':
  136. cla
  137. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  138. pcs_lovers[1] = 0
  139. pcs_lover -= 1
  140. end
  141. act 'Hangup':gt 'telefon', 'fin'
  142. end
  143. if $ARGS[0] = 'mobilarazboyB':
  144. cls
  145. cla
  146. gs'din_bad'
  147. $caller = '<<$loverdesc[2]>>'
  148. $callerid = 'images/characters/shared/'+boypicB+'.jpg'
  149. gs 'telefon','phone_balance'
  150. gs 'telefon','phone_call_receive'
  151. telotvet = rand(0, 10)
  152. '"Yes, I''m listening," says a voice from the speaker.'
  153. if month > 5 and temper > 20 and sunWeather = 1:
  154. act 'Invite to the park':
  155. cla
  156. '"Let''s go for a walk in the park."'
  157. if telotvet > 3:
  158. '<<$loverdesc[2]>>, "See you in the park in an hour."'
  159. act 'Go':gt 'svidboy', 'parksvid'
  160. elseif telotvet <= 3:
  161. gs 'telefon','telotkazboy'
  162. end
  163. end
  164. end
  165. act 'Invite to a movie':
  166. cla
  167. '"Want to go see a movie?"'
  168. if telotvet > 3:
  169. '<<$loverdesc[2]>>, "See you at the movie theater in an hour."'
  170. act 'Go':gt 'svidboy', 'kinosvid'
  171. elseif telotvet <= 3:
  172. gs 'telefon','telotkaz'
  173. end
  174. end
  175. act 'Invite to the pool hall':
  176. cla
  177. '"Let''s play pool."'
  178. if telotvet > 3:
  179. '<<$loverdesc[2]>>, "See you at the pool hall in an hour."'
  180. act 'Go':gt 'svidboy', 'billsvid'
  181. elseif telotvet <= 3:
  182. gs 'telefon','telotkazboy'
  183. end
  184. end
  185. act 'Invite to the cafe':
  186. cla
  187. '"Let''s go to the cafe."'
  188. if telotvet > 3:
  189. '<<$loverdesc[2]>>, "See you at the cafe in an hour."'
  190. act 'Go':gt 'svidboy', 'kafesvid'
  191. elseif telotvet <= 3:
  192. gs 'telefon','telotkazboy'
  193. end
  194. end
  195. act 'I think we should break up...':
  196. cla
  197. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  198. pcs_lovers[2] = 0
  199. pcs_lover -= 1
  200. end
  201. act 'Hangup':gt 'telefon', 'fin'
  202. end
  203. if $ARGS[0] = 'mobilarazboyC':
  204. cls
  205. cla
  206. gs'din_bad'
  207. $caller = '<<$loverdesc[3]>>'
  208. $callerid = 'images/characters/shared/'+boypicC+'.jpg'
  209. gs 'telefon','phone_balance'
  210. gs 'telefon','phone_call_receive'
  211. telotvet = rand(0, 10)
  212. '"Yes, I''m listening," says a voice from the speaker.'
  213. if month > 5 and temper > 20 and sunWeather = 1:
  214. act 'Invite to the park':
  215. cla
  216. '"Let''s go for a walk in the park."'
  217. if telotvet > 3:
  218. '<<$loverdesc[3]>>, "See you in the park in an hour."'
  219. act 'Go':gt 'svidboy', 'parksvid'
  220. elseif telotvet <= 3:
  221. gs 'telefon','telotkazboy'
  222. end
  223. end
  224. end
  225. act 'Invite to a movie':
  226. cla
  227. '"Want to go see a movie?"'
  228. if telotvet > 3:
  229. '<<$loverdesc[3]>>, "See you at the movie theater in an hour."'
  230. act 'Go':gt 'svidboy', 'kinosvid'
  231. elseif telotvet <= 3:
  232. gs 'telefon','telotkaz'
  233. end
  234. end
  235. act 'Invite to the pool hall':
  236. cla
  237. '"Let''s play pool."'
  238. if telotvet > 3:
  239. '<<$loverdesc[3]>>, "See you at the pool hall in an hour."'
  240. act 'Go':gt 'svidboy', 'billsvid'
  241. elseif telotvet <= 3:
  242. gs 'telefon','telotkazboy'
  243. end
  244. end
  245. act 'Invite to the cafe':
  246. cla
  247. '"Let''s go to the cafe."'
  248. if telotvet > 3:
  249. '<<$loverdesc[3]>>, "See you at the cafe in an hour."'
  250. act 'Go':gt 'svidboy', 'kafesvid'
  251. elseif telotvet <= 3:
  252. gs 'telefon','telotkazboy'
  253. end
  254. end
  255. act 'I think we should break up...':
  256. cla
  257. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  258. pcs_lovers[2] = 0
  259. pcs_lover -= 1
  260. end
  261. act 'Hangup':gt 'telefon', 'fin'
  262. end
  263. if $ARGS[0] = 'boyA':
  264. cla
  265. clr
  266. ring = 0
  267. ringA = 0
  268. loverday[1] = daystart
  269. gs 'stat'
  270. gs 'telefon','phone_call_receive'
  271. svetrand = rand(0, 5)
  272. if svetrand = 0:$sveta = 'cutie'
  273. if svetrand = 1:$sveta = 'honey'
  274. if svetrand = 2:$sveta = 'sweetie'
  275. if svetrand = 3:$sveta = 'baby'
  276. if svetrand = 4:$sveta = 'hot stuff'
  277. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  278. 'Hey <<$sveta>>, it''s me, <<$loverdesc[1]>>. How''s it going?'
  279. act 'Normally':
  280. cla
  281. '"Pretty good, you?"'
  282. '<<$loverdesc[1]>>, "Great, but I kind of miss you, can we meet today?"'
  283. if pregtime <= loversday[1] and knowpreg = 1 and pregtalk = 0:
  284. act 'Tell him he''s going to be a dad':
  285. cla
  286. pregtalk = 1
  287. '"Honey, I''m pregnant with your child."'
  288. if haraklover[1] = 0:
  289. if loverrelation[1] >= 90:
  290. loverlove[1] = 1
  291. '<<$loverdesc[1]>>, "This is wonderful! We have to celebrate!"'
  292. 'You start talking about living together. <<$loverdesc[1]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
  293. 'He warns you that his mother is very demanding and rigorous. <<$loverdesc[1]>> 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.'
  294. 'When you are totally ready <<$loverdesc[1]>> will take you to their parents.'
  295. act 'Hang up':gt 'telefon', 'fin'
  296. act 'Meet tonight':
  297. cla
  298. svidanieA = 1
  299. '"How about this evening?"'
  300. '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
  301. act 'Pick a time':
  302. cla
  303. meetdayA = daystart
  304. meethourA = input ("When do you want to be picked up? It is now <<hour>>:<<minut>>.")
  305. if meethourA <= hour or meethourA > 23:meethourA = 20
  306. '"How about <<meethourA>>:00?"'
  307. '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
  308. act 'Hang up':gt 'telefon', 'fin'
  309. end
  310. end
  311. elseif loverrelation[1] < 90:
  312. money += 20000
  313. '<<$loverdesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
  314. act 'Hang up':gt 'telefon', 'fin'
  315. end
  316. elseif haraklover[1] = 1:
  317. money += 20000
  318. '<<$loverdesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  319. act 'Hang up':gt 'telefon', 'fin'
  320. elseif haraklover[1] = 2:
  321. loverrelation[1] = 0
  322. pcs_lover -= 1
  323. pregtalk = 0
  324. '<<$loverdesc[1]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  325. act 'Hang up':gt 'telefon', 'fin'
  326. end
  327. end
  328. elseif pregtime > loversday[1] and knowpreg = 1 and pregtalk = 0:
  329. act 'Honey, you will soon become a dad':
  330. cla
  331. loverrelation[1] = 0
  332. '"Honey, I''m pregnant with your child."'
  333. '<<$loverdesc[1]>>, "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."'
  334. act 'Hang up.':gt 'telefon', 'fin'
  335. end
  336. elseif week > 1 and week < 5 and workKafe = 1:
  337. act 'Sorry, I''m working today':
  338. cla
  339. '"Sorry, I''m working today."'
  340. '<<$loverdesc[1]>>, "Okay, I''ll call tomorrow."'
  341. act 'Hang up':gt 'telefon', 'fin'
  342. end
  343. end
  344. act 'Tonight':
  345. cla
  346. loverrelation[1] += 1
  347. svidanieA = 1
  348. meetdayA = daystart
  349. '"How about this evening?"'
  350. '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
  351. act 'Pick a time':
  352. cla
  353. meethourA = input ("When do you want to be picked up. It is now <<hour>>:<<minut>>.")
  354. if meethourA <= hour or meethourA > 23:meethourA = 20
  355. '"How about <<meethourA>>:00?."'
  356. '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
  357. act 'Hang up':gt 'telefon', 'fin'
  358. end
  359. end
  360. act 'Maybe tomorrow':
  361. cla
  362. loverrelation[1] -= 1
  363. '"I''m busy today. Call tomorrow."'
  364. if loverrelation[1] <= 0:pcs_lover -= 1 & '<<$loverdesc[1]>>, Are you fucking me, you know what. Suck my dick.'
  365. if loverrelation[1] > 0:'(<<$loverdesc[1]>>) - Okay, I''ll call tomorrow.'
  366. act 'Hang up':gt 'telefon', 'fin'
  367. end
  368. act 'I think we should break up...':
  369. cla
  370. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  371. pcs_lovers[1] = 0
  372. pcs_lover -= 1
  373. act 'Hang up':gt 'telefon', 'fin'
  374. end
  375. end
  376. act 'Leave':
  377. cla
  378. loverrelation[1] = 0
  379. pcs_lover -= 1
  380. gt 'telefon', 'fin'
  381. end
  382. end
  383. if $ARGS[0] = 'boyB':
  384. cla
  385. clr
  386. ring = 0
  387. ringB = 0
  388. loverday[2] = daystart
  389. gs 'stat'
  390. gs 'telefon','phone_call_receive'
  391. svetrand = rand(0, 5)
  392. if svetrand = 0:$sveta = 'cutie'
  393. if svetrand = 1:$sveta = 'honey'
  394. if svetrand = 2:$sveta = 'sweetie'
  395. if svetrand = 3:$sveta = 'baby'
  396. if svetrand = 4:$sveta = 'hot stuff'
  397. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  398. 'Hey <<$sveta>>, it''s me, <<$loverdesc[2]>>. How''s it going?'
  399. act 'Normally':
  400. cla
  401. '"Pretty good, you?"'
  402. '<<$loverdesc[2]>>, "Great, but I kind of miss you, can we meet today?"'
  403. if pregtime <= loversday[2] and knowpreg = 1 and pregtalk = 0:
  404. act 'Tell him he''s going to be a dad':
  405. cla
  406. pregtalk = 1
  407. '"Honey, I''m pregnant with your child."'
  408. if haraklover[2] = 0:
  409. if loverrelation[2] >= 90:
  410. loverlove[2] = 1
  411. '<<$loverdesc[2]>>, "This is wonderful! We have to celebrate!"'
  412. 'You start talking about living together. <<$loverdesc[2]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
  413. 'He warns you that his mother is very demanding and rigorous. <<$loverdesc[2]>> 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.'
  414. 'When you are totally ready <<$loverdesc[2]>> will take you to their parents.'
  415. act 'Hang up':gt 'telefon', 'fin'
  416. act 'Meet tonight':
  417. cla
  418. svidanieB = 1
  419. '"How about this evening?"'
  420. '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
  421. act 'Pick a time':
  422. cla
  423. meetdayB = daystart
  424. meethourB = input ("When do you want to be picked up? It is now <<hour>>:<<minut>>.")
  425. if meethourB <= hour or meethourB > 23:meethourB = 20
  426. '"How about <<meethourB>>:00?"'
  427. '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
  428. act 'Hang up':gt 'telefon', 'fin'
  429. end
  430. end
  431. elseif loverrelation[2] < 90:
  432. money += 20000
  433. '<<$loverdesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
  434. act 'Hang up':gt 'telefon', 'fin'
  435. end
  436. elseif haraklover[2] = 1:
  437. money += 20000
  438. '<<$loverdesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  439. act 'Hang up':gt 'telefon', 'fin'
  440. elseif haraklover[2] = 2:
  441. loverrelation[2] = 0
  442. pcs_lover -= 1
  443. pregtalk = 0
  444. '<<$loverdesc[2]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  445. act 'Hang up':gt 'telefon', 'fin'
  446. end
  447. end
  448. elseif pregtime > loversday[2] and knowpreg = 1 and pregtalk = 0:
  449. act 'Honey, you will soon become a dad':
  450. cla
  451. loverrelation[2] = 0
  452. '"Honey, I''m pregnant with your child."'
  453. '<<$loverdesc[2]>>, "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."'
  454. act 'Hang up.':gt 'telefon', 'fin'
  455. end
  456. elseif week > 1 and week < 5 and workKafe = 1:
  457. act 'Sorry, I''m working today':
  458. cla
  459. '"Sorry, I''m working today."'
  460. '<<$loverdesc[2]>>, "Okay, I''ll call tomorrow."'
  461. act 'Hang up':gt 'telefon', 'fin'
  462. end
  463. end
  464. act 'Tonight':
  465. cla
  466. loverrelation[2] += 1
  467. svidanieB = 1
  468. meetdayB = daystart
  469. '"How about this evening?"'
  470. '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
  471. act 'Pick a time':
  472. cla
  473. meethourB = input ("When do you want to be picked up. It is now <<hour>>:<<minut>>.")
  474. if meethourB <= hour or meethourB > 23:meethourB = 20
  475. '"How about <<meethourB>>:00?."'
  476. '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
  477. act 'Hang up':gt 'telefon', 'fin'
  478. end
  479. end
  480. act 'Maybe tomorrow':
  481. cla
  482. loverrelation[2] -= 1
  483. '"I''m busy today. Call tomorrow."'
  484. if loverrelation[2] <= 0:pcs_lover -= 1 & '<<$loverdesc[2]>>, Are you fucking me, you know what. Suck my dick.'
  485. if loverrelation[2] > 0:'(<<$loverdesc[2]>>) - Okay, I''ll call tomorrow.'
  486. act 'Hang up':gt 'telefon', 'fin'
  487. end
  488. act 'I think we should break up...':
  489. cla
  490. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  491. pcs_lovers[2] = 0
  492. pcs_lover -= 1
  493. act 'Hang up':gt 'telefon', 'fin'
  494. end
  495. end
  496. act 'Leave':
  497. cla
  498. loverrelation[2] = 0
  499. gt 'telefon', 'fin'
  500. end
  501. end
  502. if $ARGS[0] = 'boyC':
  503. cla
  504. clr
  505. ring = 0
  506. ringC = 0
  507. loverday[3] = daystart
  508. gs 'stat'
  509. gs 'telefon','phone_call_receive'
  510. svetrand = rand(0, 5)
  511. if svetrand = 0:$sveta = 'cutie'
  512. if svetrand = 1:$sveta = 'honey'
  513. if svetrand = 2:$sveta = 'sweetie'
  514. if svetrand = 3:$sveta = 'baby'
  515. if svetrand = 4:$sveta = 'hot stuff'
  516. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  517. 'Hey <<$sveta>>, it''s me, <<$loverdesc[3]>>. How''s it going?'
  518. act 'Normally':
  519. cla
  520. '"Pretty good, you?"'
  521. '<<$loverdesc[3]>>, "Great, but I kind of miss you, can we meet today?"'
  522. if pregtime <= loversday[3] and knowpreg = 1 and pregtalk = 0:
  523. act 'Tell him he''s going to be a dad':
  524. cla
  525. pregtalk = 1
  526. '"Honey, I''m pregnant with your child."'
  527. if haraklover[3] = 0:
  528. if loverrelation[3] >= 90:
  529. loverlove[3] = 1
  530. '<<$loverdesc[3]>>, "This is wonderful! We have to celebrate!"'
  531. 'You start talking about living together. <<$loverdesc[3]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
  532. 'He warns you that his mother is very demanding and rigorous. <<$loverdesc[3]>> 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.'
  533. 'When you are totally ready <<$loverdesc[3]>> will take you to their parents.'
  534. act 'Hang up':gt 'telefon', 'fin'
  535. act 'Meet tonight':
  536. cla
  537. svidanieC = 1
  538. '"How about this evening?"'
  539. '<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
  540. act 'Pick a time':
  541. cla
  542. meetdayC = daystart
  543. meethourC = input ("When do you want to be picked up? It is now <<hour>>:<<minut>>.")
  544. if meethourC <= hour or meethourC > 23:meethourC = 20
  545. '"How about <<meethourC>>:00?"'
  546. '<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
  547. act 'Hang up':gt 'telefon', 'fin'
  548. end
  549. end
  550. elseif loverrelation[3] < 90:
  551. money += 20000
  552. '<<$loverdesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
  553. act 'Hang up':gt 'telefon', 'fin'
  554. end
  555. elseif haraklover[3] = 1:
  556. money += 20000
  557. '<<$loverdesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  558. act 'Hang up':gt 'telefon', 'fin'
  559. elseif haraklover[3] = 2:
  560. loverrelation[3] = 0
  561. pcs_lover -= 1
  562. pregtalk = 0
  563. '<<$loverdesc[3]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  564. act 'Hang up':gt 'telefon', 'fin'
  565. end
  566. end
  567. elseif pregtime > loversday[3] and knowpreg = 1 and pregtalk = 0:
  568. act 'Honey, you will soon become a dad':
  569. cla
  570. loverrelation[3] = 0
  571. pcs_lover -= 1
  572. '"Honey, I''m pregnant with your child."'
  573. '<<$loverdesc[3]>>, "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."'
  574. act 'Hang up.':gt 'telefon', 'fin'
  575. end
  576. elseif week > 1 and week < 5 and workKafe = 1:
  577. act 'Sorry, I''m working today':
  578. cla
  579. '"Sorry, I''m working today."'
  580. '<<$loverdesc[3]>>, "Okay, I''ll call tomorrow."'
  581. act 'Hang up':gt 'telefon', 'fin'
  582. end
  583. end
  584. act 'Tonight':
  585. cla
  586. loverrelation[3] += 1
  587. svidanieC = 1
  588. meetdayC = daystart
  589. '"How about this evening?"'
  590. '<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
  591. act 'Pick a time':
  592. cla
  593. meethourC = input ("When do you want to be picked up. It is now <<hour>>:<<minut>>.")
  594. if meethourC <= hour or meethourC > 23:meethourC = 20
  595. '"How about <<meethourC>>:00."'
  596. '<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
  597. act 'Hang up':gt 'telefon', 'fin'
  598. end
  599. end
  600. act 'Maybe tomorrow':
  601. cla
  602. loverrelation[3] -= 1
  603. '"I''m busy today. Call tomorrow."'
  604. if loverrelation[3] <= 0:pcs_lover -= 1 & '<<$loverdesc[3]>>, Are you fucking me, you know what. Suck my dick.'
  605. if loverrelation[3] > 0:'(<<$loverdesc[3]>>) - Okay, I''ll call tomorrow.'
  606. act 'Hang up':gt 'telefon', 'fin'
  607. end
  608. act 'I think we should break up...':
  609. cla
  610. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  611. pcs_lovers[3] = 0
  612. pcs_lover -= 1
  613. act 'Hang up':gt 'telefon', 'fin'
  614. end
  615. end
  616. act 'Leave':
  617. cla
  618. loverrelation[3] = 0
  619. pcs_lover -= 1
  620. gt 'telefon', 'fin'
  621. end
  622. end
  623. if $ARGS[0] = 'phone_ring':
  624. clr
  625. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  626. 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>'
  627. pl'<center><font size=6><<$caller>> calling</font></center>'
  628. pl'<center><img src="<<$callerid>>"><br></center>'
  629. pl''
  630. pl''
  631. pl''
  632. pl''
  633. ! 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>'
  634. end &! --- phone_ring ---
  635. if $ARGS[0] = 'phone_call_receive':
  636. clr
  637. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  638. 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>'
  639. pl'<center><font size=6>Talking to <<$caller>></font></center>'
  640. pl'<center><img src="<<$callerid>>"><br></center>'
  641. end &! --- phone_call_receive ---
  642. if $ARGS[0] = 'phone_balance':
  643. if balans < 4:
  644. clr
  645. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  646. 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>'
  647. pl'<center><font size=6>Not enough credit on your account</font></center>'
  648. pl'<center><img src="<<$callerid>>"><br></center>'
  649. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/phone/decline.png"></a></center>'
  650. wait 3500
  651. cla
  652. gt $loc, $metka
  653. elseif balans >= 4:
  654. balans -= 4
  655. end
  656. end &! --- phone_balance ---
  657. if $ARGS[0] = 'Phone_call':
  658. clr
  659. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  660. 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>'
  661. pl'<center><font size=6>Calling Mom</font></center>'
  662. pl'<center><img src="images/system/phone/icons/icon_npc1.png"><br></center>'
  663. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a></center>'
  664. wait 1500
  665. minut += 1
  666. $callerid = 'images/system/phone/icons/icon_npc1.png'
  667. gs 'telefon', 'phone_balance'
  668. $callerid = 'icon_npc1'
  669. gs 'telefon', 'phone_call_reject'
  670. end &! --- Phone_call ---
  671. if $ARGS[0] = 'phone_call_reject':
  672. clr
  673. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  674. 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>'
  675. pl'<center><font size=6>Calling....</font></center>'
  676. pl'<center><img src="images/system/phone/icons/<<$callerid>>.png"><br></center>'
  677. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a></center>'
  678. end &! --- phone_call_reject ---
  679. if $ARGS[0] = 'Phone_megafon':
  680. clr
  681. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  682. 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>'
  683. pl'<center><font size=6>Bullhorn</font></center>'
  684. pl'<center><img src="images/system/icon/icon_megafon.png"><br></center>'
  685. pl'<center><b>The balance in the account: </b><font size=5><i><font size=6><<balans>></font></i> <b>₽</b>.</center>.'
  686. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  687. end &! --- Phone_megafon ---
  688. if $ARGS[0] = 'Phone_contactlist':
  689. clr
  690. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  691. 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>'
  692. pl '<center><font size=6>Contacts</font></center>'
  693. pl '<center><img src="images/system/icon/icon_call.png"><br></center>'
  694. 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>'
  695. if hour >= 8 and hour <= 19:
  696. if telalla > 0:
  697. 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>'
  698. end
  699. if telmasha > 0:
  700. 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>'
  701. end
  702. if telkat > 0:
  703. 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>'
  704. end
  705. if pcs_lovers[1] = 1 and svidanieA = 0 and rand(1,7) > 3:
  706. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicA+'.png"></TD><TD></TD><TD align="right"><a href="exec:gt ''telefon'', ''mobilarazboyA''"><b>Call</b></a></TD></TR></TABLE></center>'
  707. end
  708. if pcs_lovers[2] = 1 and svidanieB = 0 and rand(1,7) > 3:
  709. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicB+'.png"></TD><TD></TD><TD align="right"><a href="exec:gt ''telefon'', ''mobilarazboyB''"><b>Call</b></a></TD></TR></TABLE></center>'
  710. end
  711. if pcs_lovers[3] = 1 and svidanieC = 0 and rand(1,7) > 3:
  712. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicC+'.png"></TD><TD></TD><TD align="right"><a href="exec:gt ''telefon'', ''mobilarazboyC''"><b>Call</b></a></TD></TR></TABLE></center>'
  713. end
  714. else
  715. if telalla > 0:
  716. 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>'
  717. end
  718. if telmasha > 0:
  719. 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>'
  720. end
  721. if telkat > 0:
  722. 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>'
  723. end
  724. if pcs_lovers[1] = 1 and svidanieA = 0:
  725. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicA+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypicA & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
  726. end
  727. if pcs_lovers[2] = 1 and svidanieB = 0:
  728. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicB+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypicB & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
  729. end
  730. if pcs_lovers[3] = 1 and svidanieC = 0:
  731. pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicC+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypicC & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
  732. end
  733. end
  734. if npc_QW['A192'] > 0:
  735. 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>'
  736. end
  737. dummyas = arrsize('$contact')
  738. :din_bad_as
  739. dummyas -= 1
  740. if dummyas >= 0:
  741. pl '<<$contact[dummyas]>>'
  742. jump 'din_bad_as'
  743. end
  744. killvar 'dummyas'
  745. if arrsize('$contact')>0:pl'<center><a href="exec:gs ''telefon'', ''Edit_Custom_list'' "><b>Edit Contacts</b></a></center>'
  746. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  747. end &! --- Phone_contactlist ---
  748. if $ARGS[0] = 'Edit_Custom_list':
  749. clr
  750. dummyas = arrsize('$contact')
  751. :din_bad_as1
  752. dummyas -= 1
  753. if dummyas >= 0:
  754. $dummyedit = $contact[dummyas]
  755. $dummyedit1 = dyneval('$result = ''</a><a href="exec:killvar ''''$contact'''',<<dummyas>> & gs ''''telefon'''', ''''Edit_Custom_list'''' "><b>Remove</b>'' ')
  756. $dummyedit2 = $replace($dummyedit,'<b>Call</b>',$dummyedit1)
  757. pl $dummyedit2
  758. jump 'din_bad_as1'
  759. end
  760. killvar 'dummyas'
  761. killvar 'dummyedit'
  762. killvar 'dummyedit1'
  763. killvar 'dummyedit2'
  764. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  765. end &! --- Edit_Custom_list ---
  766. if $ARGS[0] = 'Phone_notebook':
  767. clr
  768. pl'<center><font size=6>Planner</font></center>'
  769. pl'<center><<year>>-<<$month>>-<<day>>, <<$week[week]>><br></center>'
  770. rent = -1
  771. if BuyHous = 2 and ArendHouseSL > 0:rent = ArendHouseSL
  772. preg1 = pregtime
  773. d1 = day
  774. w1 = week
  775. m1 = month
  776. y1 = year
  777. i = 0
  778. $list = '<br>&emsp;<b>•</b> '
  779. :pnotebook
  780. daynum = daystart+i
  781. $calendarday = ''
  782. if m1 = 1 and d1 >= 1 and d1 <= 8:
  783. $calendarday += $list + 'New Year holidays'
  784. if d1 = 1:$calendarday += ', New Year'
  785. if d1 = 7:$calendarday += ', Christmas'
  786. end
  787. if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day'
  788. if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day'
  789. if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day'
  790. if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday'
  791. if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day'
  792. if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day'
  793. if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday'
  794. if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day'
  795. if storyline = 1 and SchoolAtestat = 0:
  796. if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.'
  797. if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.'
  798. if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.'
  799. if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.'
  800. if schoool_year = 2000 and y1 = 2017 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!'
  801. if schoool_year = 2001 and y1 = 2018 and m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.'
  802. if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.'
  803. if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.'
  804. if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.'
  805. end
  806. if daynum >= lastmens+20 and daynum < lastmens+24:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
  807. if daynum >= lastmens+6 and daynum < lastmens+8:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
  808. if preg1 = 280:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
  809. if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
  810. if w1 < 5 and workFabrika = 1:
  811. $calendarday += $list + 'Working as a seamstress. '
  812. if age < 18:$calendarday += '<i>(16:00 - 20:00)</i>' else $calendarday += '<i>(8:00 - 16:00)</i>'
  813. end
  814. if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as nurse. <i>(8:00 - 16:00)</i>'
  815. if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as masseuse. <i>(9:00 - 17:00)</i>'
  816. !! if maidqw > 0:$calendarday += '<br>&emsp;<b>•</b> Working as maid. <i>(16:00 - 19:00)</i>'
  817. if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <i><<$porndesc[pfilmday[i]]>></i>'
  818. 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>'
  819. if d1 = 31 and m1 = 12 and (year - year_start) < 2 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!'
  820. if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum:
  821. if sisboytrioQW = 1:
  822. $calendarday += $list + '<font color="orange">Threesome with Anja and Roma at 18:00</font>'
  823. else
  824. $calendarday += $list + '<font color="orange">Anja having sex with Roma at 18:00</font>'
  825. end
  826. end
  827. if sisboyparty = 2 and sisboyparty_day+1 = daynum:$calendarday += $list + '<font color="orange">Party at Rex, gathering before 18:00 at Community Center</font>'
  828. if rent = 0:$calendarday += $list + 'Rent on apartment expires!'
  829. if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!'
  830. if kid > 0:
  831. k1 = kid
  832. :kiddieloop
  833. if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <<kid>>. baby!'
  834. if k1 > 1:k1 -= 1 & jump 'kiddieloop'
  835. end
  836. if $calendarday ! '':
  837. p '<b><<$monthName[m1]>> <<d1>>, <<$week[w1]>>:</b>'
  838. pl $calendarday
  839. end
  840. if i < 14:
  841. preg1 += 1
  842. rent -= 1
  843. i += 1
  844. w1 += 1
  845. if w1 > 7:w1 = 1
  846. d1 += 1
  847. if monthsend[m1] < d1:
  848. m1 += 1 & d1 = 1
  849. if m1 = 13: m1 = 1 & y1 += 1
  850. end
  851. jump 'pnotebook'
  852. end
  853. killvar 'calendarday'
  854. killvar 'rent'
  855. killvar 'preg1'
  856. killvar 'd1'
  857. killvar 'w1'
  858. killvar 'm1'
  859. killvar 'y1'
  860. killvar 'daynum'
  861. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  862. end &! --- Phone_notebook ---
  863. if $ARGS[0] = 'Phone_pictures':
  864. clr
  865. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  866. 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>'
  867. pl'<center><font size=6>Gallery</font></center>'
  868. pl'<center><img src="images/system/icon/icon_pictures.png"><br></center>'
  869. if phone_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie1.jpg''"><b>Photo number1</b></a>'
  870. if phone_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie2.jpg''"><b>Photo number2</b></a>'
  871. if vanr_selfie[0] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (0).jpg''"><b>Self after showering number1</b></a>'
  872. if vanr_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (1).jpg''"><b>Self after showering number2</b></a>'
  873. if vanr_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (2).jpg''"><b>Self after showering number3</b></a>'
  874. if vanr_selfie[3] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (3).jpg''"><b>Self after showering number4</b></a>'
  875. if vanr_selfie[4] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (4).jpg''"><b>Self after showering number5</b></a>'
  876. if vanr_selfie[5] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (5).jpg''"><b>Self after showering number6</b></a>'
  877. if vanr_selfie[6] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (6).jpg''"><b>Self after showering number7</b></a>'
  878. if vanr_selfie[7] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (7).jpg''"><b>Self after showering number8</b></a>'
  879. if vanr_selfie[8] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (8).jpg''"><b>Self after showering number9</b></a>'
  880. if vanr_selfie[9] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (9).jpg''"><b>Self after showering number10</b></a>'
  881. if vanr_selfie[10] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (10).jpg''"><b>Self after showering number11</b></a>'
  882. if vanr_selfie[11] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (11).jpg''"><b>Self after showering number12</b></a>'
  883. if vanr_selfie[12] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (12).jpg''"><b>Self after showering number13</b></a>'
  884. if vanr_selfie[13] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (13).jpg''"><b>Self after showering number14</b></a>'
  885. if vanr_selfie[14] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (14).jpg''"><b>Self after showering number15</b></a>'
  886. if vanr_selfie[15] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (15).jpg''"><b>Self after showering number16</b></a>'
  887. if vanr_selfie[16] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (16).jpg''"><b>Self after showering number17</b></a>'
  888. if vanr_selfie[17] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (17).jpg''"><b>Self after showering number18</b></a>'
  889. if vanr_selfie[18] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (18).jpg''"><b>Self after showering number19</b></a>'
  890. if vanr_selfie[19] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (19).jpg''"><b>Self after showering number20</b></a>'
  891. !if vanr_selfie[20] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (20).jpg''"><b>Self after showering number21</b></a>'
  892. if vanr_selfie[21] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (21).jpg''"><b>Self after showering number22</b></a>'
  893. if vanr_selfie[22] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (22).jpg''"><b>Self after showering number23</b></a>'
  894. if vanr_selfie[23] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (23).jpg''"><b>Self after showering number24</b></a>'
  895. if vanr_selfie[24] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (24).jpg''"><b>Self after showering number25</b></a>'
  896. if vanr_selfie[25] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (25).jpg''"><b>Self after showering number26</b></a>'
  897. if vanr_selfie[26] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (26).jpg''"><b>Self after showering number27</b></a>'
  898. if vanr_selfie[27] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (27).jpg''"><b>Self after showering number28</b></a>'
  899. if vanr_selfie[28] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (28).jpg''"><b>Self after showering number29</b></a>'
  900. if vanr_selfie[29] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (29).jpg''"><b>Self after showering number30</b></a>'
  901. if vanr_selfie[30] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (30).jpg''"><b>Self after showering number31</b></a>'
  902. if vanr_selfie[31] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (31).jpg''"><b>Self after showering number32</b></a>'
  903. if vanr_selfie[32] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (32).jpg''"><b>Self after showering number33</b></a>'
  904. if vanr_selfie[33] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (33).jpg''"><b>Self after showering number34</b></a>'
  905. if vanr_selfie[34] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (34).jpg''"><b>Self after showering number35</b></a>'
  906. if vanr_selfie[35] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (35).jpg''"><b>Self after showering number36</b></a>'
  907. if vanr_selfie[36] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (36).jpg''"><b>Self after showering number37</b></a>'
  908. if vanr_selfie[37] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (37).jpg''"><b>Self after showering number38</b></a>'
  909. if vanr_selfie[38] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (38).jpg''"><b>Self after showering number39</b></a>'
  910. !if phone_selfie[m] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiem.jpg''"><b>Photo in sperm number1</b></a>'
  911. !if phone_selfie[n] = 1:pl'<a href="exec:view''images/system/phone/phone_selfien.jpg''"><b>Photo in sperm number2</b></a>'
  912. !if phone_selfie[x] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiex.jpg''"><b>Photo Event number1</b></a>'
  913. !if phone_selfie[y] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiey.jpg''"><b>Photo Event number2</b></a>'
  914. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  915. end &! --- Phone_pictures ---
  916. if $ARGS[0] = 'Phone_camera_selfie':
  917. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan' and mirror_steam = hour:
  918. minut += RAND (5,7)
  919. phone_rand = RAND (0,38)
  920. vanr_selfie[phone_rand] = 1
  921. gs 'telefon', 'Phone_pictures'
  922. view 'images/system/phone/selfie/bathroom/s (<<phone_rand>>).jpg'
  923. else
  924. minut += RAND (5,7)
  925. phone_rand = RAND (1,2)
  926. phone_selfie[phone_rand] = 1
  927. gs 'telefon', 'Phone_pictures'
  928. view 'images/system/phone/selfie/phone_selfie<<phone_rand>>.jpg'
  929. end
  930. !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
  931. !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
  932. !view 'images/system/phone/phone_selfie<<phone_rand>>.jpg'
  933. end &! --- Phone_camera_selfie ---
  934. if $ARGS[0] = 'Phone_camera':
  935. clr
  936. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  937. 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>'
  938. pl'<center><font size=6>Camera</font></center>'
  939. pl'<center><img src="images/system/icon/icon_camera.png"><br></center>'
  940. pl'<a href="exec:gs ''telefon'', ''Phone_camera_selfie'' "><b>Make Self</b></a>'
  941. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  942. end &! --- Phone_camera ---
  943. if $ARGS[0] = 'Phone_wheather':
  944. clr
  945. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  946. 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>'
  947. pl'<center><font size=6>Weather</font></center>'
  948. pl'<center><img src="images/system/icon/icon_weather.png"><br></center>'
  949. pl'<center><font size=6><b>Temperature: <<$temperature>>. <i><<$osadki>></i></b></font></center>'
  950. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  951. end &! --- Phone_wheather ---
  952. if $ARGS[0] = 'Phone_calendar':
  953. clr
  954. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  955. 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>'
  956. pl'<center><font size=6>Calendar</font></center>'
  957. pl'<center><img src="images/system/icon/icon_calendar.png"><br></center>'
  958. 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>'
  959. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  960. end &! --- Phone_calendar ---
  961. if $ARGS[0] = 'Phone_noactive':
  962. clr
  963. pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  964. 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>'
  965. pl'<center><font size=6>This option is not active</font></center>'
  966. pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
  967. end &! --- Phone_noactive ---
  968. if $ARGS[0] = 'Phone_menu':
  969. clr
  970. pl'<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
  971. 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>'
  972. pl'<center><a href="exec:gs ''telefon'', ''Phone_camera'' "><img src="images/system/icon/icon_camera.png"></a><a href="exec:gs ''telefon'', ''Phone_calendar'' "><img src="images/system/icon/icon_calendar.png"></a><a href="exec:gs ''telefon'', ''Phone_pictures'' "><img src="images/system/icon/icon_pictures.png"></a></center>'
  973. pl'<center><a href="exec:gs ''telefon'', ''Phone_noactive'' "><img src="images/system/icon/icon_music.png"></a><a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[main]"><img src="images/system/icon/icon_settings.png"></a><a href="exec:gs ''telefon'', ''Phone_wheather'' "><img src="images/system/icon/icon_weather.png"></a></center>'
  974. pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/icon/icon_call.png"></a><a href="exec:gs ''telefon'', ''Phone_noactive'' "><img src="images/system/icon/icon_sms.png"></a><a href="exec:gs ''telefon'', ''Phone_megafon'' "><img src="images/system/icon/icon_megafon.png"></a></center>'
  975. pl'<center><a href="exec:gs ''telefon'', ''Phone_notebook'' "><img src="images/system/icon/icon_notebook.png"></a></center>'
  976. pl'<center><a href="exec:gs''stat''"><img src="images/system/icon/back.png"></a></center>'
  977. end &! --- Phone_menu ---
  978. if $ARGS[0] = 'Add_contact':
  979. $dummy = INPUT('Enter a note:')
  980. $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>'
  981. killvar '$dummy'
  982. end &! --- Add_contact ---
  983. if $ARGS[0] = 'telotkaz':
  984. cla
  985. minut += 10
  986. '<<$telsob>>, "Sorry I''m busy, maybe next time."'
  987. act 'Hangup':gt 'telefon', 'fin'
  988. end &! --- telotkaz ---
  989. if $ARGS[0] = 'telotkazboy':
  990. cla
  991. minut += 10
  992. '<<$loverdesc[lover_number]>>, "Sorry, I''m busy right now, maybe next time."'
  993. act 'Hangup':gt 'telefon', 'fin'
  994. end &! --- telotkazboy ---
  995. if $ARGS[0] = 'fin':
  996. cla
  997. gt $loc, $metka
  998. end
  999. --- telefon ---------------------------------