qwloc2 874 B

123456789101112131415161718192021222324252627282930313233
  1. # qwloc2
  2. gs 'stat'
  3. 'You pick up the phone and a male voice said, "Hello <<$name>>, is Vladimir, remember we are not met for a long time in the park?"'
  4. act 'Hello, of course I remember':
  5. cla
  6. vladimirQW = 21
  7. '(You) - Hey, of course I remember.'
  8. '(Vladimir) - My suggestion is to go to the restaurant is still in force. As you look at it?'
  9. act 'Oh, I have a lot of things, I just can not today.':
  10. cla
  11. vladimirQW = 20
  12. vladimirday = daystart
  13. '(You) - Oh, I have a lot of things, I just can not segdnya.'
  14. '(Vladimir) - Okay. Then I''ll call you tomorrow at 4 pm.'
  15. act 'Hang up':gt $locM, $metkaM
  16. end
  17. act 'I do not mind':
  18. cla
  19. vladimirQW = 21
  20. vladimirday = daystart
  21. '(You) - I do not mind.'
  22. '(Vladimir) - Wonderful. Then come to the restaurant in 20 hours.'
  23. act 'Hang up':gt $locM, $metkaM
  24. end
  25. end
  26. --- qwloc2 ---------------------------------