1
0

telefon 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775
  1. # telefon
  2. $telotkaz = {
  3. cla
  4. minut += 10
  5. '<<$telsob>>, "Sorry I''m busy, maybe next time."'
  6. act 'Hangup':gt 'telefon', 'fin'
  7. }
  8. $telotkazboy = {
  9. cla
  10. minut += 10
  11. '<<$loverdesc[lover_number]>>, "Sorry, I''m busy right now, maybe next time."'
  12. act 'Hangup':gt 'telefon', 'fin'
  13. }
  14. if $ARGS[0] = 'start':
  15. gs 'stat'
  16. dynamic $phone_call_receive
  17. if npc_QW['A192'] = 1 and week = 6 and pcs_apprnc > 80:
  18. gt 'nastja', 'pos4'
  19. elseif npc_QW['A192'] = 2 and week ! 6 and zenit ! 0 and nastjaday ! daystart:
  20. gt 'nastja', 'pos13'
  21. elseif hour >= 8 and hour <= 20 and npc_QW['A192'] = 2 and week = 6 and pcs_apprnc > 80 and nastjaday ! daystart:
  22. gt 'nastja', 'pos12'
  23. elseif npc_QW['A192'] = 5 and week = 6 and nastjaday ! daystart:
  24. gt 'nastja', 'pos22'
  25. elseif npc_QW['A192'] = 6 and nastjaday ! daystart:
  26. gt 'nastja', 'pos31'
  27. else
  28. $callerid = 'icon_nastja'
  29. dynamic $phone_call_reject
  30. end
  31. end
  32. if $ARGS[0] = 'mobilaraz':
  33. cls
  34. cla
  35. gs'din_bad'
  36. $caller = '<<$telsob>>'
  37. dynamic $phone_balance
  38. dynamic $phone_call_receive
  39. telotvet = rand(0, 10)
  40. '"Yes, I''m listening," says a voice from the speaker.'
  41. if month > 5 and temper > 20 and sunWeather = 1:
  42. act 'Invite to the park':
  43. cla
  44. '"Let''s go for a walk in the park."'
  45. if telotvet > 3:
  46. '<<$telsob>>, "See you in the park in an hour."'
  47. act 'Go':gt 'parksvid'
  48. elseif telotvet <= 3:
  49. dynamic $telotkaz
  50. end
  51. end
  52. end
  53. act 'Invite to a movie':
  54. cla
  55. '"Want to go see a movie?"'
  56. if telotvet > 3:
  57. '<<$telsob>>, "See you at the movie theater in an hour."'
  58. act 'Go':gt 'kinosvid'
  59. elseif telotvet <= 3:
  60. dynamic $telotkaz
  61. end
  62. end
  63. act 'Invite to the pool hall':
  64. cla
  65. '"Let''s play pool."'
  66. if telotvet > 3:
  67. '<<$telsob>>, "See you at the pool hall in an hour."'
  68. act 'Go':gt 'billsvid'
  69. elseif telotvet <= 3:
  70. dynamic $telotkaz
  71. end
  72. end
  73. act 'Invite to the cafe':
  74. cla
  75. '"Let''s go to the cafe."'
  76. if telotvet > 3:
  77. '<<$telsob>>, "See you at the cafe in an hour."'
  78. act 'Go':gt 'kafesvid'
  79. elseif telotvet <= 3:
  80. dynamic $telotkaz
  81. end
  82. end
  83. act 'Invite to the casino':
  84. cla
  85. '"Let''s go to the casino."'
  86. if telotvet > 3:
  87. '<<$telsob>>, "See you in the casino in an hour."'
  88. act 'Go':gt 'kazinosvid'
  89. elseif telotvet <= 3:
  90. dynamic $telotkaz
  91. end
  92. end
  93. act 'Hangup':gt 'telefon', 'fin'
  94. end
  95. if $ARGS[0] = 'mobilarazboyA':
  96. cls
  97. cla
  98. gs'din_bad'
  99. $caller = '<<$loverdesc[1]>>'
  100. $callerid = 'images/characters/shared/'+boypicA+'.jpg'
  101. dynamic $phone_balance
  102. dynamic $phone_call_receive
  103. telotvet = rand(0, 10)
  104. '"Yes, I''m listening," says a voice from the speaker.'
  105. if month > 5 and temper > 20 and sunWeather = 1:
  106. act 'Invite to the park':
  107. cla
  108. '"Let''s go for a walk in the park."'
  109. if telotvet > 3:
  110. '<<$loverdesc[1]>>, "See you in the park in an hour."'
  111. act 'Go':gt 'svidboy', 'parksvid'
  112. elseif telotvet <= 3:
  113. dynamic $telotkazboy
  114. end
  115. end
  116. end
  117. act 'Invite to a movie':
  118. cla
  119. '"Want to go see a movie?"'
  120. if telotvet > 3:
  121. '<<$loverdesc[1]>>, "See you at the movie theater in an hour."'
  122. act 'Go':gt 'svidboy', 'kinosvid'
  123. elseif telotvet <= 3:
  124. dynamic $telotkaz
  125. end
  126. end
  127. act 'Invite to the pool hall':
  128. cla
  129. '"Let''s play pool."'
  130. if telotvet > 3:
  131. '<<$loverdesc[1]>>, "See you at the pool hall in an hour."'
  132. act 'Go':gt 'svidboy', 'billsvid'
  133. elseif telotvet <= 3:
  134. dynamic $telotkazboy
  135. end
  136. end
  137. act 'Invite to the cafe':
  138. cla
  139. '"Let''s go to the cafe."'
  140. if telotvet > 3:
  141. '<<$loverdesc[1]>>, "See you at the cafe in an hour."'
  142. act 'Go':gt 'svidboy', 'kafesvid'
  143. elseif telotvet <= 3:
  144. dynamic $telotkazboy
  145. end
  146. end
  147. act 'Hangup':gt 'telefon', 'fin'
  148. end
  149. if $ARGS[0] = 'mobilarazboyB':
  150. cls
  151. cla
  152. gs'din_bad'
  153. $caller = '<<$loverdesc[2]>>'
  154. $callerid = 'images/characters/shared/'+boypicB+'.jpg'
  155. dynamic $phone_balance
  156. dynamic $phone_call_receive
  157. telotvet = rand(0, 10)
  158. '"Yes, I''m listening," says a voice from the speaker.'
  159. if month > 5 and temper > 20 and sunWeather = 1:
  160. act 'Invite to the park':
  161. cla
  162. '"Let''s go for a walk in the park."'
  163. if telotvet > 3:
  164. '<<$loverdesc[2]>>, "See you in the park in an hour."'
  165. act 'Go':gt 'svidboy', 'parksvid'
  166. elseif telotvet <= 3:
  167. dynamic $telotkazboy
  168. end
  169. end
  170. end
  171. act 'Invite to a movie':
  172. cla
  173. '"Want to go see a movie?"'
  174. if telotvet > 3:
  175. '<<$loverdesc[2]>>, "See you at the movie theater in an hour."'
  176. act 'Go':gt 'svidboy', 'kinosvid'
  177. elseif telotvet <= 3:
  178. dynamic $telotkaz
  179. end
  180. end
  181. act 'Invite to the pool hall':
  182. cla
  183. '"Let''s play pool."'
  184. if telotvet > 3:
  185. '<<$loverdesc[2]>>, "See you at the pool hall in an hour."'
  186. act 'Go':gt 'svidboy', 'billsvid'
  187. elseif telotvet <= 3:
  188. dynamic $telotkazboy
  189. end
  190. end
  191. act 'Invite to the cafe':
  192. cla
  193. '"Let''s go to the cafe."'
  194. if telotvet > 3:
  195. '<<$loverdesc[2]>>, "See you at the cafe in an hour."'
  196. act 'Go':gt 'svidboy', 'kafesvid'
  197. elseif telotvet <= 3:
  198. dynamic $telotkazboy
  199. end
  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. dynamic $phone_balance
  210. dynamic $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. dynamic $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. dynamic $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. dynamic $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. dynamic $telotkazboy
  253. end
  254. end
  255. act 'Hangup':gt 'telefon', 'fin'
  256. end
  257. if $ARGS[0] = 'boyA':
  258. cla
  259. clr
  260. ring = 0
  261. ringA = 0
  262. loverday[1] = daystart
  263. gs 'stat'
  264. dynamic $phone_call_receive
  265. svetrand = rand(0, 5)
  266. if svetrand = 0:$sveta = 'cutie'
  267. if svetrand = 1:$sveta = 'honey'
  268. if svetrand = 2:$sveta = 'sweetie'
  269. if svetrand = 3:$sveta = 'baby'
  270. if svetrand = 4:$sveta = 'hot stuff'
  271. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  272. 'Hey <<$sveta>>, it''s me, <<$loverdesc[1]>>. How''s it going?'
  273. act 'Normally':
  274. cla
  275. '"Pretty good, you?"'
  276. '<<$loverdesc[1]>>, "Great, but I kind of miss you, can we meet today?"'
  277. if pregtime <= loversday[1] and knowpreg = 1 and pregtalk = 0:
  278. act 'Tell him he''s going to be a dad':
  279. cla
  280. pregtalk = 1
  281. '"Honey, I''m pregnant with your child."'
  282. if haraklover[1] = 0:
  283. if loverrelation[1] >= 90:
  284. loverlove[1] = 1
  285. '<<$loverdesc[1]>>, "This is wonderful! We have to celebrate!"'
  286. '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.'
  287. '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.'
  288. 'When you are totally ready <<$loverdesc[1]>> will take you to their parents.'
  289. act 'Hang up':gt 'telefon', 'fin'
  290. act 'Meet tonight':
  291. cla
  292. svidanieA = 1
  293. '"How about this evening?"'
  294. '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
  295. act 'Pick a time':
  296. cla
  297. meetdayA = daystart
  298. meethourA = input ("When do you want to be picked up? It is now <<hour>>:<<minut>>.")
  299. if meethourA <= hour or meethourA > 23:meethourA = 20
  300. '"How about <<meethourA>>:00?"'
  301. '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
  302. act 'Hang up':gt 'telefon', 'fin'
  303. end
  304. end
  305. elseif loverrelation[1] < 90:
  306. money += 20000
  307. '<<$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.'
  308. act 'Hang up':gt 'telefon', 'fin'
  309. end
  310. elseif haraklover[1] = 1:
  311. money += 20000
  312. '<<$loverdesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  313. act 'Hang up':gt 'telefon', 'fin'
  314. elseif haraklover[1] = 2:
  315. loverrelation[1] = 0
  316. pcs_lover -= 1
  317. pregtalk = 0
  318. '<<$loverdesc[1]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  319. act 'Hang up':gt 'telefon', 'fin'
  320. end
  321. end
  322. elseif pregtime > loversday[1] and knowpreg = 1 and pregtalk = 0:
  323. act 'Honey, you will soon become a dad':
  324. cla
  325. loverrelation[1] = 0
  326. '"Honey, I''m pregnant with your child."'
  327. '<<$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."'
  328. act 'Hang up.':gt 'telefon', 'fin'
  329. end
  330. elseif week > 1 and week < 5 and workKafe = 1:
  331. act 'Sorry, I''m working today':
  332. cla
  333. '"Sorry, I''m working today."'
  334. '<<$loverdesc[1]>>, "Okay, I''ll call tomorrow."'
  335. act 'Hang up':gt 'telefon', 'fin'
  336. end
  337. end
  338. act 'Tonight':
  339. cla
  340. loverrelation[1] += 1
  341. svidanieA = 1
  342. meetdayA = daystart
  343. '"How about this evening?"'
  344. '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
  345. act 'Pick a time':
  346. cla
  347. meethourA = input ("When do you want to be picked up. It is now <<hour>>:<<minut>>.")
  348. if meethourA <= hour or meethourA > 23:meethourA = 20
  349. '"How about <<meethourA>>:00?."'
  350. '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
  351. act 'Hang up':gt 'telefon', 'fin'
  352. end
  353. end
  354. act 'Maybe tomorrow':
  355. cla
  356. loverrelation[1] -= 1
  357. '"I''m busy today. Call tomorrow."'
  358. if loverrelation[1] <= 0:pcs_lover -= 1 & '<<$loverdesc[1]>>, Are you fucking me, you know what. Suck my dick.'
  359. if loverrelation[1] > 0:'(<<$loverdesc[1]>>) - Okay, I''ll call tomorrow.'
  360. act 'Hang up':gt 'telefon', 'fin'
  361. end
  362. act 'I think we should break up...':
  363. cla
  364. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  365. pcs_lovers[1] = 0
  366. pcs_lover -= 1
  367. act 'Hang up':gt 'telefon', 'fin'
  368. end
  369. end
  370. act 'Leave':
  371. cla
  372. loverrelation[1] = 0
  373. pcs_lover -= 1
  374. gt 'telefon', 'fin'
  375. end
  376. end
  377. if $ARGS[0] = 'boyB':
  378. cla
  379. clr
  380. ring = 0
  381. ringB = 0
  382. loverday[2] = daystart
  383. gs 'stat'
  384. dynamic $phone_call_receive
  385. svetrand = rand(0, 5)
  386. if svetrand = 0:$sveta = 'cutie'
  387. if svetrand = 1:$sveta = 'honey'
  388. if svetrand = 2:$sveta = 'sweetie'
  389. if svetrand = 3:$sveta = 'baby'
  390. if svetrand = 4:$sveta = 'hot stuff'
  391. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  392. 'Hey <<$sveta>>, it''s me, <<$loverdesc[2]>>. How''s it going?'
  393. act 'Normally':
  394. cla
  395. '"Pretty good, you?"'
  396. '<<$loverdesc[2]>>, "Great, but I kind of miss you, can we meet today?"'
  397. if pregtime <= loversday[2] and knowpreg = 1 and pregtalk = 0:
  398. act 'Tell him he''s going to be a dad':
  399. cla
  400. pregtalk = 1
  401. '"Honey, I''m pregnant with your child."'
  402. if haraklover[2] = 0:
  403. if loverrelation[2] >= 90:
  404. loverlove[2] = 1
  405. '<<$loverdesc[2]>>, "This is wonderful! We have to celebrate!"'
  406. '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.'
  407. '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.'
  408. 'When you are totally ready <<$loverdesc[2]>> will take you to their parents.'
  409. act 'Hang up':gt 'telefon', 'fin'
  410. act 'Meet tonight':
  411. cla
  412. svidanieB = 1
  413. '"How about this evening?"'
  414. '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
  415. act 'Pick a time':
  416. cla
  417. meetdayB = daystart
  418. meethourB = input ("When do you want to be picked up? It is now <<hour>>:<<minut>>.")
  419. if meethourB <= hour or meethourB > 23:meethourB = 20
  420. '"How about <<meethourB>>:00?"'
  421. '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
  422. act 'Hang up':gt 'telefon', 'fin'
  423. end
  424. end
  425. elseif loverrelation[2] < 90:
  426. money += 20000
  427. '<<$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.'
  428. act 'Hang up':gt 'telefon', 'fin'
  429. end
  430. elseif haraklover[2] = 1:
  431. money += 20000
  432. '<<$loverdesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  433. act 'Hang up':gt 'telefon', 'fin'
  434. elseif haraklover[2] = 2:
  435. loverrelation[2] = 0
  436. pcs_lover -= 1
  437. pregtalk = 0
  438. '<<$loverdesc[2]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  439. act 'Hang up':gt 'telefon', 'fin'
  440. end
  441. end
  442. elseif pregtime > loversday[2] and knowpreg = 1 and pregtalk = 0:
  443. act 'Honey, you will soon become a dad':
  444. cla
  445. loverrelation[2] = 0
  446. '"Honey, I''m pregnant with your child."'
  447. '<<$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."'
  448. act 'Hang up.':gt 'telefon', 'fin'
  449. end
  450. elseif week > 1 and week < 5 and workKafe = 1:
  451. act 'Sorry, I''m working today':
  452. cla
  453. '"Sorry, I''m working today."'
  454. '<<$loverdesc[2]>>, "Okay, I''ll call tomorrow."'
  455. act 'Hang up':gt 'telefon', 'fin'
  456. end
  457. end
  458. act 'Tonight':
  459. cla
  460. loverrelation[2] += 1
  461. svidanieB = 1
  462. meetdayB = daystart
  463. '"How about this evening?"'
  464. '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
  465. act 'Pick a time':
  466. cla
  467. meethourB = input ("When do you want to be picked up. It is now <<hour>>:<<minut>>.")
  468. if meethourB <= hour or meethourB > 23:meethourB = 20
  469. '"How about <<meethourB>>:00?."'
  470. '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
  471. act 'Hang up':gt 'telefon', 'fin'
  472. end
  473. end
  474. act 'Maybe tomorrow':
  475. cla
  476. loverrelation[2] -= 1
  477. '"I''m busy today. Call tomorrow."'
  478. if loverrelation[2] <= 0:pcs_lover -= 1 & '<<$loverdesc[2]>>, Are you fucking me, you know what. Suck my dick.'
  479. if loverrelation[2] > 0:'(<<$loverdesc[2]>>) - Okay, I''ll call tomorrow.'
  480. act 'Hang up':gt 'telefon', 'fin'
  481. end
  482. act 'I think we should break up...':
  483. cla
  484. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  485. pcs_lovers[2] = 0
  486. pcs_lover -= 1
  487. act 'Hang up':gt 'telefon', 'fin'
  488. end
  489. end
  490. act 'Leave':
  491. cla
  492. loverrelation[2] = 0
  493. gt 'telefon', 'fin'
  494. end
  495. end
  496. if $ARGS[0] = 'boyC':
  497. cla
  498. clr
  499. ring = 0
  500. ringC = 0
  501. loverday[3] = daystart
  502. gs 'stat'
  503. dynamic $phone_call_receive
  504. svetrand = rand(0, 5)
  505. if svetrand = 0:$sveta = 'cutie'
  506. if svetrand = 1:$sveta = 'honey'
  507. if svetrand = 2:$sveta = 'sweetie'
  508. if svetrand = 3:$sveta = 'baby'
  509. if svetrand = 4:$sveta = 'hot stuff'
  510. if svetrand = 5:$sveta = '<<$pcs_nickname>>'
  511. 'Hey <<$sveta>>, it''s me, <<$loverdesc[3]>>. How''s it going?'
  512. act 'Normally':
  513. cla
  514. '"Pretty good, you?"'
  515. '<<$loverdesc[3]>>, "Great, but I kind of miss you, can we meet today?"'
  516. if pregtime <= loversday[3] and knowpreg = 1 and pregtalk = 0:
  517. act 'Tell him he''s going to be a dad':
  518. cla
  519. pregtalk = 1
  520. '"Honey, I''m pregnant with your child."'
  521. if haraklover[3] = 0:
  522. if loverrelation[3] >= 90:
  523. loverlove[3] = 1
  524. '<<$loverdesc[3]>>, "This is wonderful! We have to celebrate!"'
  525. '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.'
  526. '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.'
  527. 'When you are totally ready <<$loverdesc[3]>> will take you to their parents.'
  528. act 'Hang up':gt 'telefon', 'fin'
  529. act 'Meet tonight':
  530. cla
  531. svidanieC = 1
  532. '"How about this evening?"'
  533. '<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
  534. act 'Pick a time':
  535. cla
  536. meetdayC = daystart
  537. meethourC = input ("When do you want to be picked up? It is now <<hour>>:<<minut>>.")
  538. if meethourC <= hour or meethourC > 23:meethourC = 20
  539. '"How about <<meethourC>>:00?"'
  540. '<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
  541. act 'Hang up':gt 'telefon', 'fin'
  542. end
  543. end
  544. elseif loverrelation[3] < 90:
  545. money += 20000
  546. '<<$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.'
  547. act 'Hang up':gt 'telefon', 'fin'
  548. end
  549. elseif haraklover[3] = 1:
  550. money += 20000
  551. '<<$loverdesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  552. act 'Hang up':gt 'telefon', 'fin'
  553. elseif haraklover[3] = 2:
  554. loverrelation[3] = 0
  555. pcs_lover -= 1
  556. pregtalk = 0
  557. '<<$loverdesc[3]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  558. act 'Hang up':gt 'telefon', 'fin'
  559. end
  560. end
  561. elseif pregtime > loversday[3] and knowpreg = 1 and pregtalk = 0:
  562. act 'Honey, you will soon become a dad':
  563. cla
  564. loverrelation[3] = 0
  565. pcs_lover -= 1
  566. '"Honey, I''m pregnant with your child."'
  567. '<<$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."'
  568. act 'Hang up.':gt 'telefon', 'fin'
  569. end
  570. elseif week > 1 and week < 5 and workKafe = 1:
  571. act 'Sorry, I''m working today':
  572. cla
  573. '"Sorry, I''m working today."'
  574. '<<$loverdesc[3]>>, "Okay, I''ll call tomorrow."'
  575. act 'Hang up':gt 'telefon', 'fin'
  576. end
  577. end
  578. act 'Tonight':
  579. cla
  580. loverrelation[3] += 1
  581. svidanieC = 1
  582. meetdayC = daystart
  583. '"How about this evening?"'
  584. '<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
  585. act 'Pick a time':
  586. cla
  587. meethourC = input ("When do you want to be picked up. It is now <<hour>>:<<minut>>.")
  588. if meethourC <= hour or meethourC > 23:meethourC = 20
  589. '"How about <<meethourC>>:00."'
  590. '<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
  591. act 'Hang up':gt 'telefon', 'fin'
  592. end
  593. end
  594. act 'Maybe tomorrow':
  595. cla
  596. loverrelation[3] -= 1
  597. '"I''m busy today. Call tomorrow."'
  598. if loverrelation[3] <= 0:pcs_lover -= 1 & '<<$loverdesc[3]>>, Are you fucking me, you know what. Suck my dick.'
  599. if loverrelation[3] > 0:'(<<$loverdesc[3]>>) - Okay, I''ll call tomorrow.'
  600. act 'Hang up':gt 'telefon', 'fin'
  601. end
  602. act 'I think we should break up...':
  603. cla
  604. 'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
  605. pcs_lovers[3] = 0
  606. pcs_lover -= 1
  607. act 'Hang up':gt 'telefon', 'fin'
  608. end
  609. end
  610. act 'Leave':
  611. cla
  612. loverrelation[3] = 0
  613. pcs_lover -= 1
  614. gt 'telefon', 'fin'
  615. end
  616. end
  617. if $ARGS[0] = 'fin':
  618. cla
  619. gt $locM, $metkaM
  620. end
  621. --- telefon ---------------------------------