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