# qwloc
$qwnamedy = {
	act '<<$name>>':
		cla
		vladimirQW = 10
		'(You) - <<$name>>'
		'(Vladimir) - Beautiful name to match you. I unfortunately have to go, but would like to meet with you again. Go to the restaurant to talk. Leave me your phone number, I´ll call you tomorrow.'

		act 'No (Go)':
			cla
			vladimirQW = 2
			'You turned on the man and went away from him.'

			act 'Leave':gt 'park', 'luna'
		end

		act 'Dictate the phone number':
			cla
			vladimirQW = 20
			vladimirday = day
			'You dictated phone Vladimir and he wrote it down in a small notebook in leather cover.'

			act 'Leave':gt 'park', 'luna'
		end
	end
}

$qwvladdy = {
	'(Male) - Hello. Vladimir I, I loved you, I would like pointeresovatsya your name.'
	dynamic $qwnamedy

	act 'Sorry, I´m busy.':
		cla
		vladimirQW = 1
		'(You) - Sorry, I´m busy.'
		'(Vladimir) - Well, what are you? I will not bite. Just want to know the name from the charming stranger.'
		dynamic $qwnamedy

		act 'Yet I go (Go)':
			cla
			vladimirQW = 2
			'You turned on the man and went away from him.'

			act 'Leave':gt 'park', 'luna'
		end
	end
}

minut += 5
gs 'stat'
gs 'time'
'<center><b><font color="maroon">Man</font></b></center>'
'<center><img src="images/qwest/vladimir/001.jpg"></center>'

if mop > 1 and hapri = 1:
	'Man standing near the fence and noticed your opinion you smiled.'

	act 'Come to a man':
		cla
		'You went to the man and he went away from the fence toward you.'
		dynamic $qwvladdy
	end

	act 'Smile':
		cla
		'You the man smiled at him and he went away from the fence toward you.'
		dynamic $qwvladdy
	end

	act 'Unscrew':
		cla
		'You turned away from the man and heard in his footsteps behind him.'
		dynamic $qwvladdy
	end
else
	'The man looked at you and turned away.'

	act 'Leave':gt 'park', 'luna'
end

--- qwloc ---------------------------------
