qwloc4 629 B

12345678910111213141516171819202122232425
  1. # qwloc4
  2. gs 'stat'
  3. 'You pick up the phone and a male voice said, "Hello <<$name>>, is Vladimir, can converge to something?"'
  4. act 'Oh, I have a lot of things, I just can not today':
  5. cla
  6. vladimirday = daystart
  7. '(You) - Oh, I have a lot of things, I just can not segdnya.'
  8. '(Vladimir) - Okay. Then I''ll call you tomorrow at 4 pm.'
  9. act 'Hang up':gt $locM, $metkaM
  10. end
  11. act 'I do not mind':
  12. cla
  13. vladimirQW = 40
  14. vladimirday = daystart
  15. '(You) - I do not mind.'
  16. '(Vladimir) - Wonderful. Now for you to come my driver and drive Thank you.'
  17. act 'Hang up':gt $locM, $metkaM
  18. end
  19. --- qwloc4 ---------------------------------