# telefon $objmobilaraz = { cla telotvet = rand(0, 10) '"Yes, I''m listening, " said a voice from the speaker.' if month > 5 and temper > 20 and osadki < painweather: act 'Invite a walk in the park': cla 'YOU:Let''s go take a walk in the park.' if telotvet > 3: '<<$telsob>>:Well let an hour in the park.' act 'Go':gt 'parksvid' elseif telotvet <= 3: dynamic $telotkaz end end end act 'Invite to movie': cla 'YOU:Come with me to the movies?' if telotvet > 3: '<<$telsob>>:Well let an hour in the theater.' act 'Go':gt 'kinosvid' elseif telotvet <= 3: dynamic $telotkaz end end act 'Invite billiards': cla 'YOU:Let''s go to the pool.' if telotvet > 3: '<<$telsob>>:Well let an hour of billiards.' act 'Go':gt 'billsvid' elseif telotvet <= 3: dynamic $telotkaz end end act 'Invite a cafe': cla 'YOU:Let''s go to the cafe.' if telotvet > 3: '<<$telsob>>:Well let an hour in the cafe.' act 'Go':gt 'kafesvid' elseif telotvet <= 3: dynamic $telotkaz end end act 'Invite casino': cla 'YOU:Let''s go to the casino go.' if telotvet > 3: '<<$telsob>>:Well let an hour at the casino.' act 'Go':gt 'kazinosvid' elseif telotvet <= 3: dynamic $telotkaz end end act 'Hangup':gt 'telefon', 'fin' } $objmobilarazboy = { cla telotvet = rand(0, 10) '"Yes, I''m listening, " said a voice from the speaker.' if month > 5 and temper > 20 and osadki < painweather: act 'Invite a walk in the park': cla 'YOU:Let''s go take a walk in the park.' if telotvet > 3: '<<$telsob>>:Well let an hour in the park.' act 'Go':gt 'svidboy', 'parksvid' elseif telotvet <= 3: dynamic $telotkazboy end end end act 'Invite to movie': cla 'YOU:Come with me to the movies?' if telotvet > 3: '<<$telsob>>:Well let an hour in the theater.' act 'Go':gt 'svidboy', 'kinosvid' elseif telotvet <= 3: dynamic $telotkaz end end act 'Invite billiards': cla 'YOU:Let''s go to the pool.' if telotvet > 3: '<<$telsob>>:Well let an hour of billiards.' act 'Go':gt 'svidboy', 'billsvid' elseif telotvet <= 3: dynamic $telotkazboy end end act 'Invite a cafe': cla 'YOU:Let''s go to the cafe.' if telotvet > 3: '<<$telsob>>:Well let an hour in the cafe.' act 'Go':gt 'svidboy', 'kafesvid' elseif telotvet <= 3: dynamic $telotkazboy end end act 'Hangup':gt 'telefon', 'fin' } $telotkaz = { cla minut += 10 '<<$telsob>>:Sorry I''m busy, come next time.' act 'Hangup':gt 'telefon', 'fin' } $telotkazboy = { cla minut += 10 '<<$boyA>>:Sorry, I''m busy right now, come next time.' act 'Hangup':gt 'telefon', 'fin' } if $ARGS[0] = 'start': cla clr gs 'stat' if vladimirday ! day and vladimirQW = 20 and hour = 16:gt 'qwloc2' if vladimirday ! day and vladimirQW = 25 and hour = 16 and week = 6:gt 'qwloc3' if vladimirday ! day and vladimirQW = 35 and hour = 16 and week = 6:gt 'qwloc4' if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! day and hour >= 12:gt 'qwlocdog' if ring = 0: if number = 6:'
<><>-<><>-<><>
' if number = 5:'
<><>-<><>-<><>
' if number = 4:'
<><>-<><>-<><>
' if number = 3:'
<><>-<><>-<><>
' if number = 2:'
<><>-<><>-<><>
' if number = 1:'
<><>-<><>-<><>
' if number = 0:'
<><>-<><>-<><>
' *nl '
1 2 3
' '
4 5 6
' '
7 8 9
' '
Clear 0 Call
' if hour >= 8 and hour <= 19: if telalla > 0: act 'Call Alla': $telsob = 'Alla' dynamic $objmobilaraz end end if telmasha > 0: act 'Call Masha': $telsob = 'Masha' dynamic $objmobilaraz end end if telkat > 0: act 'Call Kate': $telsob = 'Kate' dynamic $objmobilaraz end end if bfA > 0 and svidanieA = 0: act 'Call <<$boyA>>':dynamic $objmobilarazboy end end if nastjaqw = 1 and week = 6 and vnesh > 20:act 'Call Nastya':gt 'nastja', 'pos4' if nastjaqw = 2 and week ! 6 and zenit = 0 and nastjaday ! day:act 'Chat with Nastya':gt 'nastja', 'pos13' 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' if nastjaqw = 5 and week = 6 and nastjaday ! day:act 'Invite Nastya': gt 'nastja', 'pos22' if nastjaqw = 6 and nastjaday ! day:act 'Call Nastya': gt 'nastja', 'pos31' act 'Hangup': cla gt 'telefon', 'fin' end end if ring = 1: if ringA = 1: gt 'telefon', 'boyA' exit end if ringB = 1: gt 'telefon', 'boyB' exit end if ringC = 1: gt 'telefon', 'boyC' exit end end end if $ARGS[0] = 'boyA': cla clr ring = 0 ringA = 0 boydayA = day gs 'stat' svetrand = rand(0, 5) if svetrand = 0:$$sveta = 'cutie' if svetrand = 1:$sveta = 'honey' if svetrand = 2:$sveta = 'sweetie' if svetrand = 3:$sveta = 'baby' if svetrand = 4:$sveta = 'hot stuff' if svetrand = 5:$sveta = '<<$name>>' 'Hey <<$sveta>>, it''s me, <<$boyA>>. How''s it going?' act 'Normally': cla '(You) - Pretty good, you?' '(<<$boyA>>) - just great, but I kind of miss you, can we meet today?' if pregtime <= dayA and pregtime >= 7 and pregtalk = 0: act 'Honey, you will soon become a dad.': cla pregtalk = 1 '(You) - Honey, I''m pregnant with your child.' if harakBoyA = 0: if bfA >= 90: love = 1 '(<<$boyA>>) - This is wonderful! We have to celebrate!' '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.' '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.' 'When you are totally ready <<$boyA>> will take you to their parents.' act 'Hang up.':gt 'telefon', 'fin' act 'Meet tonight': cla svidanieA = 1 '(You) - How about this evening?' '(<<$boyA>>) - Sounds great! When can I come to pick you up?' act 'Set up a time.': cla meetday = daystart meethour = input ("Set up a time to get picked up. It is now <> o''clock.") if meethour <= hour or meethour > 23:meethour = 20 '(You) -How about <> o''clock?' '(<<$boyA>>) - Okay <<$sveta>>, see you at <> o''clock.' act 'Hang up.':gt 'telefon', 'fin' end end elseif bfA < 90: money += 20000 '(<<$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.' act 'Hang up.':gt 'telefon', 'fin' end elseif harakBoyA = 1: money += 20000 '(<<$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.' act 'Hang up.':gt 'telefon', 'fin' elseif harakBoyA = 2: bfA = 0 pregtalk = 0 '(<<$boyA>>) - What? Yes you ohuel! Somewhere tucked pussy and now dumped on me. Come on you dick.' act 'Hang up.':gt 'telefon', 'fin' end end elseif pregtime > dayA and pregtime >= 7 and pregtalk = 0: act 'Honey, you will soon become a dad.': cla bfA = 0 '(You) - Honey, I''m pregnant with your child.' '(<<$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.' act 'Hang up.':gt 'telefon', 'fin' end elseif week > 1 and week < 5 and workKafe = 1: act 'Sorry, I''m working today.': cla '(You) - Oh, sorry, I''m working today.' '(<<$boyA>>) - Okay, I''ll call tomorrow.' act 'Hang up.':gt 'telefon', 'fin' end end act 'Tonight': cla bfA += 1 svidanieA = 1 meetday = daystart '(You) - How about this evening?' '(<<$boyA>>) - Sounds great! When can I come to pick you up?' act 'Call time.': cla meethour = input ("Set up a time to get picked up. It is now <> o''clock.") if meethour <= hour or meethour > 23:meethour = 20 '(You) - How about <> o''clock?.' '(<<$boyA>>) - Okay <<$sveta>>, see you at <> o''clock.' act 'Hang up.':gt 'telefon', 'fin' end end act 'I''m busy today. Call tomorrow.': cla bfA -= 1 '(You) - I''m busy today. Call tomorrow.' if bfa <= 0:bfa = 0 & '(<<$boyA>>) - damn, you''ve fucked me, come on dick.' if bfa > 0:'(<<$boyA>>) - Okay, I''ll call tomorrow.' act 'Hang up.':gt 'telefon', 'fin' end end act 'Leave': cla bfA = 0 gt 'telefon', 'fin' end end if $ARGS[0] = 'boyB': cla clr ring = 0 ringB = 0 boydayB = day gs 'stat' '<<$boyB>> offers a walk.' act 'Leave': cla bfB = 0 gt 'telefon', 'fin' end act 'Call tomorrow': cla bfB -= 1 if bfB <= 0:bfB = 0 & '<<$boyB>> said he throws you.' if bfB > 0:'<<$boyB>> angry and hung up.' gt 'telefon', 'fin' end act 'Tonight': cla bfB += 1 svidanieB = 1 '<<$boyB>> asked how much he come to your house.' act 'Let 20 hours.': cla 'You are warmly said goodbye and ended the conversation on this.' act 'Hang up.':gt 'telefon', 'fin' end end end if $ARGS[0] = 'boyC': cla clr ring = 0 ringC = 0 boydayC = day gs 'stat' '<<$boyC>> offers a walk.' act 'Leave': cla bfC = 0 gt 'telefon', 'fin' end act 'Call tomorrow': cla bfC -= 1 if bfC <= 0:bfC = 0 & '<<$boyC>> said he throws you.' if bfC > 0:'<<$boyC>> angry and hung up.' gt 'telefon', 'fin' end act 'Tonight': cla bfC += 1 svidanieC = 1 '<<$boyC>> asked how much he come to your house.' act 'Let 20 hours.': cla 'You are warmly said goodbye and ended the conversation on this.' act 'Hang up.':gt 'telefon', 'fin' end end end if $ARGS[0] = 'Call': cla if num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 1: 'Allo. This firehouse. Speak.' elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 2: 'Allo. This is the police. Speak.' elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 3: 'Allo. This ambulance. Speak.' else 'Dialtone' end act 'Hangup': cla gt 'telefon', 'fin' end end if $ARGS[0] = '1': cla !!if number = 6:end if number = 5:num1 = 1 & number = 6 if number = 4:num2 = 1 & number = 5 if number = 3:num3 = 1 & number = 4 if number = 2:num4 = 1 & number = 3 if number = 1:num5 = 1 & number = 2 if number = 0:num6 = 1 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '2': cla !!if number = 6:end if number = 5:num1 = 2 & number = 6 if number = 4:num2 = 2 & number = 5 if number = 3:num3 = 2 & number = 4 if number = 2:num4 = 2 & number = 3 if number = 1:num5 = 2 & number = 2 if number = 0:num6 = 2 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '3': cla !!if number = 6:end if number = 5:num1 = 3 & number = 6 if number = 4:num2 = 3 & number = 5 if number = 3:num3 = 3 & number = 4 if number = 2:num4 = 3 & number = 3 if number = 1:num5 = 3 & number = 2 if number = 0:num6 = 3 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '4': cla !!if number = 6:end if number = 5:num1 = 4 & number = 6 if number = 4:num2 = 4 & number = 5 if number = 3:num3 = 4 & number = 4 if number = 2:num4 = 4 & number = 3 if number = 1:num5 = 4 & number = 2 if number = 0:num6 = 4 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '5': cla !!if number = 6:end if number = 5:num1 = 5 & number = 6 if number = 4:num2 = 5 & number = 5 if number = 3:num3 = 5 & number = 4 if number = 2:num4 = 5 & number = 3 if number = 1:num5 = 5 & number = 2 if number = 0:num6 = 5 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '6': cla !!if number = 6:end if number = 5:num1 = 6 & number = 6 if number = 4:num2 = 6 & number = 5 if number = 3:num3 = 6 & number = 4 if number = 2:num4 = 6 & number = 3 if number = 1:num5 = 6 & number = 2 if number = 0:num6 = 6 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '7': cla !!if number = 6:end if number = 5:num1 = 7 & number = 6 if number = 4:num2 = 7 & number = 5 if number = 3:num3 = 7 & number = 4 if number = 2:num4 = 7 & number = 3 if number = 1:num5 = 7 & number = 2 if number = 0:num6 = 7 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '8': cla !!if number = 6:end if number = 5:num1 = 8 & number = 6 if number = 4:num2 = 8 & number = 5 if number = 3:num3 = 8 & number = 4 if number = 2:num4 = 8 & number = 3 if number = 1:num5 = 8 & number = 2 if number = 0:num6 = 8 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '9': cla !!if number = 6:end if number = 5:num1 = 9 & number = 6 if number = 4:num2 = 9 & number = 5 if number = 3:num3 = 9 & number = 4 if number = 2:num4 = 9 & number = 3 if number = 1:num5 = 9 & number = 2 if number = 0:num6 = 9 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = '0': cla !!if number = 6:end if number = 5:num1 = 0 & number = 6 if number = 4:num2 = 0 & number = 5 if number = 3:num3 = 0 & number = 4 if number = 2:num4 = 0 & number = 3 if number = 1:num5 = 0 & number = 2 if number = 0:num6 = 0 & number = 1 gt 'telefon', 'start' end if $ARGS[0] = 'Reset': cla num1 = 0 num2 = 0 num3 = 0 num4 = 0 num5 = 0 num6 = 0 number = 0 gt 'telefon', 'start' end if $ARGS[0] = 'fin': cla num1 = 0 num2 = 0 num3 = 0 num4 = 0 num5 = 0 num6 = 0 number = 0 gt $locM, $metkaM !' if housr = 1 and housrA = 1: housrA = 0 gt 'korr' end '! end --- telefon ---------------------------------