qwlocdog.qsrc 565 B

12345678910111213141516171819202122232425262728
  1. # qwlocdog
  2. cls
  3. minut += 3
  4. menu_off = 1
  5. gs 'stat'
  6. 'You pick up the phone and a female voice answers, "Hello <<$pcs_nickname>>, this is Margaret. Let''s meet up in the cafe."'
  7. act 'No today':
  8. cla
  9. qwdogiventday = daystart
  10. '"Sorry, I have a lot of things on today, Maybe another time.'
  11. '"Okay. I''ll call next week.'
  12. act 'Hang up':dynamic $brodila
  13. end
  14. act 'Sure.':
  15. cla
  16. QWdogReiq = 3
  17. qwdogiventday = daystart
  18. '"Sounds good."'
  19. '"Wonderful. I''ll be waiting in the cafe."'
  20. act 'Hang up':dynamic $brodila
  21. end
  22. --- qwlocdog ---------------------------------