JuliaMilVhod.qsrc 782 B

123456789101112131415161718192021222324252627
  1. # JuliaMilVhod
  2. CLOSE ALL
  3. cla
  4. *clr
  5. if BeInJulMilHome = 0:BeInJulMilHome = 1
  6. gs'stat'
  7. GoInside = 1
  8. $byetext=''
  9. if hour <18 and kanikuli = 0 and week <6: $byetext='You ring the door bell, but no one comes to answer. Julia must not be home.' & GoInside = 0
  10. if hour > 20 : $byetext='It''s too late in the day to visit Julia.' & GoInside = 0
  11. if hour < 8 : $byetext='It''s too early in the day to visit Julia.' & GoInside = 0
  12. if GoInside ! 0:
  13. 'You ring the door bell. You hear footsteps in the apartment and sure enough, a few seconds later Julia opens the door. "Oh, hi <<$pcs_nickname>>! Come on in!"'
  14. act 'Enter Julia''s apartment':gt'JuliaMilHome'
  15. else
  16. '<<$byetext>>'
  17. end
  18. act 'Move away from the door':gt'pod_ezd','etaj_3'
  19. --- JuliaMilVhod ---------------------------------