telefon 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645
  1. # telefon
  2. $objmobilaraz = {
  3. cla
  4. telotvet = rand(0, 10)
  5. '"Yes, I''m listening, " said a voice from the speaker.'
  6. if month > 5 and temper > 20 and osadki < painweather:
  7. act 'Invite a walk in the park':
  8. cla
  9. 'YOU:Let''s go take a walk in the park.'
  10. if telotvet > 3:
  11. '<<$telsob>>:Well let an hour in the park.'
  12. act 'Go':gt 'parksvid'
  13. elseif telotvet <= 3:
  14. dynamic $telotkaz
  15. end
  16. end
  17. end
  18. act 'Invite to movie':
  19. cla
  20. 'YOU:Come with me to the movies?'
  21. if telotvet > 3:
  22. '<<$telsob>>:Well let an hour in the theater.'
  23. act 'Go':gt 'kinosvid'
  24. elseif telotvet <= 3:
  25. dynamic $telotkaz
  26. end
  27. end
  28. act 'Invite billiards':
  29. cla
  30. 'YOU:Let''s go to the pool.'
  31. if telotvet > 3:
  32. '<<$telsob>>:Well let an hour of billiards.'
  33. act 'Go':gt 'billsvid'
  34. elseif telotvet <= 3:
  35. dynamic $telotkaz
  36. end
  37. end
  38. act 'Invite a cafe':
  39. cla
  40. 'YOU:Let''s go to the cafe.'
  41. if telotvet > 3:
  42. '<<$telsob>>:Well let an hour in the cafe.'
  43. act 'Go':gt 'kafesvid'
  44. elseif telotvet <= 3:
  45. dynamic $telotkaz
  46. end
  47. end
  48. act 'Invite casino':
  49. cla
  50. 'YOU:Let''s go to the casino go.'
  51. if telotvet > 3:
  52. '<<$telsob>>:Well let an hour at the casino.'
  53. act 'Go':gt 'kazinosvid'
  54. elseif telotvet <= 3:
  55. dynamic $telotkaz
  56. end
  57. end
  58. act 'Hangup':gt 'telefon', 'fin'
  59. }
  60. $objmobilarazboy = {
  61. cla
  62. telotvet = rand(0, 10)
  63. '"Yes, I''m listening, " said a voice from the speaker.'
  64. if month > 5 and temper > 20 and osadki < painweather:
  65. act 'Invite a walk in the park':
  66. cla
  67. 'YOU:Let''s go take a walk in the park.'
  68. if telotvet > 3:
  69. '<<$telsob>>:Well let an hour in the park.'
  70. act 'Go':gt 'svidboy', 'parksvid'
  71. elseif telotvet <= 3:
  72. dynamic $telotkazboy
  73. end
  74. end
  75. end
  76. act 'Invite to movie':
  77. cla
  78. 'YOU:Come with me to the movies?'
  79. if telotvet > 3:
  80. '<<$telsob>>:Well let an hour in the theater.'
  81. act 'Go':gt 'svidboy', 'kinosvid'
  82. elseif telotvet <= 3:
  83. dynamic $telotkaz
  84. end
  85. end
  86. act 'Invite billiards':
  87. cla
  88. 'YOU:Let''s go to the pool.'
  89. if telotvet > 3:
  90. '<<$telsob>>:Well let an hour of billiards.'
  91. act 'Go':gt 'svidboy', 'billsvid'
  92. elseif telotvet <= 3:
  93. dynamic $telotkazboy
  94. end
  95. end
  96. act 'Invite a cafe':
  97. cla
  98. 'YOU:Let''s go to the cafe.'
  99. if telotvet > 3:
  100. '<<$telsob>>:Well let an hour in the cafe.'
  101. act 'Go':gt 'svidboy', 'kafesvid'
  102. elseif telotvet <= 3:
  103. dynamic $telotkazboy
  104. end
  105. end
  106. act 'Hangup':gt 'telefon', 'fin'
  107. }
  108. $telotkaz = {
  109. cla
  110. minut += 10
  111. '<<$telsob>>:Sorry I''m busy, come next time.'
  112. act 'Hangup':gt 'telefon', 'fin'
  113. }
  114. $telotkazboy = {
  115. cla
  116. minut += 10
  117. '<<$boyA>>:Sorry, I''m busy right now, come next time.'
  118. act 'Hangup':gt 'telefon', 'fin'
  119. }
  120. if $ARGS[0] = 'start':
  121. cla
  122. clr
  123. gs 'stat'
  124. if vladimirday ! day and vladimirQW = 20 and hour = 16:gt 'qwloc2'
  125. if vladimirday ! day and vladimirQW = 25 and hour = 16 and week = 6:gt 'qwloc3'
  126. if vladimirday ! day and vladimirQW = 35 and hour = 16 and week = 6:gt 'qwloc4'
  127. if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! day and hour >= 12:gt 'qwlocdog'
  128. if ring = 0:
  129. if number = 6:'<center><b><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></b></center>'
  130. if number = 5:'<center><b><<num6>><<num5>>-<<num4>><<num3>>-<<num2>></b><<num1>></center>'
  131. if number = 4:'<center><b><<num6>><<num5>>-<<num4>><<num3>></b>-<<num2>><<num1>></center>'
  132. if number = 3:'<center><b><<num6>><<num5>>-<<num4>></b><<num3>>-<<num2>><<num1>></center>'
  133. if number = 2:'<center><b><<num6>><<num5>></b>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  134. if number = 1:'<center><b><<num6>></b><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  135. if number = 0:'<center><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  136. *nl
  137. '<center><b><a href="exec:gt ''telefon'', ''1''">1</a> <a href="exec:gt ''telefon'', ''2''">2</a> <a href="exec:gt ''telefon'', ''3''">3</a></b></center>'
  138. '<center><b><a href="exec:gt ''telefon'', ''4''">4</a> <a href="exec:gt ''telefon'', ''5''">5</a> <a href="exec:gt ''telefon'', ''6''">6</a></b></center>'
  139. '<center><b><a href="exec:gt ''telefon'', ''7''">7</a> <a href="exec:gt ''telefon'', ''8''">8</a> <a href="exec:gt ''telefon'', ''9''">9</a></b></center>'
  140. '<center><b><a href="exec:gt ''telefon'', ''Reset''">Clear</a> <a href="exec:gt ''telefon'', ''0''">0</a> <a href="exec:gt ''telefon'', ''Call''">Call</a></b></center>'
  141. if hour >= 8 and hour <= 19:
  142. if telalla > 0:
  143. act 'Call Alla':
  144. $telsob = 'Alla'
  145. dynamic $objmobilaraz
  146. end
  147. end
  148. if telmasha > 0:
  149. act 'Call Masha':
  150. $telsob = 'Masha'
  151. dynamic $objmobilaraz
  152. end
  153. end
  154. if telkat > 0:
  155. act 'Call Kate':
  156. $telsob = 'Kate'
  157. dynamic $objmobilaraz
  158. end
  159. end
  160. if bfA > 0 and svidanieA = 0:
  161. act 'Call <<$boyA>>':dynamic $objmobilarazboy
  162. end
  163. end
  164. if nastjaqw = 1 and week = 6 and vnesh > 20:act 'Call Nastya':gt 'nastja', 'pos4'
  165. if nastjaqw = 2 and week ! 6 and zenit = 0 and nastjaday ! day:act 'Chat with Nastya':gt 'nastja', 'pos13'
  166. if hour >= 8 and hour <= 20 and nastjaqw = 2 and week = 6 and vnesh > 20 and nastjaday ! day:act 'On the beach with Nastya':gt 'nastja', 'pos12'
  167. if nastjaqw = 5 and week = 6 and nastjaday ! day:act 'Invite Nastya': gt 'nastja', 'pos22'
  168. if nastjaqw = 6 and nastjaday ! day:act 'Call Nastya': gt 'nastja', 'pos31'
  169. act 'Hangup':
  170. cla
  171. gt 'telefon', 'fin'
  172. end
  173. end
  174. if ring = 1:
  175. if ringA = 1:
  176. gt 'telefon', 'boyA'
  177. exit
  178. end
  179. if ringB = 1:
  180. gt 'telefon', 'boyB'
  181. exit
  182. end
  183. if ringC = 1:
  184. gt 'telefon', 'boyC'
  185. exit
  186. end
  187. end
  188. end
  189. if $ARGS[0] = 'boyA':
  190. cla
  191. clr
  192. ring = 0
  193. ringA = 0
  194. boydayA = day
  195. gs 'stat'
  196. svetrand = rand(0, 5)
  197. if svetrand = 0:$$sveta = 'cutie'
  198. if svetrand = 1:$sveta = 'honey'
  199. if svetrand = 2:$sveta = 'sweetie'
  200. if svetrand = 3:$sveta = 'baby'
  201. if svetrand = 4:$sveta = 'hot stuff'
  202. if svetrand = 5:$sveta = '<<$name>>'
  203. 'Hey <<$sveta>>, it''s me, <<$boyA>>. How''s it going?'
  204. act 'Normally':
  205. cla
  206. '(You) - Pretty good, you?'
  207. '(<<$boyA>>) - just great, but I kind of miss you, can we meet today?'
  208. if pregtime <= dayA and pregtime >= 7 and pregtalk = 0:
  209. act 'Honey, you will soon become a dad.':
  210. cla
  211. pregtalk = 1
  212. '(You) - Honey, I''m pregnant with your child.'
  213. if harakBoyA = 0:
  214. if bfA >= 90:
  215. love = 1
  216. '(<<$boyA>>) - This is wonderful! We have to celebrate!'
  217. 'You started talking about living together. <<$boyA>> told you that he is not against it in principle, but first he wants you to meet his parents.'
  218. 'He warns you that his mother is very demanding and rigorous. <<$boyA>> says that he loves his mother and does not want to upher. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
  219. 'When you are totally ready <<$boyA>> will take you to their parents.'
  220. act 'Hang up.':gt 'telefon', 'fin'
  221. act 'Meet tonight':
  222. cla
  223. svidanieA = 1
  224. '(You) - How about this evening?'
  225. '(<<$boyA>>) - Sounds great! When can I come to pick you up?'
  226. act 'Set up a time.':
  227. cla
  228. meetday = daystart
  229. meethour = input ("Set up a time to get picked up. It is now <<hour>> o''clock.")
  230. if meethour <= hour or meethour > 23:meethour = 20
  231. '(You) -How about <<meethour>> o''clock?'
  232. '(<<$boyA>>) - Okay <<$sveta>>, see you at <<meethour>> o''clock.'
  233. act 'Hang up.':gt 'telefon', 'fin'
  234. end
  235. end
  236. elseif bfA < 90:
  237. money += 20000
  238. '(<<$boyA>>) - I''m not yet ready to become a dad. I''ll give you the money for an abortion. Go out and get rid of the child.'
  239. act 'Hang up.':gt 'telefon', 'fin'
  240. end
  241. elseif harakBoyA = 1:
  242. money += 20000
  243. '(<<$boyA>>) - I''m not yet ready to become a dad. I''ll give you the money for an abortion. Go out and get rid of the child.'
  244. act 'Hang up.':gt 'telefon', 'fin'
  245. elseif harakBoyA = 2:
  246. bfA = 0
  247. pregtalk = 0
  248. '(<<$boyA>>) - What? Yes you ohuel! Somewhere tucked pussy and now dumped on me. Come on you dick.'
  249. act 'Hang up.':gt 'telefon', 'fin'
  250. end
  251. end
  252. elseif pregtime > dayA and pregtime >= 7 and pregtalk = 0:
  253. act 'Honey, you will soon become a dad.':
  254. cla
  255. bfA = 0
  256. '(You) - Honey, I''m pregnant with your child.'
  257. '(<<$boyA>>) - How the fuck dad? We meet with you less than you''re pregnant. Sprained whore who is here, and go to him. Everything. I can not call. Goodbye.'
  258. act 'Hang up.':gt 'telefon', 'fin'
  259. end
  260. elseif week > 1 and week < 5 and workKafe = 1:
  261. act 'Sorry, I''m working today.':
  262. cla
  263. '(You) - Oh, sorry, I''m working today.'
  264. '(<<$boyA>>) - Okay, I''ll call tomorrow.'
  265. act 'Hang up.':gt 'telefon', 'fin'
  266. end
  267. end
  268. act 'Tonight':
  269. cla
  270. bfA += 1
  271. svidanieA = 1
  272. meetday = daystart
  273. '(You) - How about this evening?'
  274. '(<<$boyA>>) - Sounds great! When can I come to pick you up?'
  275. act 'Call time.':
  276. cla
  277. meethour = input ("Set up a time to get picked up. It is now <<hour>> o''clock.")
  278. if meethour <= hour or meethour > 23:meethour = 20
  279. '(You) - How about <<meethour>> o''clock?.'
  280. '(<<$boyA>>) - Okay <<$sveta>>, see you at <<meethour>> o''clock.'
  281. act 'Hang up.':gt 'telefon', 'fin'
  282. end
  283. end
  284. act 'I''m busy today. Call tomorrow.':
  285. cla
  286. bfA -= 1
  287. '(You) - I''m busy today. Call tomorrow.'
  288. if bfa <= 0:bfa = 0 & '(<<$boyA>>) - damn, you''ve fucked me, come on dick.'
  289. if bfa > 0:'(<<$boyA>>) - Okay, I''ll call tomorrow.'
  290. act 'Hang up.':gt 'telefon', 'fin'
  291. end
  292. end
  293. act 'Leave':
  294. cla
  295. bfA = 0
  296. gt 'telefon', 'fin'
  297. end
  298. end
  299. if $ARGS[0] = 'boyB':
  300. cla
  301. clr
  302. ring = 0
  303. ringB = 0
  304. boydayB = day
  305. gs 'stat'
  306. '<<$boyB>> offers a walk.'
  307. act 'Leave':
  308. cla
  309. bfB = 0
  310. gt 'telefon', 'fin'
  311. end
  312. act 'Call tomorrow':
  313. cla
  314. bfB -= 1
  315. if bfB <= 0:bfB = 0 & '<<$boyB>> said he throws you.'
  316. if bfB > 0:'<<$boyB>> angry and hung up.'
  317. gt 'telefon', 'fin'
  318. end
  319. act 'Tonight':
  320. cla
  321. bfB += 1
  322. svidanieB = 1
  323. '<<$boyB>> asked how much he come to your house.'
  324. act 'Let 20 hours.':
  325. cla
  326. 'You are warmly said goodbye and ended the conversation on this.'
  327. act 'Hang up.':gt 'telefon', 'fin'
  328. end
  329. end
  330. end
  331. if $ARGS[0] = 'boyC':
  332. cla
  333. clr
  334. ring = 0
  335. ringC = 0
  336. boydayC = day
  337. gs 'stat'
  338. '<<$boyC>> offers a walk.'
  339. act 'Leave':
  340. cla
  341. bfC = 0
  342. gt 'telefon', 'fin'
  343. end
  344. act 'Call tomorrow':
  345. cla
  346. bfC -= 1
  347. if bfC <= 0:bfC = 0 & '<<$boyC>> said he throws you.'
  348. if bfC > 0:'<<$boyC>> angry and hung up.'
  349. gt 'telefon', 'fin'
  350. end
  351. act 'Tonight':
  352. cla
  353. bfC += 1
  354. svidanieC = 1
  355. '<<$boyC>> asked how much he come to your house.'
  356. act 'Let 20 hours.':
  357. cla
  358. 'You are warmly said goodbye and ended the conversation on this.'
  359. act 'Hang up.':gt 'telefon', 'fin'
  360. end
  361. end
  362. end
  363. if $ARGS[0] = 'Call':
  364. cla
  365. if num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 1:
  366. 'Allo. This firehouse. Speak.'
  367. elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 2:
  368. 'Allo. This is the police. Speak.'
  369. elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 3:
  370. 'Allo. This ambulance. Speak.'
  371. else
  372. 'Dialtone'
  373. end
  374. act 'Hangup':
  375. cla
  376. gt 'telefon', 'fin'
  377. end
  378. end
  379. if $ARGS[0] = '1':
  380. cla
  381. !!if number = 6:end
  382. if number = 5:num1 = 1 & number = 6
  383. if number = 4:num2 = 1 & number = 5
  384. if number = 3:num3 = 1 & number = 4
  385. if number = 2:num4 = 1 & number = 3
  386. if number = 1:num5 = 1 & number = 2
  387. if number = 0:num6 = 1 & number = 1
  388. gt 'telefon', 'start'
  389. end
  390. if $ARGS[0] = '2':
  391. cla
  392. !!if number = 6:end
  393. if number = 5:num1 = 2 & number = 6
  394. if number = 4:num2 = 2 & number = 5
  395. if number = 3:num3 = 2 & number = 4
  396. if number = 2:num4 = 2 & number = 3
  397. if number = 1:num5 = 2 & number = 2
  398. if number = 0:num6 = 2 & number = 1
  399. gt 'telefon', 'start'
  400. end
  401. if $ARGS[0] = '3':
  402. cla
  403. !!if number = 6:end
  404. if number = 5:num1 = 3 & number = 6
  405. if number = 4:num2 = 3 & number = 5
  406. if number = 3:num3 = 3 & number = 4
  407. if number = 2:num4 = 3 & number = 3
  408. if number = 1:num5 = 3 & number = 2
  409. if number = 0:num6 = 3 & number = 1
  410. gt 'telefon', 'start'
  411. end
  412. if $ARGS[0] = '4':
  413. cla
  414. !!if number = 6:end
  415. if number = 5:num1 = 4 & number = 6
  416. if number = 4:num2 = 4 & number = 5
  417. if number = 3:num3 = 4 & number = 4
  418. if number = 2:num4 = 4 & number = 3
  419. if number = 1:num5 = 4 & number = 2
  420. if number = 0:num6 = 4 & number = 1
  421. gt 'telefon', 'start'
  422. end
  423. if $ARGS[0] = '5':
  424. cla
  425. !!if number = 6:end
  426. if number = 5:num1 = 5 & number = 6
  427. if number = 4:num2 = 5 & number = 5
  428. if number = 3:num3 = 5 & number = 4
  429. if number = 2:num4 = 5 & number = 3
  430. if number = 1:num5 = 5 & number = 2
  431. if number = 0:num6 = 5 & number = 1
  432. gt 'telefon', 'start'
  433. end
  434. if $ARGS[0] = '6':
  435. cla
  436. !!if number = 6:end
  437. if number = 5:num1 = 6 & number = 6
  438. if number = 4:num2 = 6 & number = 5
  439. if number = 3:num3 = 6 & number = 4
  440. if number = 2:num4 = 6 & number = 3
  441. if number = 1:num5 = 6 & number = 2
  442. if number = 0:num6 = 6 & number = 1
  443. gt 'telefon', 'start'
  444. end
  445. if $ARGS[0] = '7':
  446. cla
  447. !!if number = 6:end
  448. if number = 5:num1 = 7 & number = 6
  449. if number = 4:num2 = 7 & number = 5
  450. if number = 3:num3 = 7 & number = 4
  451. if number = 2:num4 = 7 & number = 3
  452. if number = 1:num5 = 7 & number = 2
  453. if number = 0:num6 = 7 & number = 1
  454. gt 'telefon', 'start'
  455. end
  456. if $ARGS[0] = '8':
  457. cla
  458. !!if number = 6:end
  459. if number = 5:num1 = 8 & number = 6
  460. if number = 4:num2 = 8 & number = 5
  461. if number = 3:num3 = 8 & number = 4
  462. if number = 2:num4 = 8 & number = 3
  463. if number = 1:num5 = 8 & number = 2
  464. if number = 0:num6 = 8 & number = 1
  465. gt 'telefon', 'start'
  466. end
  467. if $ARGS[0] = '9':
  468. cla
  469. !!if number = 6:end
  470. if number = 5:num1 = 9 & number = 6
  471. if number = 4:num2 = 9 & number = 5
  472. if number = 3:num3 = 9 & number = 4
  473. if number = 2:num4 = 9 & number = 3
  474. if number = 1:num5 = 9 & number = 2
  475. if number = 0:num6 = 9 & number = 1
  476. gt 'telefon', 'start'
  477. end
  478. if $ARGS[0] = '0':
  479. cla
  480. !!if number = 6:end
  481. if number = 5:num1 = 0 & number = 6
  482. if number = 4:num2 = 0 & number = 5
  483. if number = 3:num3 = 0 & number = 4
  484. if number = 2:num4 = 0 & number = 3
  485. if number = 1:num5 = 0 & number = 2
  486. if number = 0:num6 = 0 & number = 1
  487. gt 'telefon', 'start'
  488. end
  489. if $ARGS[0] = 'Reset':
  490. cla
  491. num1 = 0
  492. num2 = 0
  493. num3 = 0
  494. num4 = 0
  495. num5 = 0
  496. num6 = 0
  497. number = 0
  498. gt 'telefon', 'start'
  499. end
  500. if $ARGS[0] = 'fin':
  501. cla
  502. num1 = 0
  503. num2 = 0
  504. num3 = 0
  505. num4 = 0
  506. num5 = 0
  507. num6 = 0
  508. number = 0
  509. gt $locM, $metkaM
  510. !'
  511. if housr = 1 and housrA = 1:
  512. housrA = 0
  513. gt 'korr'
  514. end
  515. '!
  516. end
  517. --- telefon ---------------------------------