123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408 |
- # telefon
- $telotkaz = {
- cla
- minut += 10
- '<<$telsob>>, "Sorry I''m busy, maybe next time."'
- act 'Hangup':gt 'telefon', 'fin'
- }
- $telotkazboy = {
- cla
- minut += 10
- '<<$boyA>>, "Sorry, I''m busy right now, maybe next time."'
- act 'Hangup':gt 'telefon', 'fin'
- }
- if $ARGS[0] = 'start':
- gs 'stat'
- dynamic $phone_call_receive
- if nastjaqw = 1 and week = 6 and vnesh > 80:
- gt 'nastja', 'pos4'
- elseif nastjaqw = 2 and week ! 6 and zenit ! 0 and nastjaday ! daystart:
- gt 'nastja', 'pos13'
- elseif hour >= 8 and hour <= 20 and nastjaqw = 2 and week = 6 and vnesh > 80 and nastjaday ! daystart:
- gt 'nastja', 'pos12'
- elseif nastjaqw = 5 and week = 6 and nastjaday ! daystart:
- gt 'nastja', 'pos22'
- elseif nastjaqw = 6 and nastjaday ! daystart:
- gt 'nastja', 'pos31'
- else
- $callerid = 'icon_nastja'
- dynamic $phone_call_reject
- end
- end
- if $ARGS[0] = 'mobilaraz':
- cls
- cla
- gs'din_bad'
- $caller = '<<$telsob>>'
- dynamic $phone_balance
- dynamic $phone_call_receive
- telotvet = rand(0, 10)
- '"Yes, I''m listening," says a voice from the speaker.'
- if month > 5 and temper > 20 and sunWeather = 1:
- act 'Invite to the park':
- cla
- '"Let''s go for a walk in the park."'
- if telotvet > 3:
- '<<$telsob>>, "See you in the park in an hour."'
- act 'Go':gt 'parksvid'
- elseif telotvet <= 3:
- dynamic $telotkaz
- end
- end
- end
- act 'Invite to a movie':
- cla
- '"Want to go see a movie?"'
- if telotvet > 3:
- '<<$telsob>>, "See you at the movie theater in an hour."'
- act 'Go':gt 'kinosvid'
- elseif telotvet <= 3:
- dynamic $telotkaz
- end
- end
- act 'Invite to the pool hall':
- cla
- '"Let''s play pool."'
- if telotvet > 3:
- '<<$telsob>>, "See you at the pool hall in an hour."'
- act 'Go':gt 'billsvid'
- elseif telotvet <= 3:
- dynamic $telotkaz
- end
- end
- act 'Invite to the cafe':
- cla
- '"Let''s go to the cafe."'
- if telotvet > 3:
- '<<$telsob>>, "See you at the cafe in an hour."'
- act 'Go':gt 'kafesvid'
- elseif telotvet <= 3:
- dynamic $telotkaz
- end
- end
- act 'Invite to the casino':
- cla
- '"Let''s go to the casino."'
- if telotvet > 3:
- '<<$telsob>>, "See you in the casino in an hour."'
- act 'Go':gt 'kazinosvid'
- elseif telotvet <= 3:
- dynamic $telotkaz
- end
- end
- act 'Hangup':gt 'telefon', 'fin'
- end
- if $ARGS[0] = 'mobilarazboy':
- cls
- cla
- gs'din_bad'
- $caller = '<<$BoyA>>'
- $callerid = 'images/pic/boy_face/'+boypicA+'.jpg'
- dynamic $phone_balance
- dynamic $phone_call_receive
- telotvet = rand(0, 10)
- '"Yes, I''m listening," says a voice from the speaker.'
- if month > 5 and temper > 20 and sunWeather = 1:
- act 'Invite to the park':
- cla
- '"Let''s go for a walk in the park."'
- if telotvet > 3:
- '<<$telsob>>, "See you in the park in an hour."'
- act 'Go':gt 'svidboy', 'parksvid'
- elseif telotvet <= 3:
- dynamic $telotkazboy
- end
- end
- end
- act 'Invite to a movie':
- cla
- '"Want to go see a movie?"'
- if telotvet > 3:
- '<<$telsob>>, "See you at the movie theater in an hour."'
- act 'Go':gt 'svidboy', 'kinosvid'
- elseif telotvet <= 3:
- dynamic $telotkaz
- end
- end
- act 'Invite to the pool hall':
- cla
- '"Let''s play pool."'
- if telotvet > 3:
- '<<$telsob>>, "See you at the pool hall in an hour."'
- act 'Go':gt 'svidboy', 'billsvid'
- elseif telotvet <= 3:
- dynamic $telotkazboy
- end
- end
- act 'Invite to the cafe':
- cla
- '"Let''s go to the cafe."'
- if telotvet > 3:
- '<<$telsob>>, "See you at the cafe in an hour."'
- act 'Go':gt 'svidboy', 'kafesvid'
- elseif telotvet <= 3:
- dynamic $telotkazboy
- end
- end
- act 'Hangup':gt 'telefon', 'fin'
- end
- if $ARGS[0] = 'boyA':
- cla
- clr
- ring = 0
- ringA = 0
- boydayA = daystart
- gs 'stat'
- dynamic $phone_call_receive
- 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
- '"Pretty good, you?"'
- '<<$boyA>>, "Great, but I kind of miss you, can we meet today?"'
- if pregtime <= dayA and knowpreg = 1 and pregtalk = 0:
- act 'Tell him he''s going to be a dad':
- cla
- pregtalk = 1
- '"Honey, I''m pregnant with your child."'
- if harakBoyA = 0:
- if bfA >= 90:
- love = 1
- '<<$boyA>>, "This is wonderful! We have to celebrate!"'
- '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.'
- '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.'
- 'When you are totally ready <<$boyA>> will take you to their parents.'
- act 'Hang up':gt 'telefon', 'fin'
- act 'Meet tonight':
- cla
- svidanieA = 1
- '"How about this evening?"'
- '<<$boyA>>, "Sounds great! When can I come to pick you up?"'
- act 'Pick a time':
- cla
- meetday = daystart
- meethour = input ("When do you want to be picked up? It is now <<hour>> c''clock.")
- if meethour <= hour or meethour > 23:meethour = 20
- '"How about <<meethour>> o''clock?"'
- '<<$boyA>>, "Okay <<$sveta>>, see you at <<meethour>> 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. 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 get an abortion.'
- act 'Hang up':gt 'telefon', 'fin'
- elseif harakBoyA = 2:
- bfA = 0
- pregtalk = 0
- '<<$boyA>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
- act 'Hang up':gt 'telefon', 'fin'
- end
- end
- elseif pregtime > dayA and knowpreg = 1 and pregtalk = 0:
- act 'Honey, you will soon become a dad':
- cla
- bfA = 0
- '"Honey, I''m pregnant with your child."'
- '<<$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."'
- act 'Hang up.':gt 'telefon', 'fin'
- end
- elseif week > 1 and week < 5 and workKafe = 1:
- act 'Sorry, I''m working today':
- cla
- '"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
- '"How about this evening?"'
- '<<$boyA>>, "Sounds great! When can I come to pick you up?"'
- act 'Pick a time':
- cla
- meethour = input ("When do you want to be picked up. It is now <<hour>> c''clock.")
- if meethour <= hour or meethour > 23:meethour = 20
- '"How about <<meethour>> o''clock?."'
- '<<$boyA>>, "Okay <<$sveta>>, see you at <<meethour>> o''clock."'
- act 'Hang up':gt 'telefon', 'fin'
- end
- end
- act 'Maybe tomorrow':
- cla
- bfA -= 1
- '"I''m busy today. Call tomorrow."'
- if bfa <= 0:bfa = 0 & '<<$boyA>>, Are you fucking me, you know what. Suck my 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 = daystart
- gs 'stat'
- '<<$boyB>> wants to go for a walk.'
- act 'Leave':
- cla
- bfB = 0
- gt 'telefon', 'fin'
- end
- act 'Call tomorrow':
- cla
- bfB -= 1
- if bfB <= 0:bfB = 0 & '<<$boyB>> dumps you.'
- if bfB > 0:'<<$boyB>> is angry and hangs up.'
- gt 'telefon', 'fin'
- end
- act 'Tonight':
- cla
- bfB += 1
- svidanieB = 1
- '<<$boyB>> asks when he should come to your house.'
- act 'How about 20 hours':
- cla
- 'You say goodbye warmly and end the conversation.'
- act 'Hang up':gt 'telefon', 'fin'
- end
- end
- end
- if $ARGS[0] = 'boyC':
- cla
- clr
- ring = 0
- ringC = 0
- boydayC = daystart
- gs 'stat'
- '<<$boyC>> wants to go for a walk.'
- act 'Leave':
- cla
- bfC = 0
- gt 'telefon', 'fin'
- end
- act 'Call tomorrow':
- cla
- bfC -= 1
- if bfC <= 0:bfC = 0 & '<<$boyC>> dumps you.'
- if bfC > 0:'<<$boyC>> is angry and hangs up.'
- gt 'telefon', 'fin'
- end
- act 'Tonight':
- cla
- bfC += 1
- svidanieC = 1
- '<<$boyC>> asks when he should come to your house.'
- act 'How about 20 hours':
- cla
- 'You say goodbye warmly and end the conversation.'
- act 'Hang up.':gt 'telefon', 'fin'
- end
- end
- end
- if $ARGS[0] = 'fin':
- cla
- gt $locM, $metkaM
- end
- --- telefon ---------------------------------
|