JuliaMilVhod.qsrc 795 B

12345678910111213141516171819202122232425262728
  1. # JuliaMilVhod
  2. CLOSE ALL
  3. menu_off = 1
  4. cla
  5. *clr
  6. if BeInJulMilHome = 0:BeInJulMilHome = 1
  7. gs'stat'
  8. GoInside = 1
  9. $byetext=''
  10. 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
  11. if hour > 20 : $byetext='It''s too late in the day to visit Julia.' & GoInside = 0
  12. if hour < 8 : $byetext='It''s too early in the day to visit Julia.' & GoInside = 0
  13. if GoInside ! 0:
  14. '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!"'
  15. act 'Enter Julia''s apartment':gt'JuliaMilHome'
  16. else
  17. '<<$byetext>>'
  18. end
  19. act 'Move away from the door':gt'pod_ezd','etaj_3'
  20. --- JuliaMilVhod ---------------------------------