# 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 ---------------------------------