|
@@ -41,7 +41,7 @@ if $ARGS[0] = 'mobilaraz':
|
|
|
|
|
|
act 'Go':gt 'parksvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$telsob
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -54,7 +54,7 @@ if $ARGS[0] = 'mobilaraz':
|
|
|
'<<$telsob>>, "See you at the movie theater in an hour."'
|
|
|
act 'Go':gt 'kinosvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$telsob
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -67,7 +67,7 @@ if $ARGS[0] = 'mobilaraz':
|
|
|
|
|
|
act 'Go':gt 'billsvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$telsob
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -80,7 +80,7 @@ if $ARGS[0] = 'mobilaraz':
|
|
|
|
|
|
act 'Go':gt 'kafesvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$telsob
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -93,7 +93,7 @@ if $ARGS[0] = 'mobilaraz':
|
|
|
|
|
|
act 'Go':gt 'kazinosvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$telsob
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -104,8 +104,8 @@ if $ARGS[0] = 'mobilarazboyA':
|
|
|
cls
|
|
|
cla
|
|
|
gs'din_bad'
|
|
|
- $caller = '<<$loverdesc[1]>>'
|
|
|
- $callerid = 'images/characters/shared/'+boypicA+'.jpg'
|
|
|
+ $caller = '<<$loverdesc[0]>>'
|
|
|
+ $callerid = 'images/characters/shared/'+boypic[0]+'.jpg'
|
|
|
gs 'telefon','phone_balance'
|
|
|
gs 'telefon','phone_call_receive'
|
|
|
telotvet = rand(0, 10)
|
|
@@ -117,11 +117,11 @@ if $ARGS[0] = 'mobilarazboyA':
|
|
|
'"Let''s go for a walk in the park."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[1]>>, "See you in the park in an hour."'
|
|
|
+ '<<$loverdesc[0]>>, "See you in the park in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'parksvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[0]
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -131,11 +131,11 @@ if $ARGS[0] = 'mobilarazboyA':
|
|
|
'"Want to go see a movie?"'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[1]>>, "See you at the movie theater in an hour."'
|
|
|
+ '<<$loverdesc[0]>>, "See you at the movie theater in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'kinosvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[0]
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -144,11 +144,11 @@ if $ARGS[0] = 'mobilarazboyA':
|
|
|
'"Let''s play pool."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[1]>>, "See you at the pool hall in an hour."'
|
|
|
+ '<<$loverdesc[0]>>, "See you at the pool hall in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'billsvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[0]
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -157,19 +157,18 @@ if $ARGS[0] = 'mobilarazboyA':
|
|
|
'"Let''s go to the cafe."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[1]>>, "See you at the cafe in an hour."'
|
|
|
+ '<<$loverdesc[0]>>, "See you at the cafe in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'kafesvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[0]
|
|
|
end
|
|
|
end
|
|
|
|
|
|
act 'I think we should break up...':
|
|
|
cla
|
|
|
'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
|
|
|
- pcs_lovers[1] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ gs 'boyfrend','remove',0
|
|
|
end
|
|
|
|
|
|
act 'Hangup':gt 'telefon', 'fin'
|
|
@@ -178,8 +177,8 @@ if $ARGS[0] = 'mobilarazboyB':
|
|
|
cls
|
|
|
cla
|
|
|
gs'din_bad'
|
|
|
- $caller = '<<$loverdesc[2]>>'
|
|
|
- $callerid = 'images/characters/shared/'+boypicB+'.jpg'
|
|
|
+ $caller = '<<$loverdesc[1]>>'
|
|
|
+ $callerid = 'images/characters/shared/'+boypic[1]+'.jpg'
|
|
|
gs 'telefon','phone_balance'
|
|
|
gs 'telefon','phone_call_receive'
|
|
|
telotvet = rand(0, 10)
|
|
@@ -191,11 +190,11 @@ if $ARGS[0] = 'mobilarazboyB':
|
|
|
'"Let''s go for a walk in the park."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[2]>>, "See you in the park in an hour."'
|
|
|
+ '<<$loverdesc[1]>>, "See you in the park in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'parksvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[1]
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -205,11 +204,11 @@ if $ARGS[0] = 'mobilarazboyB':
|
|
|
'"Want to go see a movie?"'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[2]>>, "See you at the movie theater in an hour."'
|
|
|
+ '<<$loverdesc[1]>>, "See you at the movie theater in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'kinosvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[1]
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -218,11 +217,11 @@ if $ARGS[0] = 'mobilarazboyB':
|
|
|
'"Let''s play pool."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[2]>>, "See you at the pool hall in an hour."'
|
|
|
+ '<<$loverdesc[1]>>, "See you at the pool hall in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'billsvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[1]
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -231,19 +230,18 @@ if $ARGS[0] = 'mobilarazboyB':
|
|
|
'"Let''s go to the cafe."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[2]>>, "See you at the cafe in an hour."'
|
|
|
+ '<<$loverdesc[1]>>, "See you at the cafe in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'kafesvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[1]
|
|
|
end
|
|
|
end
|
|
|
|
|
|
act 'I think we should break up...':
|
|
|
cla
|
|
|
'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
|
|
|
- pcs_lovers[2] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ gs 'boyfrend','remove',1
|
|
|
|
|
|
act 'Hangup':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -254,8 +252,8 @@ if $ARGS[0] = 'mobilarazboyC':
|
|
|
cls
|
|
|
cla
|
|
|
gs'din_bad'
|
|
|
- $caller = '<<$loverdesc[3]>>'
|
|
|
- $callerid = 'images/characters/shared/'+boypicC+'.jpg'
|
|
|
+ $caller = '<<$loverdesc[2]>>'
|
|
|
+ $callerid = 'images/characters/shared/'+boypic[2]+'.jpg'
|
|
|
gs 'telefon','phone_balance'
|
|
|
gs 'telefon','phone_call_receive'
|
|
|
telotvet = rand(0, 10)
|
|
@@ -267,11 +265,11 @@ if $ARGS[0] = 'mobilarazboyC':
|
|
|
'"Let''s go for a walk in the park."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[3]>>, "See you in the park in an hour."'
|
|
|
+ '<<$loverdesc[2]>>, "See you in the park in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'parksvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[2]
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -281,11 +279,11 @@ if $ARGS[0] = 'mobilarazboyC':
|
|
|
'"Want to go see a movie?"'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[3]>>, "See you at the movie theater in an hour."'
|
|
|
+ '<<$loverdesc[2]>>, "See you at the movie theater in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'kinosvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkaz'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[2]
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -294,11 +292,11 @@ if $ARGS[0] = 'mobilarazboyC':
|
|
|
'"Let''s play pool."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[3]>>, "See you at the pool hall in an hour."'
|
|
|
+ '<<$loverdesc[2]>>, "See you at the pool hall in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'billsvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[2]
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -307,19 +305,18 @@ if $ARGS[0] = 'mobilarazboyC':
|
|
|
'"Let''s go to the cafe."'
|
|
|
|
|
|
if telotvet > 3:
|
|
|
- '<<$loverdesc[3]>>, "See you at the cafe in an hour."'
|
|
|
+ '<<$loverdesc[2]>>, "See you at the cafe in an hour."'
|
|
|
|
|
|
act 'Go':gt 'svidboy', 'kafesvid'
|
|
|
elseif telotvet <= 3:
|
|
|
- gs 'telefon','telotkazboy'
|
|
|
+ gs 'telefon','telotkaz',$loverdesc[2]
|
|
|
end
|
|
|
end
|
|
|
|
|
|
act 'I think we should break up...':
|
|
|
cla
|
|
|
'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
|
|
|
- pcs_lovers[2] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ gs 'boyfrend','remove',2
|
|
|
end
|
|
|
|
|
|
act 'Hangup':gt 'telefon', 'fin'
|
|
@@ -330,7 +327,7 @@ if $ARGS[0] = 'boyA':
|
|
|
clr
|
|
|
ring = 0
|
|
|
ringA = 0
|
|
|
- loverday[1] = daystart
|
|
|
+ loverday[0] = daystart
|
|
|
gs 'stat'
|
|
|
gs 'telefon','phone_call_receive'
|
|
|
svetrand = rand(0, 5)
|
|
@@ -342,28 +339,28 @@ if $ARGS[0] = 'boyA':
|
|
|
if svetrand = 4:$sveta = 'hot stuff'
|
|
|
if svetrand = 5:$sveta = '<<$pcs_nickname>>'
|
|
|
|
|
|
- 'Hey <<$sveta>>, it''s me, <<$loverdesc[1]>>. How''s it going?'
|
|
|
+ 'Hey <<$sveta>>, it''s me, <<$loverdesc[0]>>. How''s it going?'
|
|
|
|
|
|
act 'Normally':
|
|
|
cla
|
|
|
'"Pretty good, you?"'
|
|
|
- '<<$loverdesc[1]>>, "Great, but I kind of miss you, can we meet today?"'
|
|
|
+ '<<$loverdesc[0]>>, "Great, but I kind of miss you, can we meet today?"'
|
|
|
|
|
|
- if pregtime <= loversday[1] and knowpreg = 1 and pregtalk = 0:
|
|
|
+ if pregtime <= loversday[0] 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 haraklover[1] = 0:
|
|
|
+ if haraklover[0] = 0:
|
|
|
|
|
|
- if loverrelation[1] >= 90:
|
|
|
- loverlove[1] = 1
|
|
|
+ if loverrelation[0] >= 90:
|
|
|
+ loverlove[0] = 1
|
|
|
|
|
|
- '<<$loverdesc[1]>>, "This is wonderful! We have to celebrate!"'
|
|
|
- 'You start talking about living together. <<$loverdesc[1]>> 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. <<$loverdesc[1]>> 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 <<$loverdesc[1]>> will take you to their parents.'
|
|
|
+ '<<$loverdesc[0]>>, "This is wonderful! We have to celebrate!"'
|
|
|
+ 'You start talking about living together. <<$loverdesc[0]>> 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. <<$loverdesc[0]>> 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 <<$loverdesc[0]>> will take you to their parents.'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
|
|
@@ -371,7 +368,7 @@ if $ARGS[0] = 'boyA':
|
|
|
cla
|
|
|
svidanieA = 1
|
|
|
'"How about this evening?"'
|
|
|
- '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
+ '<<$loverdesc[0]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
|
|
|
act 'Pick a time':
|
|
|
cla
|
|
@@ -384,39 +381,38 @@ if $ARGS[0] = 'boyA':
|
|
|
|
|
|
'"How about <<meethourA>>:00?"'
|
|
|
|
|
|
- '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
|
|
|
+ '<<$loverdesc[0]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
|
- elseif loverrelation[1] < 90:
|
|
|
+ elseif loverrelation[0] < 90:
|
|
|
money += 20000
|
|
|
- '<<$loverdesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
|
|
|
+ '<<$loverdesc[0]>> "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 haraklover[1] = 1:
|
|
|
+ elseif haraklover[0] = 1:
|
|
|
|
|
|
money += 20000
|
|
|
- '<<$loverdesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
|
|
|
+ '<<$loverdesc[0]>> "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 haraklover[1] = 2:
|
|
|
+ elseif haraklover[0] = 2:
|
|
|
|
|
|
- loverrelation[1] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ gs 'boyfrend','remove',0
|
|
|
pregtalk = 0
|
|
|
- '<<$loverdesc[1]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
|
|
|
+ '<<$loverdesc[0]>>, "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 > loversday[1] and knowpreg = 1 and pregtalk = 0:
|
|
|
+ elseif pregtime > loversday[0] and knowpreg = 1 and pregtalk = 0:
|
|
|
act 'Honey, you will soon become a dad':
|
|
|
cla
|
|
|
- loverrelation[1] = 0
|
|
|
+ loverrelation[0] = 0
|
|
|
'"Honey, I''m pregnant with your child."'
|
|
|
- '<<$loverdesc[1]>>, "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."'
|
|
|
+ '<<$loverdesc[0]>>, "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
|
|
@@ -424,7 +420,7 @@ if $ARGS[0] = 'boyA':
|
|
|
act 'Sorry, I''m working today':
|
|
|
cla
|
|
|
'"Sorry, I''m working today."'
|
|
|
- '<<$loverdesc[1]>>, "Okay, I''ll call tomorrow."'
|
|
|
+ '<<$loverdesc[0]>>, "Okay, I''ll call tomorrow."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -432,11 +428,11 @@ if $ARGS[0] = 'boyA':
|
|
|
|
|
|
act 'Tonight':
|
|
|
cla
|
|
|
- loverrelation[1] += 1
|
|
|
+ loverrelation[0] += 1
|
|
|
svidanieA = 1
|
|
|
meetdayA = daystart
|
|
|
'"How about this evening?"'
|
|
|
- '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
+ '<<$loverdesc[0]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
|
|
|
act 'Pick a time':
|
|
|
cla
|
|
@@ -444,7 +440,7 @@ if $ARGS[0] = 'boyA':
|
|
|
if meethourA <= hour or meethourA > 23:meethourA = 20
|
|
|
|
|
|
'"How about <<meethourA>>:00?."'
|
|
|
- '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
|
|
|
+ '<<$loverdesc[0]>>, "Okay <<$sveta>>, see you at <<meethourA>>:00."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -452,11 +448,11 @@ if $ARGS[0] = 'boyA':
|
|
|
|
|
|
act 'Maybe tomorrow':
|
|
|
cla
|
|
|
- loverrelation[1] -= 1
|
|
|
+ loverrelation[0] -= 1
|
|
|
'"I''m busy today. Call tomorrow."'
|
|
|
|
|
|
- if loverrelation[1] <= 0:pcs_lover -= 1 & '<<$loverdesc[1]>>, Are you fucking me, you know what. Suck my dick.'
|
|
|
- if loverrelation[1] > 0:'(<<$loverdesc[1]>>) - Okay, I''ll call tomorrow.'
|
|
|
+ if loverrelation[0] <= 0:gs 'boyfrend','remove',0 & '<<$loverdesc[0]>>, Are you fucking me, you know what. Suck my dick.'
|
|
|
+ if loverrelation[0] > 0:'(<<$loverdesc[0]>>) - Okay, I''ll call tomorrow.'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -464,17 +460,15 @@ if $ARGS[0] = 'boyA':
|
|
|
act 'I think we should break up...':
|
|
|
cla
|
|
|
'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
|
|
|
- pcs_lovers[1] = 0
|
|
|
- pcs_lover -= 1
|
|
|
-
|
|
|
+ gs 'boyfrend','remove',0
|
|
|
+
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
|
|
|
|
act 'Leave':
|
|
|
cla
|
|
|
- loverrelation[1] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ loverrelation[0] = 0
|
|
|
gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
@@ -484,7 +478,7 @@ if $ARGS[0] = 'boyB':
|
|
|
clr
|
|
|
ring = 0
|
|
|
ringB = 0
|
|
|
- loverday[2] = daystart
|
|
|
+ loverday[1] = daystart
|
|
|
gs 'stat'
|
|
|
gs 'telefon','phone_call_receive'
|
|
|
svetrand = rand(0, 5)
|
|
@@ -496,27 +490,27 @@ if $ARGS[0] = 'boyB':
|
|
|
if svetrand = 4:$sveta = 'hot stuff'
|
|
|
if svetrand = 5:$sveta = '<<$pcs_nickname>>'
|
|
|
|
|
|
- 'Hey <<$sveta>>, it''s me, <<$loverdesc[2]>>. How''s it going?'
|
|
|
+ 'Hey <<$sveta>>, it''s me, <<$loverdesc[1]>>. How''s it going?'
|
|
|
|
|
|
|
|
|
act 'Normally':
|
|
|
cla
|
|
|
'"Pretty good, you?"'
|
|
|
- '<<$loverdesc[2]>>, "Great, but I kind of miss you, can we meet today?"'
|
|
|
+ '<<$loverdesc[1]>>, "Great, but I kind of miss you, can we meet today?"'
|
|
|
|
|
|
- if pregtime <= loversday[2] and knowpreg = 1 and pregtalk = 0:
|
|
|
+ if pregtime <= loversday[1] 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 haraklover[2] = 0:
|
|
|
- if loverrelation[2] >= 90:
|
|
|
- loverlove[2] = 1
|
|
|
- '<<$loverdesc[2]>>, "This is wonderful! We have to celebrate!"'
|
|
|
- 'You start talking about living together. <<$loverdesc[2]>> 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. <<$loverdesc[2]>> 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 <<$loverdesc[2]>> will take you to their parents.'
|
|
|
+ if haraklover[1] = 0:
|
|
|
+ if loverrelation[1] >= 90:
|
|
|
+ loverlove[1] = 1
|
|
|
+ '<<$loverdesc[1]>>, "This is wonderful! We have to celebrate!"'
|
|
|
+ 'You start talking about living together. <<$loverdesc[1]>> 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. <<$loverdesc[1]>> 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 <<$loverdesc[1]>> will take you to their parents.'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
|
|
@@ -524,7 +518,7 @@ if $ARGS[0] = 'boyB':
|
|
|
cla
|
|
|
svidanieB = 1
|
|
|
'"How about this evening?"'
|
|
|
- '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
+ '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
|
|
|
act 'Pick a time':
|
|
|
cla
|
|
@@ -534,37 +528,36 @@ if $ARGS[0] = 'boyB':
|
|
|
if meethourB <= hour or meethourB > 23:meethourB = 20
|
|
|
|
|
|
'"How about <<meethourB>>:00?"'
|
|
|
- '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
|
|
|
+ '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
|
- elseif loverrelation[2] < 90:
|
|
|
+ elseif loverrelation[1] < 90:
|
|
|
money += 20000
|
|
|
- '<<$loverdesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
|
|
|
+ '<<$loverdesc[1]>> "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 haraklover[2] = 1:
|
|
|
+ elseif haraklover[1] = 1:
|
|
|
money += 20000
|
|
|
- '<<$loverdesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
|
|
|
+ '<<$loverdesc[1]>> "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 haraklover[2] = 2:
|
|
|
- loverrelation[2] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ elseif haraklover[1] = 2:
|
|
|
+ gs 'boyfrend','remove',1
|
|
|
pregtalk = 0
|
|
|
- '<<$loverdesc[2]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
|
|
|
+ '<<$loverdesc[1]>>, "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 > loversday[2] and knowpreg = 1 and pregtalk = 0:
|
|
|
+ elseif pregtime > loversday[1] and knowpreg = 1 and pregtalk = 0:
|
|
|
act 'Honey, you will soon become a dad':
|
|
|
cla
|
|
|
- loverrelation[2] = 0
|
|
|
+ loverrelation[1] = 0
|
|
|
'"Honey, I''m pregnant with your child."'
|
|
|
- '<<$loverdesc[2]>>, "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."'
|
|
|
+ '<<$loverdesc[1]>>, "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
|
|
@@ -572,7 +565,7 @@ if $ARGS[0] = 'boyB':
|
|
|
act 'Sorry, I''m working today':
|
|
|
cla
|
|
|
'"Sorry, I''m working today."'
|
|
|
- '<<$loverdesc[2]>>, "Okay, I''ll call tomorrow."'
|
|
|
+ '<<$loverdesc[1]>>, "Okay, I''ll call tomorrow."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -580,11 +573,11 @@ if $ARGS[0] = 'boyB':
|
|
|
|
|
|
act 'Tonight':
|
|
|
cla
|
|
|
- loverrelation[2] += 1
|
|
|
+ loverrelation[1] += 1
|
|
|
svidanieB = 1
|
|
|
meetdayB = daystart
|
|
|
'"How about this evening?"'
|
|
|
- '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
+ '<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
|
|
|
act 'Pick a time':
|
|
|
cla
|
|
@@ -592,7 +585,7 @@ if $ARGS[0] = 'boyB':
|
|
|
if meethourB <= hour or meethourB > 23:meethourB = 20
|
|
|
|
|
|
'"How about <<meethourB>>:00?."'
|
|
|
- '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
|
|
|
+ '<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourB>>:00."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -600,11 +593,11 @@ if $ARGS[0] = 'boyB':
|
|
|
|
|
|
act 'Maybe tomorrow':
|
|
|
cla
|
|
|
- loverrelation[2] -= 1
|
|
|
+ loverrelation[1] -= 1
|
|
|
'"I''m busy today. Call tomorrow."'
|
|
|
|
|
|
- if loverrelation[2] <= 0:pcs_lover -= 1 & '<<$loverdesc[2]>>, Are you fucking me, you know what. Suck my dick.'
|
|
|
- if loverrelation[2] > 0:'(<<$loverdesc[2]>>) - Okay, I''ll call tomorrow.'
|
|
|
+ if loverrelation[1] <= 0:gs 'boyfrend','remove',1 & '<<$loverdesc[1]>>, Are you fucking me, you know what. Suck my dick.'
|
|
|
+ if loverrelation[1] > 0:'(<<$loverdesc[1]>>) - Okay, I''ll call tomorrow.'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -612,8 +605,7 @@ if $ARGS[0] = 'boyB':
|
|
|
act 'I think we should break up...':
|
|
|
cla
|
|
|
'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
|
|
|
- pcs_lovers[2] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ gs 'boyfrend','remove',1
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -621,7 +613,7 @@ if $ARGS[0] = 'boyB':
|
|
|
|
|
|
act 'Leave':
|
|
|
cla
|
|
|
- loverrelation[2] = 0
|
|
|
+ loverrelation[1] = 0
|
|
|
gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
@@ -631,7 +623,7 @@ if $ARGS[0] = 'boyC':
|
|
|
clr
|
|
|
ring = 0
|
|
|
ringC = 0
|
|
|
- loverday[3] = daystart
|
|
|
+ loverday[2] = daystart
|
|
|
gs 'stat'
|
|
|
gs 'telefon','phone_call_receive'
|
|
|
svetrand = rand(0, 5)
|
|
@@ -643,27 +635,27 @@ if $ARGS[0] = 'boyC':
|
|
|
if svetrand = 4:$sveta = 'hot stuff'
|
|
|
if svetrand = 5:$sveta = '<<$pcs_nickname>>'
|
|
|
|
|
|
- 'Hey <<$sveta>>, it''s me, <<$loverdesc[3]>>. How''s it going?'
|
|
|
+ 'Hey <<$sveta>>, it''s me, <<$loverdesc[2]>>. How''s it going?'
|
|
|
|
|
|
|
|
|
act 'Normally':
|
|
|
cla
|
|
|
'"Pretty good, you?"'
|
|
|
- '<<$loverdesc[3]>>, "Great, but I kind of miss you, can we meet today?"'
|
|
|
+ '<<$loverdesc[2]>>, "Great, but I kind of miss you, can we meet today?"'
|
|
|
|
|
|
- if pregtime <= loversday[3] and knowpreg = 1 and pregtalk = 0:
|
|
|
+ if pregtime <= loversday[2] 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 haraklover[3] = 0:
|
|
|
- if loverrelation[3] >= 90:
|
|
|
- loverlove[3] = 1
|
|
|
- '<<$loverdesc[3]>>, "This is wonderful! We have to celebrate!"'
|
|
|
- 'You start talking about living together. <<$loverdesc[3]>> 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. <<$loverdesc[3]>> 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 <<$loverdesc[3]>> will take you to their parents.'
|
|
|
+ if haraklover[2] = 0:
|
|
|
+ if loverrelation[2] >= 90:
|
|
|
+ loverlove[2] = 1
|
|
|
+ '<<$loverdesc[2]>>, "This is wonderful! We have to celebrate!"'
|
|
|
+ 'You start talking about living together. <<$loverdesc[2]>> 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. <<$loverdesc[2]>> 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 <<$loverdesc[2]>> will take you to their parents.'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
|
|
@@ -671,7 +663,7 @@ if $ARGS[0] = 'boyC':
|
|
|
cla
|
|
|
svidanieC = 1
|
|
|
'"How about this evening?"'
|
|
|
- '<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
+ '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
|
|
|
act 'Pick a time':
|
|
|
cla
|
|
@@ -681,38 +673,36 @@ if $ARGS[0] = 'boyC':
|
|
|
if meethourC <= hour or meethourC > 23:meethourC = 20
|
|
|
|
|
|
'"How about <<meethourC>>:00?"'
|
|
|
- '<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
|
|
|
+ '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
|
- elseif loverrelation[3] < 90:
|
|
|
+ elseif loverrelation[2] < 90:
|
|
|
money += 20000
|
|
|
- '<<$loverdesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
|
|
|
+ '<<$loverdesc[2]>> "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 haraklover[3] = 1:
|
|
|
+ elseif haraklover[2] = 1:
|
|
|
money += 20000
|
|
|
- '<<$loverdesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
|
|
|
+ '<<$loverdesc[2]>> "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 haraklover[3] = 2:
|
|
|
- loverrelation[3] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ elseif haraklover[2] = 2:
|
|
|
+ gs 'boyfrend','remove',2
|
|
|
pregtalk = 0
|
|
|
- '<<$loverdesc[3]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
|
|
|
+ '<<$loverdesc[2]>>, "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 > loversday[3] and knowpreg = 1 and pregtalk = 0:
|
|
|
+ elseif pregtime > loversday[2] and knowpreg = 1 and pregtalk = 0:
|
|
|
act 'Honey, you will soon become a dad':
|
|
|
cla
|
|
|
- loverrelation[3] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ gs 'boyfrend','remove',lover_number
|
|
|
'"Honey, I''m pregnant with your child."'
|
|
|
- '<<$loverdesc[3]>>, "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."'
|
|
|
+ '<<$loverdesc[2]>>, "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
|
|
@@ -720,7 +710,7 @@ if $ARGS[0] = 'boyC':
|
|
|
act 'Sorry, I''m working today':
|
|
|
cla
|
|
|
'"Sorry, I''m working today."'
|
|
|
- '<<$loverdesc[3]>>, "Okay, I''ll call tomorrow."'
|
|
|
+ '<<$loverdesc[2]>>, "Okay, I''ll call tomorrow."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -728,11 +718,11 @@ if $ARGS[0] = 'boyC':
|
|
|
|
|
|
act 'Tonight':
|
|
|
cla
|
|
|
- loverrelation[3] += 1
|
|
|
+ loverrelation[2] += 1
|
|
|
svidanieC = 1
|
|
|
meetdayC = daystart
|
|
|
'"How about this evening?"'
|
|
|
- '<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
+ '<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
|
|
|
|
|
|
act 'Pick a time':
|
|
|
cla
|
|
@@ -740,7 +730,7 @@ if $ARGS[0] = 'boyC':
|
|
|
if meethourC <= hour or meethourC > 23:meethourC = 20
|
|
|
|
|
|
'"How about <<meethourC>>:00."'
|
|
|
- '<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
|
|
|
+ '<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourC>>:00."'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -748,11 +738,11 @@ if $ARGS[0] = 'boyC':
|
|
|
|
|
|
act 'Maybe tomorrow':
|
|
|
cla
|
|
|
- loverrelation[3] -= 1
|
|
|
+ loverrelation[2] -= 1
|
|
|
'"I''m busy today. Call tomorrow."'
|
|
|
|
|
|
- if loverrelation[3] <= 0:pcs_lover -= 1 & '<<$loverdesc[3]>>, Are you fucking me, you know what. Suck my dick.'
|
|
|
- if loverrelation[3] > 0:'(<<$loverdesc[3]>>) - Okay, I''ll call tomorrow.'
|
|
|
+ if loverrelation[2] <= 0:gs 'boyfrend','remove',2 & '<<$loverdesc[2]>>, Are you fucking me, you know what. Suck my dick.'
|
|
|
+ if loverrelation[2] > 0:'(<<$loverdesc[2]>>) - Okay, I''ll call tomorrow.'
|
|
|
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
@@ -760,17 +750,15 @@ if $ARGS[0] = 'boyC':
|
|
|
act 'I think we should break up...':
|
|
|
cla
|
|
|
'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
|
|
|
- pcs_lovers[3] = 0
|
|
|
- pcs_lover -= 1
|
|
|
-
|
|
|
+ gs 'boyfrend','remove',2
|
|
|
+
|
|
|
act 'Hang up':gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
|
|
|
|
act 'Leave':
|
|
|
cla
|
|
|
- loverrelation[3] = 0
|
|
|
- pcs_lover -= 1
|
|
|
+ gs 'boyfrend','remove',2
|
|
|
gt 'telefon', 'fin'
|
|
|
end
|
|
|
end
|
|
@@ -868,14 +856,14 @@ if $ARGS[0] = 'Phone_contactlist':
|
|
|
pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_kat.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''images/system/phone/icons/icon_kat.png'' & $telsob = ''Kate'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
|
|
|
- if pcs_lovers[1] = 1 and svidanieA = 0 and rand(1,7) > 3:
|
|
|
- pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicA+'.png"></TD><TD></TD><TD align="right"><a href="exec:gt ''telefon'', ''mobilarazboyA''"><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
+ if pcs_lovers[0] = 1 and svidanieA = 0 and rand(1,7) > 3:
|
|
|
+ pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypic[0]+'.png"></TD><TD></TD><TD align="right"><a href="exec:lover_number = 0 & gt ''telefon'', ''mobilarazboyA''"><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
- if pcs_lovers[2] = 1 and svidanieB = 0 and rand(1,7) > 3:
|
|
|
- pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicB+'.png"></TD><TD></TD><TD align="right"><a href="exec:gt ''telefon'', ''mobilarazboyB''"><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
+ if pcs_lovers[1] = 1 and svidanieB = 0 and rand(1,7) > 3:
|
|
|
+ pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypic[1]+'.png"></TD><TD></TD><TD align="right"><a href="exec:lover_number = 1 & gt ''telefon'', ''mobilarazboyB''"><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
- if pcs_lovers[3] = 1 and svidanieC = 0 and rand(1,7) > 3:
|
|
|
- pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicC+'.png"></TD><TD></TD><TD align="right"><a href="exec:gt ''telefon'', ''mobilarazboyC''"><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
+ if pcs_lovers[2] = 1 and svidanieC = 0 and rand(1,7) > 3:
|
|
|
+ pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypic[2]+'.png"></TD><TD></TD><TD align="right"><a href="exec:lover_number = 2 & gt ''telefon'', ''mobilarazboyC''"><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
else
|
|
|
if telalla > 0:
|
|
@@ -890,14 +878,14 @@ if $ARGS[0] = 'Phone_contactlist':
|
|
|
pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_kat.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_kat'' & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
|
|
|
- if pcs_lovers[1] = 1 and svidanieA = 0:
|
|
|
- pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicA+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypicA & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
+ if pcs_lovers[0] = 1 and svidanieA = 0:
|
|
|
+ pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypic[0]+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypic[0] & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
- if pcs_lovers[2] = 1 and svidanieB = 0:
|
|
|
- pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicB+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypicB & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
+ if pcs_lovers[1] = 1 and svidanieB = 0:
|
|
|
+ pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypic[1]+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypic[1] & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
- if pcs_lovers[3] = 1 and svidanieC = 0:
|
|
|
- pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypicC+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypicC & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
+ if pcs_lovers[2] = 1 and svidanieC = 0:
|
|
|
+ pl'<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/phone/icons/icon_bf'+boypic[2]+'.png"></TD><TD></TD><TD align="right"><a href="exec:$callerid = ''icon_bf''+boypic[2] & gs ''telefon'', ''phone_call_reject'' "><b>Call</b></a></TD></TR></TABLE></center>'
|
|
|
end
|
|
|
end
|
|
|
if npc_QW['A192'] > 0:
|
|
@@ -1173,19 +1161,11 @@ end &! --- Add_contact ---
|
|
|
if $ARGS[0] = 'telotkaz':
|
|
|
cla
|
|
|
minut += 10
|
|
|
- '<<$telsob>>, "Sorry I''m busy, maybe next time."'
|
|
|
+ '<<$ARGS[1]>>, "Sorry, I''m busy right now, maybe next time."'
|
|
|
|
|
|
act 'Hangup':gt 'telefon', 'fin'
|
|
|
end &! --- telotkaz ---
|
|
|
|
|
|
-if $ARGS[0] = 'telotkazboy':
|
|
|
- cla
|
|
|
- minut += 10
|
|
|
- '<<$loverdesc[lover_number]>>, "Sorry, I''m busy right now, maybe next time."'
|
|
|
-
|
|
|
- act 'Hangup':gt 'telefon', 'fin'
|
|
|
-end &! --- telotkazboy ---
|
|
|
-
|
|
|
|
|
|
if $ARGS[0] = 'fin':
|
|
|
cla
|