# telefon
$objmobilaraz = {
cla
set telotvet = RAND(0,10)
'"Yes, I´m listening," said a voice from the speaker.'
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'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
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'
	end
	if 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'
	end
	if telotvet <= 3: dynamic $telotkaz
	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'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
act 'Invite casino':
	cla
	'YOU: Let´s go to the casino´s go.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour at the casino.'
	act 'Go': gt 'kazinosvid'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
act 'Hangup': gt 'telefon','fin'
}

$objmobilarazboy = {
cla
set telotvet = RAND(0,10)
'"Yes, I´m listening," said a voice from the speaker.'
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'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
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'
	end
	if telotvet <= 3: dynamic $telotkazboy
	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'
	end
	if telotvet <= 3: dynamic $telotkazboy
	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'
	end
	if telotvet <= 3: dynamic $telotkazboy
	end
act 'Hangup': gt 'telefon','fin'
}

$telotkaz = {
cla
set minut += 10
'<<$telsob>>: Sorry I´m busy, come next time.'
act 'Hangup': gt 'telefon','fin'
}

$telotkazboy = {
cla
set 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: '<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></B></center>'
	if number = 5: '<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>></B><<num1>></center>'
	if number = 4: '<center><B><<num6>><<num5>>-<<num4>><<num3>></B>-<<num2>><<num1>></center>'
	if number = 3: '<center><B><<num6>><<num5>>-<<num4>></B><<num3>>-<<num2>><<num1>></center>'
	if number = 2: '<center><B><<num6>><<num5>></B>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	if number = 1: '<center><B><<num6>></B><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	if number = 0: '<center><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	*nl
	'<center><B><a href="exec:GT ''telefon'',''1''">1</a> <a href="exec:GT ''telefon'',''2''">2</a> <a href="exec:GT ''telefon'',''3''">3</a></B></center>'
	'<center><B><a href="exec:GT ''telefon'',''4''">4</a> <a href="exec:GT ''telefon'',''5''">5</a> <a href="exec:GT ''telefon'',''6''">6</a></B></center>'
	'<center><B><a href="exec:GT ''telefon'',''7''">7</a> <a href="exec:GT ''telefon'',''8''">8</a> <a href="exec:GT ''telefon'',''9''">9</a></B></center>'
	'<center><B><a href="exec:GT ''telefon'',''Reset''">Clear</a> <a href="exec:GT ''telefon'',''0''">0</a> <a href="exec:GT ''telefon'',''Call''">Call</a></B></center>'

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 = 'Katia'
			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
gs 'stat'
set ring = 0
set ringA = 0
set boydayA = day
set svetrand = RAND(0,5)
if svetrand = 0: set $sveta = 'lapulya'
if svetrand = 1: set $sveta = 'Bunny'
if svetrand = 2: set $sveta = 'pussy'
if svetrand = 3: set $sveta = 'small fish'
if svetrand = 4: set $sveta = 'Svetsik'
if svetrand = 5: set $sveta = '<<$name>>'
'Hi <<$sveta>> is <<$boyA>> how´s it going?'
act 'Normally':
	cla
	'(You) - normally, and you have both?'
	'(<<$boyA>>) - just great, that´s just miss you, can meet today?'
	if pregtime <= dayA and pregtime >= 7 and pregtalk = 0:
		act 'Honey, you will soon become a dad.':
			cla
			pregtalk = 1
			'(You) - Honey, you will soon become a dad.'
			if harakBoyA = 0:
				if bfA >= 90:
					'(<<$boyA>>) - This is wonderful! We will soon be addition.'
					set love = 1
					'You started talking about cohabitation. What <<$boyA>> told you that it is in principle not against, but first he wants you to meet his parents.'
					'He warns you that my mother is very demanding and rigorous, <<$boyA>> says that he loves her mother and does not want to upset her. Therefore, you must look gorgeous, the dress from a boutique, well-groomed and curled hair, cosmetics in moderation.'
					'At the next vstreche once you will be totally ready <<$boyA>> will take you to their parents.'
					act 'Hang up.': gt 'telefon','fin'
					act 'Meet tonight':
						cla
						set svidanieA = 1
						'(You) - can be found in the evening.'
						'(<<$boyA>>) - What time I come to your house?'
						act 'Call time.':
							cla
							meetday = daystart
							meethour = input ("Name the hour in which the guy to come. now <<hour>> hour, you can only assign a greater number of")
							if meethour <= hour or meethour > 23: meethour = 20
							'(You) - Do it in 20 hours.'
							'(<<$boyA>>) - Okay, <<$sveta>> then to <<meethour>> hours.'
							$meetloc[0] = $HouseLocation
							act 'Hang up.': gt 'telefon','fin'
							end
						end
					end
				if bfA < 90:
					'(<<$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.'
					money += 20000
					act 'Hang up.': gt 'telefon','fin'
					end
				end
			if harakBoyA = 1:
				'(<<$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.'
				money += 20000
				act 'Hang up.': gt 'telefon','fin'
				end
			if harakBoyA = 2:
				'(<<$boyA>>) - What? Yes you ohuel! Somewhere tucked pussy and now dumped on me. Come on you dick.'
				set bfA = 0
				pregtalk = 0
				act 'Hang up.': gt 'telefon','fin'
				end
			end
		end
	if pregtime > dayA and pregtime >= 7 and pregtalk = 0:
		act 'Honey, you will soon become a dad.':
			cla
			'(You) - Honey, you will soon become a dad.'
			'(<<$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.'
			set bfA = 0
			act 'Hang up.': gt 'telefon','fin'
			end
		end
	if week > 1 and week < 5 and workKafe = 1:
		act 'Oh, sorry, I´m working today.':
			cla
			'(You) - Oh, sorry, I´m working today.'
			'(<<$boyA>>) - okay, call tomorrow.'
			act 'Hang up.': gt 'telefon','fin'
			end
		end
	act 'Tonight':
		cla
		set bfA += 1
		set svidanieA = 1
		meetday = daystart
		'(You) - can be found in the evening.'
		'(<<$boyA>>) - What time I come to your house?'
		act 'Call time.':
			cla
			meethour = input ("Name the hour in which the guy to come. Now <<hour>> hour, you can only assign a greater number of single-digit")
			if meethour <= hour or meethour > 23: meethour = 20
			'(You) - Come on in <<meethour>> hours.'
			'(<<$boyA>>) - Okay, <<$sveta>> then to <<meethour>> hours.'
			$meetloc[0] = $HouseLocation
			act 'Hang up.': gt 'telefon','fin'
			end
		end
	act 'I´m busy today. Call tomorrow.':
		cla
		set bfA -= 1
		'(You) - I´m busy today. Call tomorrow.'
		if bfa <= 0: set bfa = 0 & '(<<$boyA>>) - damn, you´ve fucked me, come on dick.'
		if bfa > 0: '(<<$boyA>>) - okay, until then.'
		act 'Hang up.': gt 'telefon','fin'
		end
	end
act 'Leave':
	cla
	set bfA = 0
	gt 'telefon','fin'
	end
end

if $ARGS[0] = 'boyB':
cla
clr
gs 'stat'
set ring = 0
set ringB = 0
set boydayB = day

'<<$boyB>> offers a walk.'
	act 'Leave':
	cla
	set bfB = 0
	gt 'telefon','fin'
	end

	act 'Call tomorrow':
	cla
	set bfB -= 1
		if bfB <= 0: set bfB = 0 & '<<$boyB>> said he throws you.'
		if bfB > 0: '<<$boyB>> angry and hung up.'
	gt 'telefon','fin'
	end

	act 'Tonight':
	cla
	set bfB += 1
	set 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.'
		$meetloc[1] = $HouseLocation
		act 'Hang up.': gt 'telefon','fin'
		end
	end
end

if $ARGS[0] = 'boyC':
cla
clr
gs 'stat'
set ring = 0
set ringC = 0
set boydayC = day

'<<$boyC>> offers a walk.'
	act 'Leave':
	cla
	set bfC = 0
	gt 'telefon','fin'
	end

	act 'Call tomorrow':
	cla
	set bfC -= 1
		if bfC <= 0: set bfC = 0 & '<<$boyC>> said he throws you.'
		if bfC > 0: '<<$boyC>> angry and hung up.'
	gt 'telefon','fin'
	end

	act 'Tonight':
	cla
	set bfC += 1
	set 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.'
		$meetloc[2] = $HouseLocation
		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: set num1 = 1 & set number = 6
	if number = 4: set num2 = 1 & set number = 5
	if number = 3: set num3 = 1 & set number = 4
	if number = 2: set num4 = 1 & set number = 3
	if number = 1: set num5 = 1 & set number = 2
	if number = 0: set num6 = 1 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '2':
cla
	if number = 6:
	end
	if number = 5: set num1 = 2 & set number = 6
	if number = 4: set num2 = 2 & set number = 5
	if number = 3: set num3 = 2 & set number = 4
	if number = 2: set num4 = 2 & set number = 3
	if number = 1: set num5 = 2 & set number = 2
	if number = 0: set num6 = 2 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '3':
cla
	if number = 6:
	end
	if number = 5: set num1 = 3 & set number = 6
	if number = 4: set num2 = 3 & set number = 5
	if number = 3: set num3 = 3 & set number = 4
	if number = 2: set num4 = 3 & set number = 3
	if number = 1: set num5 = 3 & set number = 2
	if number = 0: set num6 = 3 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '4':
cla
	if number = 6:
	end
	if number = 5: set num1 = 4 & set number = 6
	if number = 4: set num2 = 4 & set number = 5
	if number = 3: set num3 = 4 & set number = 4
	if number = 2: set num4 = 4 & set number = 3
	if number = 1: set num5 = 4 & set number = 2
	if number = 0: set num6 = 4 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '5':
cla
	if number = 6:
	end
	if number = 5: set num1 = 5 & set number = 6
	if number = 4: set num2 = 5 & set number = 5
	if number = 3: set num3 = 5 & set number = 4
	if number = 2: set num4 = 5 & set number = 3
	if number = 1: set num5 = 5 & set number = 2
	if number = 0: set num6 = 5 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '6':
cla
	if number = 6:
	end
	if number = 5: set num1 = 6 & set number = 6
	if number = 4: set num2 = 6 & set number = 5
	if number = 3: set num3 = 6 & set number = 4
	if number = 2: set num4 = 6 & set number = 3
	if number = 1: set num5 = 6 & set number = 2
	if number = 0: set num6 = 6 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '7':
cla
	if number = 6:
	end
	if number = 5: set num1 = 7 & set number = 6
	if number = 4: set num2 = 7 & set number = 5
	if number = 3: set num3 = 7 & set number = 4
	if number = 2: set num4 = 7 & set number = 3
	if number = 1: set num5 = 7 & set number = 2
	if number = 0: set num6 = 7 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '8':
cla
	if number = 6:
	end
	if number = 5: set num1 = 8 & set number = 6
	if number = 4: set num2 = 8 & set number = 5
	if number = 3: set num3 = 8 & set number = 4
	if number = 2: set num4 = 8 & set number = 3
	if number = 1: set num5 = 8 & set number = 2
	if number = 0: set num6 = 8 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '9':
cla
	if number = 6:
	end
	if number = 5: set num1 = 9 & set number = 6
	if number = 4: set num2 = 9 & set number = 5
	if number = 3: set num3 = 9 & set number = 4
	if number = 2: set num4 = 9 & set number = 3
	if number = 1: set num5 = 9 & set number = 2
	if number = 0: set num6 = 9 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '0':
cla
	if number = 6:
	end
	if number = 5: set num1 = 0 & set number = 6
	if number = 4: set num2 = 0 & set number = 5
	if number = 3: set num3 = 0 & set number = 4
	if number = 2: set num4 = 0 & set number = 3
	if number = 1: set num5 = 0 & set number = 2
	if number = 0: set num6 = 0 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = 'Reset':
cla
set num1 = 0
set num2 = 0
set num3 = 0
set num4 = 0
set num5 = 0
set num6 = 0
set number = 0
gt 'telefon','start'
end


if $ARGS[0] = 'fin':
cla
set num1 = 0
set num2 = 0
set num3 = 0
set num4 = 0
set num5 = 0
set num6 = 0
set number = 0
gt $locM, $metkaM
	!'if housr = 1 and housrA = 1:
	set housrA = 0
	gt 'korr'
	end'
end

--- telefon ---------------------------------