# 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 > 20:
		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 > 20 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 osadki < painweather:
		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 osadki < painweather:
		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 ---------------------------------

