NatBelVhod.qsrc 597 B

123456789101112131415161718192021222324252627
  1. # NatBelVhod
  2. CLOSE ALL
  3. cla
  4. clr
  5. if BeInNatBelHome = 0:BeInNatBelHome = 1
  6. gs'stat'
  7. GoInside = 1
  8. $byetext=''
  9. if hour <18 and kanikuli = 0 and week <6: $byetext='You knock on the door, but nobody answers.' & GoInside = 0
  10. if hour > 20 : $byetext='It is to late to go to visit.' & GoInside = 0
  11. if hour < 8 : $byetext='It is to early to go to visit.' & GoInside = 0
  12. if GoInside ! 0:
  13. 'You knock on the door. Natasha answers and invites you in.'
  14. act 'Go into the apartment':gt'NatBelHome'
  15. else
  16. '<<$byetext>>'
  17. end
  18. act 'Leave':gt'pod_ezd','etaj_4'
  19. --- NatBelVhod ---------------------------------