NatBelVhod.qsrc 601 B

12345678910111213141516171819202122232425
  1. # NatBelVhod
  2. CLOSE ALL
  3. menu_off = 1
  4. if BeInNatBelHome = 0:BeInNatBelHome = 1
  5. gs'stat'
  6. GoInside = 1
  7. $byetext=''
  8. if hour <18 and kanikuli = 0 and week <6: $byetext='You knock on the door, but nobody answers.' & GoInside = 0
  9. if hour > 20 : $byetext='It is to late to go to visit.' & GoInside = 0
  10. if hour < 8 : $byetext='It is to early to go to visit.' & GoInside = 0
  11. act 'Leave':gt'pod_ezd','etaj_4'
  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. --- NatBelVhod ---------------------------------