1
0

321_telefon 30 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129
  1. # telefon
  2. <<<<<<< 321_telefon
  3. $objmobilaraz = {
  4. cla
  5. set telotvet = RAND(0,10)
  6. '"Yes, I´m listening," said a voice from the speaker.'
  7. act 'Invite to movie':
  8. cla
  9. 'YOU: Come with me to the movies?'
  10. if telotvet > 3:
  11. '<<$telsob>>: Well let an hour in the theater.'
  12. act 'Go': gt 'kinosvid'
  13. end
  14. if telotvet <= 3: dynamic $telotkaz
  15. end
  16. if month > 5 and temper > 20 and osadki < painweather:
  17. act 'Invite a walk in the park':
  18. cla
  19. 'YOU: Let´s go take a walk in the park.'
  20. if telotvet > 3:
  21. '<<$telsob>>: Well let an hour in the park.'
  22. act 'Go': gt 'parksvid'
  23. end
  24. if telotvet <= 3: dynamic $telotkaz
  25. end
  26. end
  27. act 'Invite billiards':
  28. cla
  29. 'YOU: Let´s go to the pool.'
  30. if telotvet > 3:
  31. '<<$telsob>>: Well let an hour of billiards.'
  32. act 'Go': gt 'billsvid'
  33. end
  34. if telotvet <= 3: dynamic $telotkaz
  35. end
  36. act 'Invite a cafe':
  37. cla
  38. 'YOU: Let´s go to the cafe.'
  39. if telotvet > 3:
  40. '<<$telsob>>: Well let an hour in the cafe.'
  41. act 'Go': gt 'kafesvid'
  42. end
  43. if telotvet <= 3: dynamic $telotkaz
  44. end
  45. act 'Invite casino':
  46. cla
  47. 'YOU: Let´s go to the casino´s go.'
  48. if telotvet > 3:
  49. '<<$telsob>>: Well let an hour at the casino.'
  50. act 'Go': gt 'kazinosvid'
  51. end
  52. if telotvet <= 3: dynamic $telotkaz
  53. end
  54. act 'Hangup': gt 'telefon','fin'
  55. =======
  56. $objmobilaraz={
  57. cla
  58. set telotvet=RAND(0,10)
  59. '"Yes_I_Am, listen" came a voice from the speaker.'
  60. act 'Invite to movie':
  61. cla
  62. 'DO_YOU: Come with me to the cinema?'
  63. if telotvet>3:
  64. '<<$telsob>>: Well come on after an hour in the cinema.'
  65. act 'go':gt 'kinosvid'
  66. end
  67. if telotvet<=3:dynamic $telotkaz
  68. end
  69. if month>5 and temper>20 and osadki<painweather:
  70. act 'Invite a walk in the park':
  71. cla
  72. 'DO_YOU: Come take a walk in the park.'
  73. if telotvet>3:
  74. '<<$telsob>>: Well come on after an hour in the park.'
  75. act 'go':gt 'parksvid'
  76. end
  77. if telotvet<=3:dynamic $telotkaz
  78. end
  79. end
  80. act 'Invite pool':
  81. cla
  82. 'DO_YOU: Come pool.'
  83. if telotvet>3:
  84. '<<$telsob>>: Well come on an hour in billiards.'
  85. act 'go':gt 'billsvid'
  86. end
  87. if telotvet<=3:dynamic $telotkaz
  88. end
  89. act 'Invite a cafe':
  90. cla
  91. 'DO_YOU: Let`s go to the cafe.'
  92. if telotvet>3:
  93. '<<$telsob>>: Well come on an hour in a cafe.'
  94. act 'go':gt 'kafesvid'
  95. end
  96. if telotvet<=3:dynamic $telotkaz
  97. end
  98. act 'Invite casino':
  99. cla
  100. 'DO_YOU: Let`s go to the casino `s go.'
  101. if telotvet>3:
  102. '<<$telsob>>: Well come on in an hour at the casino.'
  103. act 'go':gt 'kazinosvid'
  104. end
  105. if telotvet<=3:dynamic $telotkaz
  106. end
  107. act 'hang Up': gt'telefon','fin'
  108. >>>>>>> 321_telefon
  109. }
  110. <<<<<<< 321_telefon
  111. $objmobilarazboy = {
  112. cla
  113. set telotvet = RAND(0,10)
  114. '"Yes, I´m listening," said a voice from the speaker.'
  115. act 'Invite to movie':
  116. cla
  117. 'YOU: Come with me to the movies?'
  118. if telotvet > 3:
  119. '<<$telsob>>: Well let an hour in the theater.'
  120. act 'Go': gt 'svidboy','kinosvid'
  121. end
  122. if telotvet <= 3: dynamic $telotkaz
  123. end
  124. if month > 5 and temper > 20 and osadki < painweather:
  125. act 'Invite a walk in the park':
  126. cla
  127. 'YOU: Let´s go take a walk in the park.'
  128. if telotvet > 3:
  129. '<<$telsob>>: Well let an hour in the park.'
  130. act 'Go': gt 'svidboy','parksvid'
  131. end
  132. if telotvet <= 3: dynamic $telotkazboy
  133. end
  134. end
  135. act 'Invite billiards':
  136. cla
  137. 'YOU: Let´s go to the pool.'
  138. if telotvet > 3:
  139. '<<$telsob>>: Well let an hour of billiards.'
  140. act 'Go': gt 'svidboy','billsvid'
  141. end
  142. if telotvet <= 3: dynamic $telotkazboy
  143. end
  144. act 'Invite a cafe':
  145. cla
  146. 'YOU: Let´s go to the cafe.'
  147. if telotvet > 3:
  148. '<<$telsob>>: Well let an hour in the cafe.'
  149. act 'Go': gt 'svidboy','kafesvid'
  150. end
  151. if telotvet <= 3: dynamic $telotkazboy
  152. end
  153. act 'Hangup': gt 'telefon','fin'
  154. =======
  155. $objmobilarazboy={
  156. cla
  157. set telotvet=RAND(0,10)
  158. '"Yes_I_Am, listen" came a voice from the speaker.'
  159. act 'Invite to movie':
  160. cla
  161. 'DO_YOU: Come with me to the cinema?'
  162. if telotvet>3:
  163. '<<$telsob>>: Well come on after an hour in the cinema.'
  164. act 'go':gt 'svidboy','kinosvid'
  165. end
  166. if telotvet<=3:dynamic $telotkaz
  167. end
  168. if month>5 and temper>20 and osadki<painweather:
  169. act 'Invite a walk in the park':
  170. cla
  171. 'DO_YOU: Come take a walk in the park.'
  172. if telotvet>3:
  173. '<<$telsob>>: Well come on after an hour in the park.'
  174. act 'go':gt 'svidboy','parksvid'
  175. end
  176. if telotvet<=3:dynamic $telotkazboy
  177. end
  178. end
  179. act 'Invite pool':
  180. cla
  181. 'DO_YOU: Come pool.'
  182. if telotvet>3:
  183. '<<$telsob>>: Well come on an hour in billiards.'
  184. act 'go':gt 'svidboy','billsvid'
  185. end
  186. if telotvet<=3:dynamic $telotkazboy
  187. end
  188. act 'Invite a cafe':
  189. cla
  190. 'DO_YOU: Let`s go to the cafe.'
  191. if telotvet>3:
  192. '<<$telsob>>: Well come on an hour in a cafe.'
  193. act 'go':gt 'svidboy','kafesvid'
  194. end
  195. if telotvet<=3:dynamic $telotkazboy
  196. end
  197. act 'hang Up': gt'telefon','fin'
  198. >>>>>>> 321_telefon
  199. }
  200. <<<<<<< 321_telefon
  201. $telotkaz = {
  202. cla
  203. set minut += 10
  204. '<<$telsob>>: Sorry I´m busy, come next time.'
  205. act 'Hangup': gt 'telefon','fin'
  206. =======
  207. $telotkaz={
  208. cla
  209. set minut+=10
  210. '<<$telsob>>: I`m sorry I`m busy, Come next time.'
  211. act 'hang Up': gt'telefon','fin'
  212. >>>>>>> 321_telefon
  213. }
  214. <<<<<<< 321_telefon
  215. $telotkazboy = {
  216. cla
  217. set minut += 10
  218. '<<$boyA>>: Sorry, I´m busy right now, come next time.'
  219. act 'Hangup': gt 'telefon','fin'
  220. =======
  221. $telotkazboy={
  222. cla
  223. set minut+=10
  224. '<<$boyA>>: Sorry , Come next time.'
  225. act 'hang Up': gt'telefon','fin'
  226. >>>>>>> 321_telefon
  227. }
  228. <<<<<<< 321_telefon
  229. if $ARGS[0] = 'start':
  230. =======
  231. if $ARGS[0]='start':
  232. >>>>>>> 321_telefon
  233. cla
  234. clr
  235. <<<<<<< 321_telefon
  236. gs 'stat'
  237. if vladimirday ! day and vladimirQW = 20 and hour = 16: gt 'qwloc2'
  238. if vladimirday ! day and vladimirQW = 25 and hour = 16 and week = 6: gt 'qwloc3'
  239. if vladimirday ! day and vladimirQW = 35 and hour = 16 and week = 6: GT 'qwloc4'
  240. if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! day and hour >= 12: GT 'qwlocdog'
  241. if ring = 0:
  242. if number = 6: '<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></B></center>'
  243. if number = 5: '<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>></B><<num1>></center>'
  244. if number = 4: '<center><B><<num6>><<num5>>-<<num4>><<num3>></B>-<<num2>><<num1>></center>'
  245. if number = 3: '<center><B><<num6>><<num5>>-<<num4>></B><<num3>>-<<num2>><<num1>></center>'
  246. if number = 2: '<center><B><<num6>><<num5>></B>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  247. if number = 1: '<center><B><<num6>></B><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  248. if number = 0: '<center><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  249. *nl
  250. '<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>'
  251. '<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>'
  252. '<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>'
  253. '<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>'
  254. if hour >= 8 and hour <= 19:
  255. if telalla > 0:
  256. act 'Call Alla':
  257. $telsob = 'Alla'
  258. dynamic $objmobilaraz
  259. end
  260. end
  261. if telmasha > 0:
  262. act 'Call Masha':
  263. $telsob = 'Masha'
  264. dynamic $objmobilaraz
  265. end
  266. end
  267. if telkat > 0:
  268. act 'Call Kate':
  269. $telsob = 'Katia'
  270. dynamic $objmobilaraz
  271. end
  272. end
  273. if bfA > 0 and svidanieA = 0:
  274. act 'Call <<$boyA>>': dynamic $objmobilarazboy
  275. end
  276. end
  277. if nastjaqw = 1 and week = 6 and vnesh > 20: act 'Call Nastya': gt 'nastja','pos4'
  278. if nastjaqw = 2 and week ! 6 and zenit = 0 and nastjaday ! day: act 'Chat with Nastya': gt 'nastja', 'pos13'
  279. 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'
  280. if nastjaqw = 5 and week = 6 and nastjaday ! day: act 'Invite Nastya': gt 'nastja','pos22'
  281. if nastjaqw = 6 and nastjaday ! day: act 'Call Nastya': gt 'nastja','pos31'
  282. act 'Hangup':
  283. cla
  284. gt 'telefon','fin'
  285. end
  286. end
  287. if ring = 1:
  288. if ringA = 1:
  289. gt 'telefon','boyA'
  290. exit
  291. end
  292. if ringB = 1:
  293. gt 'telefon','boyB'
  294. exit
  295. end
  296. if ringC = 1:
  297. gt 'telefon','boyC'
  298. exit
  299. end
  300. end
  301. =======
  302. gs'stat'
  303. if vladimirday!day and vladimirQW=20 and hour = 16:gt 'qwloc2'
  304. if vladimirday!day and vladimirQW=25 and hour = 16 and week=6:gt 'qwloc3'
  305. if vladimirday!day and vladimirQW=35 and hour = 16 and week=6:GT 'qwloc4'
  306. if QWdogreiqTimer=0 and QWdogReiq=2 and week=7 and qwdogiventday!day and hour>=12:GT 'qwlocdog'
  307. if ring = 0:
  308. if number = 6:'<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></B></center>'
  309. if number = 5:'<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>></B><<num1>></center>'
  310. if number = 4:'<center><B><<num6>><<num5>>-<<num4>><<num3>></B>-<<num2>><<num1>></center>'
  311. if number = 3:'<center><B><<num6>><<num5>>-<<num4>></B><<num3>>-<<num2>><<num1>></center>'
  312. if number = 2:'<center><B><<num6>><<num5>></B>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  313. if number = 1:'<center><B><<num6>></B><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  314. if number = 0:'<center><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
  315. *nl
  316. '<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>'
  317. '<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>'
  318. '<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>'
  319. '<center><B><a href="exec:GT ''telefon'',''reset''">reset</a> <a href="exec:GT ''telefon'',''0''">0</a> <a href="exec:GT ''telefon'',''challenge''">challenge</a></B></center>'
  320. !etogame
  321. if hour>=8 and hour <=19:
  322. if telalla>0:
  323. act 'call Allais':
  324. $telsob='Alla'
  325. dynamic $objmobilaraz
  326. end
  327. end
  328. if telmasha>0:
  329. act 'call Masha':
  330. $telsob='Masha'
  331. dynamic $objmobilaraz
  332. end
  333. end
  334. if telkat>0:
  335. act 'call Kate':
  336. $telsob='katya'
  337. dynamic $objmobilaraz
  338. end
  339. end
  340. if bfA>0 and svidanieA=0:
  341. act 'call <<$boyA>>':dynamic $objmobilarazboy
  342. end
  343. end
  344. if nastjaqw=1 and week=6 and vnesh>20:act 'call Nastya':gt 'nastja','pos4'
  345. if nastjaqw=2 and week!6 and zenit=0 and nastjaday!day:act 'Chat with Nastya':gt 'nastja', 'pos13'
  346. if hour>=8 and hour <=20 and nastjaqw=2 and week=6 and vnesh>20 and nastjaday!day:act 'call Nastya':gt 'nastja','pos12'
  347. act 'Hang up':
  348. cla
  349. gt'telefon','fin'
  350. end
  351. end
  352. if ring = 1:
  353. if ringA = 1:
  354. gt'telefon','boyA'
  355. exit
  356. end
  357. if ringB = 1:
  358. gt'telefon','boyB'
  359. exit
  360. end
  361. if ringC = 1:
  362. gt'telefon','boyC'
  363. exit
  364. end
  365. end
  366. >>>>>>> 321_telefon
  367. end
  368. <<<<<<< 321_telefon
  369. if $ARGS[0] = 'boyA':
  370. =======
  371. if $ARGS[0]='boyA':
  372. >>>>>>> 321_telefon
  373. cla
  374. clr
  375. <<<<<<< 321_telefon
  376. gs 'stat'
  377. =======
  378. gs'stat'
  379. >>>>>>> 321_telefon
  380. set ring = 0
  381. set ringA = 0
  382. set boydayA = day
  383. <<<<<<< 321_telefon
  384. set svetrand = RAND(0,5)
  385. if svetrand = 0: set $sveta = 'lapulya'
  386. if svetrand = 1: set $sveta = 'Bunny'
  387. if svetrand = 2: set $sveta = 'pussy'
  388. if svetrand = 3: set $sveta = 'small fish'
  389. if svetrand = 4: set $sveta = 'Svetsik'
  390. if svetrand = 5: set $sveta = '<<$name>>'
  391. 'Hi <<$sveta>> is <<$boyA>> how´s it going?'
  392. act 'Normally':
  393. cla
  394. '(You) - normally, and you have both?'
  395. '(<<$boyA>>) - just great, that´s just miss you, can meet today?'
  396. if pregtime <= dayA and pregtime >= 7 and pregtalk = 0:
  397. act 'Honey, you will soon become a dad.':
  398. cla
  399. pregtalk = 1
  400. '(You) - Honey, you will soon become a dad.'
  401. if harakBoyA = 0:
  402. if bfA >= 90:
  403. '(<<$boyA>>) - This is wonderful! We will soon be addition.'
  404. set love = 1
  405. 'You started talking about cohabitation. What <<$boyA>> told you that it is in principle not against, but first he wants you to meet his parents.'
  406. 'He warns you that my mother is very demanding and rigorous, <<$boyA>> says that he loves her mother and does not want to upset her. Therefore, you must look gorgeous, the dress from a boutique, well-groomed and curled hair, cosmetics in moderation.'
  407. 'At the next vstreche once you will be totally ready <<$boyA>> will take you to their parents.'
  408. act 'Hang up.': gt 'telefon','fin'
  409. act 'Meet tonight':
  410. cla
  411. set svidanieA = 1
  412. '(You) - can be found in the evening.'
  413. '(<<$boyA>>) - What time I come to your house?'
  414. act 'Call time.':
  415. cla
  416. meetday = daystart
  417. meethour = input ("Name the hour in which the guy to come. now <<hour>> hour, you can only assign a greater number of")
  418. if meethour <= hour or meethour > 23: meethour = 20
  419. '(You) - Do it in 20 hours.'
  420. '(<<$boyA>>) - Okay, <<$sveta>> then to <<meethour>> hours.'
  421. $meetloc[0] = $HouseLocation
  422. act 'Hang up.': gt 'telefon','fin'
  423. end
  424. end
  425. end
  426. if bfA < 90:
  427. '(<<$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.'
  428. money += 20000
  429. act 'Hang up.': gt 'telefon','fin'
  430. end
  431. end
  432. if harakBoyA = 1:
  433. '(<<$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.'
  434. money += 20000
  435. act 'Hang up.': gt 'telefon','fin'
  436. end
  437. if harakBoyA = 2:
  438. '(<<$boyA>>) - What? Yes you ohuel! Somewhere tucked pussy and now dumped on me. Come on you dick.'
  439. set bfA = 0
  440. pregtalk = 0
  441. act 'Hang up.': gt 'telefon','fin'
  442. end
  443. end
  444. end
  445. if pregtime > dayA and pregtime >= 7 and pregtalk = 0:
  446. act 'Honey, you will soon become a dad.':
  447. cla
  448. '(You) - Honey, you will soon become a dad.'
  449. '(<<$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.'
  450. set bfA = 0
  451. act 'Hang up.': gt 'telefon','fin'
  452. end
  453. end
  454. if week > 1 and week < 5 and workKafe = 1:
  455. act 'Oh, sorry, I´m working today.':
  456. cla
  457. '(You) - Oh, sorry, I´m working today.'
  458. '(<<$boyA>>) - okay, call tomorrow.'
  459. act 'Hang up.': gt 'telefon','fin'
  460. end
  461. end
  462. act 'Tonight':
  463. cla
  464. set bfA += 1
  465. set svidanieA = 1
  466. meetday = daystart
  467. '(You) - can be found in the evening.'
  468. '(<<$boyA>>) - What time I come to your house?'
  469. act 'Call time.':
  470. cla
  471. meethour = input ("Name the hour in which the guy to come. Now <<hour>> hour, you can only assign a greater number of single-digit")
  472. if meethour <= hour or meethour > 23: meethour = 20
  473. '(You) - Come on in <<meethour>> hours.'
  474. '(<<$boyA>>) - Okay, <<$sveta>> then to <<meethour>> hours.'
  475. $meetloc[0] = $HouseLocation
  476. act 'Hang up.': gt 'telefon','fin'
  477. end
  478. end
  479. act 'I´m busy today. Call tomorrow.':
  480. cla
  481. set bfA -= 1
  482. '(You) - I´m busy today. Call tomorrow.'
  483. if bfa <= 0: set bfa = 0 & '(<<$boyA>>) - damn, you´ve fucked me, come on dick.'
  484. if bfa > 0: '(<<$boyA>>) - okay, until then.'
  485. act 'Hang up.': gt 'telefon','fin'
  486. end
  487. end
  488. act 'Leave':
  489. cla
  490. set bfA = 0
  491. gt 'telefon','fin'
  492. end
  493. =======
  494. set svetrand = RAND (0,5)
  495. if svetrand = 0:set $sveta = 'lapulya'
  496. if svetrand = 1:set $sveta = 'bunny'
  497. if svetrand = 2:set $sveta = 'pussy'
  498. if svetrand = 3:set $sveta = 'small_fish'
  499. if svetrand = 4:set $sveta = 'Svetsik'
  500. if svetrand = 5:set $sveta = 'Sveta'
  501. 'hello <<$sveta>> these_are <<$boyA>> how`s it going?'
  502. act 'normally':
  503. cla
  504. '(Do_You) - normally, as you like?'
  505. '(<<$boyA>>) - just great, Here are just miss you, can meet today?'
  506. if pregtime<=dayA and pregtime>=7 and pregtalk=0:
  507. act 'My_Dear, you`ll be a dad.':
  508. cla
  509. pregtalk=1
  510. '(Do_You) - My_Dear, you`ll be a dad.'
  511. if harakBoyA = 0:
  512. if bfA>=90:
  513. '(<<$boyA>>) - It`s wonderful! We will soon be adding.'
  514. set love = 1
  515. 'You started talking about cohabitation. what <<$boyA>> told you, In principle it, do not mind, but first he wants to introduce you to my parents.'
  516. 'He warns you, Mom is very demanding and strict, <<$boyA>> speaks, that he is very fond of his mother and does not want to upset her. So you have to look chic, only dress boutique, groomed and curled hair, cosmetics in moderation.'
  517. 'At the next meetinge, as soon as you `re ready to fully <<$boyA>> will take you to your parents.'
  518. act 'Hang up.':gt'telefon','fin'
  519. act 'Meet tonight':
  520. cla
  521. set svidanieA = 1
  522. '(Do_You) - You can meet in the evening.'
  523. '(<<$boyA>>) - How much to come to your house?'
  524. act 'call time.':
  525. cla
  526. meetday=daystart
  527. meethour = input ("What are the hours in which the guy to come. At_The_Moment <<hour>> h, You can only assign a greater number of")
  528. if meethour<=hour or meethour>23:meethour=20
  529. '(Do_You) - Come on in 20 hours.'
  530. '(<<$boyA>>) - Fair_Enough, <<$sveta>> then to <<meethour>> hours.'
  531. act 'Hang up.':gt'telefon','fin'
  532. end
  533. end
  534. end
  535. if bfA<90:
  536. '(<<$boyA>>) - I`m not yet ready to become a dad. I`ll give you money for an abortion. Go and get rid of the child.'
  537. money+=20000
  538. act 'Hang up.':gt'telefon','fin'
  539. end
  540. end
  541. if harakBoyA = 1:
  542. '(<<$boyA>>) - I`m not yet ready to become a dad. I`ll give you money for an abortion. Go and get rid of the child.'
  543. money+=20000
  544. act 'Hang up.':gt'telefon','fin'
  545. end
  546. if harakBoyA = 2:
  547. '(<<$boyA>>) - what? Yes you ohuel! Somewhere sprained pussy, and now for me to dump. You go on a dick.'
  548. set bfA = 0
  549. pregtalk=0
  550. act 'Hang up.':gt'telefon','fin'
  551. end
  552. end
  553. end
  554. if pregtime>dayA and pregtime>=7 and pregtalk=0:
  555. act 'My_Dear, you`ll be a dad.':
  556. cla
  557. '(Do_You) - My_Dear, you`ll be a dad.'
  558. '(<<$boyA>>) - How the fuck dad? We meet with you less, What are you pregnant. Sprained whore someone, here and go to him. all. I can no longer call. adieu.'
  559. set bfA = 0
  560. act 'Hang up.':gt'telefon','fin'
  561. end
  562. end
  563. if week > 1 and week < 5 and workKafe = 1:
  564. act 'oh, I`m_sorry, I work today.':
  565. cla
  566. '(Do_You) - oh, I`m_sorry, I work today.'
  567. '(<<$boyA>>) - okay, call tomorrow.'
  568. act 'Hang up.':gt'telefon','fin'
  569. end
  570. end
  571. act 'tonight':
  572. cla
  573. set bfA = bfA + 1
  574. set svidanieA = 1
  575. meetday=daystart
  576. '(Do_You) - You can meet in the evening.'
  577. '(<<$boyA>>) - How much to come to your house?'
  578. act 'call time.':
  579. cla
  580. meethour = input ("What are the hours in which the guy to come. At_The_Moment <<hour>> h, You can only assign a greater number of single-digit")
  581. if meethour<=hour or meethour>23:meethour=20
  582. '(Do_You) - Come on in <<meethour>> hours.'
  583. '(<<$boyA>>) - Fair_Enough, <<$sveta>> then to <<meethour>> hours.'
  584. act 'Hang up.':gt'telefon','fin'
  585. end
  586. end
  587. act 'I`m busy today. Call tomorrow.':
  588. cla
  589. set bfA = bfA - 1
  590. '(Do_You) - I`m busy today. Call tomorrow.'
  591. if bfa <= 0:set bfa = 0&'(<<$boyA>>) - whore, you have my Jam, Come on dick.'
  592. if bfa > 0:'(<<$boyA>>) - okay, until then.'
  593. act 'Hang up.':gt'telefon','fin'
  594. end
  595. end
  596. act 'leave':
  597. cla
  598. set bfA = 0
  599. gt'telefon','fin'
  600. end
  601. >>>>>>> 321_telefon
  602. end
  603. <<<<<<< 321_telefon
  604. if $ARGS[0] = 'boyB':
  605. =======
  606. if $ARGS[0]='boyB':
  607. >>>>>>> 321_telefon
  608. cla
  609. clr
  610. <<<<<<< 321_telefon
  611. gs 'stat'
  612. =======
  613. gs'stat'
  614. >>>>>>> 321_telefon
  615. set ring = 0
  616. set ringB = 0
  617. set boydayB = day
  618. '<<$boyB>> offers a walk.'
  619. <<<<<<< 321_telefon
  620. act 'Leave':
  621. cla
  622. set bfB = 0
  623. gt 'telefon','fin'
  624. end
  625. act 'Call tomorrow':
  626. cla
  627. set bfB -= 1
  628. if bfB <= 0: set bfB = 0 & '<<$boyB>> said he throws you.'
  629. if bfB > 0: '<<$boyB>> angry and hung up.'
  630. gt 'telefon','fin'
  631. end
  632. act 'Tonight':
  633. cla
  634. set bfB += 1
  635. set svidanieB = 1
  636. '<<$boyB>> asked how much he come to your house.'
  637. act 'Let 20 hours.':
  638. cla
  639. 'You are warmly said goodbye and ended the conversation on this.'
  640. $meetloc[1] = $HouseLocation
  641. act 'Hang up.': gt 'telefon','fin'
  642. end
  643. end
  644. =======
  645. act 'leave':
  646. cla
  647. set bfB = 0
  648. gt'telefon','fin'
  649. end
  650. act 'Call tomorrow':
  651. cla
  652. set bfB = bfB - 1
  653. if bfB <= 0:set bfB = 0&'<<$boyB>> said, he throws you.'
  654. if bfB > 0:'<<$boyB>> angry and hung up.'
  655. gt'telefon','fin'
  656. end
  657. act 'tonight':
  658. cla
  659. set bfB = bfB + 1
  660. set svidanieB = 1
  661. '<<$boyB>> asks how much it come to your home.'
  662. act 'Come on in 20 hours.':
  663. cla
  664. 'You are warmly said goodbye and ended the conversation on this.'
  665. act 'Hang up.':gt'telefon','fin'
  666. end
  667. end
  668. >>>>>>> 321_telefon
  669. end
  670. <<<<<<< 321_telefon
  671. if $ARGS[0] = 'boyC':
  672. =======
  673. if $ARGS[0]='boyC':
  674. >>>>>>> 321_telefon
  675. cla
  676. clr
  677. <<<<<<< 321_telefon
  678. gs 'stat'
  679. =======
  680. gs'stat'
  681. >>>>>>> 321_telefon
  682. set ring = 0
  683. set ringC = 0
  684. set boydayC = day
  685. '<<$boyC>> offers a walk.'
  686. <<<<<<< 321_telefon
  687. act 'Leave':
  688. cla
  689. set bfC = 0
  690. gt 'telefon','fin'
  691. end
  692. act 'Call tomorrow':
  693. cla
  694. set bfC -= 1
  695. if bfC <= 0: set bfC = 0 & '<<$boyC>> said he throws you.'
  696. if bfC > 0: '<<$boyC>> angry and hung up.'
  697. gt 'telefon','fin'
  698. end
  699. act 'Tonight':
  700. cla
  701. set bfC += 1
  702. set svidanieC = 1
  703. '<<$boyC>> asked how much he come to your house.'
  704. act 'Let 20 hours.':
  705. cla
  706. 'You are warmly said goodbye and ended the conversation on this.'
  707. $meetloc[2] = $HouseLocation
  708. act 'Hang up.': gt 'telefon','fin'
  709. end
  710. end
  711. =======
  712. act 'leave':
  713. cla
  714. set bfC = 0
  715. gt'telefon','fin'
  716. end
  717. act 'Call tomorrow':
  718. cla
  719. set bfC = bfC - 1
  720. if bfC <= 0:set bfC = 0&'<<$boyC>> said, he throws you.'
  721. if bfC > 0:'<<$boyC>> angry and hung up.'
  722. gt'telefon','fin'
  723. end
  724. act 'tonight':
  725. cla
  726. set bfC = bfC + 1
  727. set svidanieC = 1
  728. '<<$boyC>> asks how much it come to your home.'
  729. act 'Come on in 20 hours.':
  730. cla
  731. 'You are warmly said goodbye and ended the conversation on this.'
  732. act 'Hang up.':gt'telefon','fin'
  733. end
  734. end
  735. >>>>>>> 321_telefon
  736. end
  737. <<<<<<< 321_telefon
  738. if $ARGS[0] = 'Call':
  739. cla
  740. if num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 1:
  741. 'Allo. This firehouse. Speak.'
  742. elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 2:
  743. 'Allo. This is the police. Speak.'
  744. elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 3:
  745. 'Allo. This ambulance. Speak.'
  746. else
  747. 'Dialtone'
  748. end
  749. act 'Hangup':
  750. cla
  751. gt 'telefon','fin'
  752. end
  753. =======
  754. if $ARGS[0]='challenge':
  755. cla
  756. if num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 1:
  757. 'Hello. This fire station. speak.'
  758. elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 2:
  759. 'Hello. This police. speak.'
  760. elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 3:
  761. 'Hello. This soon. speak.'
  762. else
  763. 'long beep'
  764. end
  765. act 'Hang up':
  766. cla
  767. gt'telefon','fin'
  768. end
  769. >>>>>>> 321_telefon
  770. end
  771. <<<<<<< 321_telefon
  772. if $ARGS[0] = '1':
  773. cla
  774. if number = 6:
  775. end
  776. if number = 5: set num1 = 1 & set number = 6
  777. if number = 4: set num2 = 1 & set number = 5
  778. if number = 3: set num3 = 1 & set number = 4
  779. if number = 2: set num4 = 1 & set number = 3
  780. if number = 1: set num5 = 1 & set number = 2
  781. if number = 0: set num6 = 1 & set number = 1
  782. gt 'telefon','start'
  783. =======
  784. if $ARGS[0]='1':
  785. cla
  786. if number = 6:
  787. end
  788. if number = 5:set num1 = 1&set number = 6
  789. if number = 4:set num2 = 1&set number = 5
  790. if number = 3:set num3 = 1&set number = 4
  791. if number = 2:set num4 = 1&set number = 3
  792. if number = 1:set num5 = 1&set number = 2
  793. if number = 0:set num6 = 1&set number = 1
  794. gt'telefon','start'
  795. >>>>>>> 321_telefon
  796. end
  797. <<<<<<< 321_telefon
  798. if $ARGS[0] = '2':
  799. cla
  800. if number = 6:
  801. end
  802. if number = 5: set num1 = 2 & set number = 6
  803. if number = 4: set num2 = 2 & set number = 5
  804. if number = 3: set num3 = 2 & set number = 4
  805. if number = 2: set num4 = 2 & set number = 3
  806. if number = 1: set num5 = 2 & set number = 2
  807. if number = 0: set num6 = 2 & set number = 1
  808. gt 'telefon','start'
  809. =======
  810. if $ARGS[0]='2':
  811. cla
  812. if number = 6:
  813. end
  814. if number = 5:set num1 = 2&set number = 6
  815. if number = 4:set num2 = 2&set number = 5
  816. if number = 3:set num3 = 2&set number = 4
  817. if number = 2:set num4 = 2&set number = 3
  818. if number = 1:set num5 = 2&set number = 2
  819. if number = 0:set num6 = 2&set number = 1
  820. gt'telefon','start'
  821. >>>>>>> 321_telefon
  822. end
  823. <<<<<<< 321_telefon
  824. if $ARGS[0] = '3':
  825. cla
  826. if number = 6:
  827. end
  828. if number = 5: set num1 = 3 & set number = 6
  829. if number = 4: set num2 = 3 & set number = 5
  830. if number = 3: set num3 = 3 & set number = 4
  831. if number = 2: set num4 = 3 & set number = 3
  832. if number = 1: set num5 = 3 & set number = 2
  833. if number = 0: set num6 = 3 & set number = 1
  834. gt 'telefon','start'
  835. =======
  836. if $ARGS[0]='3':
  837. cla
  838. if number = 6:
  839. end
  840. if number = 5:set num1 = 3&set number = 6
  841. if number = 4:set num2 = 3&set number = 5
  842. if number = 3:set num3 = 3&set number = 4
  843. if number = 2:set num4 = 3&set number = 3
  844. if number = 1:set num5 = 3&set number = 2
  845. if number = 0:set num6 = 3&set number = 1
  846. gt'telefon','start'
  847. >>>>>>> 321_telefon
  848. end
  849. <<<<<<< 321_telefon
  850. if $ARGS[0] = '4':
  851. cla
  852. if number = 6:
  853. end
  854. if number = 5: set num1 = 4 & set number = 6
  855. if number = 4: set num2 = 4 & set number = 5
  856. if number = 3: set num3 = 4 & set number = 4
  857. if number = 2: set num4 = 4 & set number = 3
  858. if number = 1: set num5 = 4 & set number = 2
  859. if number = 0: set num6 = 4 & set number = 1
  860. gt 'telefon','start'
  861. =======
  862. if $ARGS[0]='4':
  863. cla
  864. if number = 6:
  865. end
  866. if number = 5:set num1 = 4&set number = 6
  867. if number = 4:set num2 = 4&set number = 5
  868. if number = 3:set num3 = 4&set number = 4
  869. if number = 2:set num4 = 4&set number = 3
  870. if number = 1:set num5 = 4&set number = 2
  871. if number = 0:set num6 = 4&set number = 1
  872. gt'telefon','start'
  873. >>>>>>> 321_telefon
  874. end
  875. <<<<<<< 321_telefon
  876. if $ARGS[0] = '5':
  877. cla
  878. if number = 6:
  879. end
  880. if number = 5: set num1 = 5 & set number = 6
  881. if number = 4: set num2 = 5 & set number = 5
  882. if number = 3: set num3 = 5 & set number = 4
  883. if number = 2: set num4 = 5 & set number = 3
  884. if number = 1: set num5 = 5 & set number = 2
  885. if number = 0: set num6 = 5 & set number = 1
  886. gt 'telefon','start'
  887. =======
  888. if $ARGS[0]='5':
  889. cla
  890. if number = 6:
  891. end
  892. if number = 5:set num1 = 5&set number = 6
  893. if number = 4:set num2 = 5&set number = 5
  894. if number = 3:set num3 = 5&set number = 4
  895. if number = 2:set num4 = 5&set number = 3
  896. if number = 1:set num5 = 5&set number = 2
  897. if number = 0:set num6 = 5&set number = 1
  898. gt'telefon','start'
  899. >>>>>>> 321_telefon
  900. end
  901. <<<<<<< 321_telefon
  902. if $ARGS[0] = '6':
  903. cla
  904. if number = 6:
  905. end
  906. if number = 5: set num1 = 6 & set number = 6
  907. if number = 4: set num2 = 6 & set number = 5
  908. if number = 3: set num3 = 6 & set number = 4
  909. if number = 2: set num4 = 6 & set number = 3
  910. if number = 1: set num5 = 6 & set number = 2
  911. if number = 0: set num6 = 6 & set number = 1
  912. gt 'telefon','start'
  913. =======
  914. if $ARGS[0]='6':
  915. cla
  916. if number = 6:
  917. end
  918. if number = 5:set num1 = 6&set number = 6
  919. if number = 4:set num2 = 6&set number = 5
  920. if number = 3:set num3 = 6&set number = 4
  921. if number = 2:set num4 = 6&set number = 3
  922. if number = 1:set num5 = 6&set number = 2
  923. if number = 0:set num6 = 6&set number = 1
  924. gt'telefon','start'
  925. >>>>>>> 321_telefon
  926. end
  927. <<<<<<< 321_telefon
  928. if $ARGS[0] = '7':
  929. cla
  930. if number = 6:
  931. end
  932. if number = 5: set num1 = 7 & set number = 6
  933. if number = 4: set num2 = 7 & set number = 5
  934. if number = 3: set num3 = 7 & set number = 4
  935. if number = 2: set num4 = 7 & set number = 3
  936. if number = 1: set num5 = 7 & set number = 2
  937. if number = 0: set num6 = 7 & set number = 1
  938. gt 'telefon','start'
  939. =======
  940. if $ARGS[0]='7':
  941. cla
  942. if number = 6:
  943. end
  944. if number = 5:set num1 = 7&set number = 6
  945. if number = 4:set num2 = 7&set number = 5
  946. if number = 3:set num3 = 7&set number = 4
  947. if number = 2:set num4 = 7&set number = 3
  948. if number = 1:set num5 = 7&set number = 2
  949. if number = 0:set num6 = 7&set number = 1
  950. gt'telefon','start'
  951. >>>>>>> 321_telefon
  952. end
  953. <<<<<<< 321_telefon
  954. if $ARGS[0] = '8':
  955. cla
  956. if number = 6:
  957. end
  958. if number = 5: set num1 = 8 & set number = 6
  959. if number = 4: set num2 = 8 & set number = 5
  960. if number = 3: set num3 = 8 & set number = 4
  961. if number = 2: set num4 = 8 & set number = 3
  962. if number = 1: set num5 = 8 & set number = 2
  963. if number = 0: set num6 = 8 & set number = 1
  964. gt 'telefon','start'
  965. =======
  966. if $ARGS[0]='8':
  967. cla
  968. if number = 6:
  969. end
  970. if number = 5:set num1 = 8&set number = 6
  971. if number = 4:set num2 = 8&set number = 5
  972. if number = 3:set num3 = 8&set number = 4
  973. if number = 2:set num4 = 8&set number = 3
  974. if number = 1:set num5 = 8&set number = 2
  975. if number = 0:set num6 = 8&set number = 1
  976. gt'telefon','start'
  977. >>>>>>> 321_telefon
  978. end
  979. <<<<<<< 321_telefon
  980. if $ARGS[0] = '9':
  981. cla
  982. if number = 6:
  983. end
  984. if number = 5: set num1 = 9 & set number = 6
  985. if number = 4: set num2 = 9 & set number = 5
  986. if number = 3: set num3 = 9 & set number = 4
  987. if number = 2: set num4 = 9 & set number = 3
  988. if number = 1: set num5 = 9 & set number = 2
  989. if number = 0: set num6 = 9 & set number = 1
  990. gt 'telefon','start'
  991. =======
  992. if $ARGS[0]='9':
  993. cla
  994. if number = 6:
  995. end
  996. if number = 5:set num1 = 9&set number = 6
  997. if number = 4:set num2 = 9&set number = 5
  998. if number = 3:set num3 = 9&set number = 4
  999. if number = 2:set num4 = 9&set number = 3
  1000. if number = 1:set num5 = 9&set number = 2
  1001. if number = 0:set num6 = 9&set number = 1
  1002. gt'telefon','start'
  1003. >>>>>>> 321_telefon
  1004. end
  1005. <<<<<<< 321_telefon
  1006. if $ARGS[0] = '0':
  1007. cla
  1008. if number = 6:
  1009. end
  1010. if number = 5: set num1 = 0 & set number = 6
  1011. if number = 4: set num2 = 0 & set number = 5
  1012. if number = 3: set num3 = 0 & set number = 4
  1013. if number = 2: set num4 = 0 & set number = 3
  1014. if number = 1: set num5 = 0 & set number = 2
  1015. if number = 0: set num6 = 0 & set number = 1
  1016. gt 'telefon','start'
  1017. =======
  1018. if $ARGS[0]='0':
  1019. cla
  1020. if number = 6:
  1021. end
  1022. if number = 5:set num1 = 0&set number = 6
  1023. if number = 4:set num2 = 0&set number = 5
  1024. if number = 3:set num3 = 0&set number = 4
  1025. if number = 2:set num4 = 0&set number = 3
  1026. if number = 1:set num5 = 0&set number = 2
  1027. if number = 0:set num6 = 0&set number = 1
  1028. gt'telefon','start'
  1029. >>>>>>> 321_telefon
  1030. end
  1031. <<<<<<< 321_telefon
  1032. if $ARGS[0] = 'Reset':
  1033. =======
  1034. if $ARGS[0]='reset':
  1035. >>>>>>> 321_telefon
  1036. cla
  1037. set num1 = 0
  1038. set num2 = 0
  1039. set num3 = 0
  1040. set num4 = 0
  1041. set num5 = 0
  1042. set num6 = 0
  1043. set number = 0
  1044. <<<<<<< 321_telefon
  1045. gt 'telefon','start'
  1046. =======
  1047. gt'telefon','start'
  1048. >>>>>>> 321_telefon
  1049. end
  1050. <<<<<<< 321_telefon
  1051. if $ARGS[0] = 'fin':
  1052. =======
  1053. if $ARGS[0]='fin':
  1054. >>>>>>> 321_telefon
  1055. cla
  1056. set num1 = 0
  1057. set num2 = 0
  1058. set num3 = 0
  1059. set num4 = 0
  1060. set num5 = 0
  1061. set num6 = 0
  1062. set number = 0
  1063. gt $locM, $metkaM
  1064. <<<<<<< 321_telefon
  1065. !'if housr = 1 and housrA = 1:
  1066. set housrA = 0
  1067. gt 'korr'
  1068. end'
  1069. end
  1070. =======
  1071. !'if housr = 1 and housrA = 1:
  1072. set housrA = 0
  1073. gt'korr'
  1074. end'
  1075. end
  1076. >>>>>>> 321_telefon
  1077. --- telefon ---------------------------------