telefon 8.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408
  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. '<<$boyA>>, "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 nastjaqw = 1 and week = 6 and vnesh > 80:
  18. gt 'nastja', 'pos4'
  19. elseif nastjaqw = 2 and week ! 6 and zenit = 0 and nastjaday ! daystart:
  20. gt 'nastja', 'pos13'
  21. elseif hour >= 8 and hour <= 20 and nastjaqw = 2 and week = 6 and vnesh > 80 and nastjaday ! daystart:
  22. gt 'nastja', 'pos12'
  23. elseif nastjaqw = 5 and week = 6 and nastjaday ! daystart:
  24. gt 'nastja', 'pos22'
  25. elseif nastjaqw = 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 osadki < painweather:
  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] = 'mobilarazboy':
  96. cls
  97. cla
  98. gs'din_bad'
  99. $caller = '<<$BoyA>>'
  100. $callerid = 'images/pic/boy_face/'+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 osadki < painweather:
  106. act 'Invite to the park':
  107. cla
  108. '"Let''s go for a walk in the park."'
  109. if telotvet > 3:
  110. '<<$telsob>>, "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. '<<$telsob>>, "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. '<<$telsob>>, "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. '<<$telsob>>, "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] = 'boyA':
  150. cla
  151. clr
  152. ring = 0
  153. ringA = 0
  154. boydayA = daystart
  155. gs 'stat'
  156. dynamic $phone_call_receive
  157. svetrand = rand(0, 5)
  158. if svetrand = 0:$sveta = 'cutie'
  159. if svetrand = 1:$sveta = 'honey'
  160. if svetrand = 2:$sveta = 'sweetie'
  161. if svetrand = 3:$sveta = 'baby'
  162. if svetrand = 4:$sveta = 'hot stuff'
  163. if svetrand = 5:$sveta = '<<$name>>'
  164. 'Hey <<$sveta>>, it''s me, <<$boyA>>. How''s it going?'
  165. act 'Normally':
  166. cla
  167. '"Pretty good, you?"'
  168. '<<$boyA>>, "Great, but I kind of miss you, can we meet today?"'
  169. if pregtime <= dayA and knowpreg = 1 and pregtalk = 0:
  170. act 'Tell him he''s going to be a dad':
  171. cla
  172. pregtalk = 1
  173. '"Honey, I''m pregnant with your child."'
  174. if harakBoyA = 0:
  175. if bfA >= 90:
  176. love = 1
  177. '<<$boyA>>, "This is wonderful! We have to celebrate!"'
  178. 'You start talking about living together. <<$boyA>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
  179. 'He warns you that his mother is very demanding and rigorous. <<$boyA>> 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.'
  180. 'When you are totally ready <<$boyA>> will take you to their parents.'
  181. act 'Hang up':gt 'telefon', 'fin'
  182. act 'Meet tonight':
  183. cla
  184. svidanieA = 1
  185. '"How about this evening?"'
  186. '<<$boyA>>, "Sounds great! When can I come to pick you up?"'
  187. act 'Pick a time':
  188. cla
  189. meetday = daystart
  190. meethour = input ("When do you want to be picked up? It is now <<hour>> c''clock.")
  191. if meethour <= hour or meethour > 23:meethour = 20
  192. '"How about <<meethour>> o''clock?"'
  193. '<<$boyA>>, "Okay <<$sveta>>, see you at <<meethour>> o''clock."'
  194. act 'Hang up':gt 'telefon', 'fin'
  195. end
  196. end
  197. elseif bfA < 90:
  198. money += 20000
  199. '<<$boyA>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
  200. act 'Hang up':gt 'telefon', 'fin'
  201. end
  202. elseif harakBoyA = 1:
  203. money += 20000
  204. '<<$boyA>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
  205. act 'Hang up':gt 'telefon', 'fin'
  206. elseif harakBoyA = 2:
  207. bfA = 0
  208. pregtalk = 0
  209. '<<$boyA>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
  210. act 'Hang up':gt 'telefon', 'fin'
  211. end
  212. end
  213. elseif pregtime > dayA and knowpreg = 1 and pregtalk = 0:
  214. act 'Honey, you will soon become a dad':
  215. cla
  216. bfA = 0
  217. '"Honey, I''m pregnant with your child."'
  218. '<<$boyA>>, "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."'
  219. act 'Hang up.':gt 'telefon', 'fin'
  220. end
  221. elseif week > 1 and week < 5 and workKafe = 1:
  222. act 'Sorry, I''m working today':
  223. cla
  224. '"Sorry, I''m working today."'
  225. '<<$boyA>>, "Okay, I''ll call tomorrow."'
  226. act 'Hang up':gt 'telefon', 'fin'
  227. end
  228. end
  229. act 'Tonight':
  230. cla
  231. bfA += 1
  232. svidanieA = 1
  233. meetday = daystart
  234. '"How about this evening?"'
  235. '<<$boyA>>, "Sounds great! When can I come to pick you up?"'
  236. act 'Pick a time':
  237. cla
  238. meethour = input ("When do you want to be picked up. It is now <<hour>> c''clock.")
  239. if meethour <= hour or meethour > 23:meethour = 20
  240. '"How about <<meethour>> o''clock?."'
  241. '<<$boyA>>, "Okay <<$sveta>>, see you at <<meethour>> o''clock."'
  242. act 'Hang up':gt 'telefon', 'fin'
  243. end
  244. end
  245. act 'Maybe tomorrow':
  246. cla
  247. bfA -= 1
  248. '"I''m busy today. Call tomorrow."'
  249. if bfa <= 0:bfa = 0 & '<<$boyA>>, Are you fucking me, you know what. Suck my dick.'
  250. if bfa > 0:'(<<$boyA>>) - Okay, I''ll call tomorrow.'
  251. act 'Hang up':gt 'telefon', 'fin'
  252. end
  253. end
  254. act 'Leave':
  255. cla
  256. bfA = 0
  257. gt 'telefon', 'fin'
  258. end
  259. end
  260. if $ARGS[0] = 'boyB':
  261. cla
  262. clr
  263. ring = 0
  264. ringB = 0
  265. boydayB = daystart
  266. gs 'stat'
  267. '<<$boyB>> wants to go for a walk.'
  268. act 'Leave':
  269. cla
  270. bfB = 0
  271. gt 'telefon', 'fin'
  272. end
  273. act 'Call tomorrow':
  274. cla
  275. bfB -= 1
  276. if bfB <= 0:bfB = 0 & '<<$boyB>> dumps you.'
  277. if bfB > 0:'<<$boyB>> is angry and hangs up.'
  278. gt 'telefon', 'fin'
  279. end
  280. act 'Tonight':
  281. cla
  282. bfB += 1
  283. svidanieB = 1
  284. '<<$boyB>> asks when he should come to your house.'
  285. act 'How about 20 hours':
  286. cla
  287. 'You say goodbye warmly and end the conversation.'
  288. act 'Hang up':gt 'telefon', 'fin'
  289. end
  290. end
  291. end
  292. if $ARGS[0] = 'boyC':
  293. cla
  294. clr
  295. ring = 0
  296. ringC = 0
  297. boydayC = daystart
  298. gs 'stat'
  299. '<<$boyC>> wants to go for a walk.'
  300. act 'Leave':
  301. cla
  302. bfC = 0
  303. gt 'telefon', 'fin'
  304. end
  305. act 'Call tomorrow':
  306. cla
  307. bfC -= 1
  308. if bfC <= 0:bfC = 0 & '<<$boyC>> dumps you.'
  309. if bfC > 0:'<<$boyC>> is angry and hangs up.'
  310. gt 'telefon', 'fin'
  311. end
  312. act 'Tonight':
  313. cla
  314. bfC += 1
  315. svidanieC = 1
  316. '<<$boyC>> asks when he should come to your house.'
  317. act 'How about 20 hours':
  318. cla
  319. 'You say goodbye warmly and end the conversation.'
  320. act 'Hang up.':gt 'telefon', 'fin'
  321. end
  322. end
  323. end
  324. if $ARGS[0] = 'fin':
  325. cla
  326. gt $locM, $metkaM
  327. end
  328. --- telefon ---------------------------------