qwloc4 700 B

12345678910111213141516171819202122232425
  1. # qwloc4
  2. gs 'stat'
  3. 'You pick up the phone to hear a male voice speaking, "Hello <<$pcs_nickname>>, it''s Vladimir, would you like to meet up to do something?"'
  4. act 'Oh, I have a lot to do today, I''m sorry':
  5. cla
  6. vladimirday = daystart
  7. 'You explain that you simply can''t today, as busy as you are'
  8. '"Okay. Then I''ll call you tomorrow at 4 pm," Vladimir promises.'
  9. act 'Hang up':gt $loc, $metka
  10. end
  11. act 'I''d like that':
  12. cla
  13. vladimirQW = 40
  14. vladimirday = daystart
  15. '"I''d like that," you tell him.'
  16. 'You can hear Vladimir''s pleasure even over the phone. "Wonderful, my driver will come to pick you up."'
  17. act 'Hang up':gt $loc, $metka
  18. end
  19. --- qwloc4 ---------------------------------