shulgahome 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. # shulgahome
  2. !============================!
  3. !----FAMILY HUT Shulgin----!
  4. !============================!
  5. CLOSE ALL
  6. $metkaM = $ARGS[0]
  7. $locM = $CURLOC
  8. $metka = $ARGS[0]
  9. $loc = $CURLOC
  10. !Vasily/Shulga''s dynamic name is randomly chosen in "gopsex"
  11. gs'gopsex'
  12. gs'stat'
  13. !appeal to Sergei Shulgin
  14. if serge_shulgin < 30:$serg_obr = ' uncle'
  15. if serge_shulgin >= 30:$serg_obr = ''
  16. 'You''re at the door to the Shulgin apartment.'
  17. !Entry conditions:
  18. if week < 6 and hour >= 10 and hour < 16:
  19. 'When you ring the doorbell, no one comes to answer the door. Apparently both <<$shulga_name_rnd>> and Sergey are not at home.'
  20. if serge_shulgin >=70: 'You could still enter with the key that Sergey gave you.' & act 'Unlock the door and enter':gt 'shulgahall'
  21. elseif hour >= 16 and hour <= 23:
  22. '<center><img src="images/zsoft/pod_ezd/shulgahome/serge2.jpg"></center>'
  23. 'When you ring the doorbell,<<$serg_obr>> Sergey comes to answer the door.'
  24. '"Oh, hello <<$nickname>>", he shrugs. "If you''re looking for Vasily: he''s not here, and I don''t know when he''ll be back."'
  25. if serge_shulgin >=30: 'He offers: "You can come in anyway, if you want?"' & act 'Enter':gt 'shulgahall'
  26. elseif hour >= 2 and hour < 5:
  27. 'You move your hand to ring the bell, but stop yourself. It''s too late to go visit them, you''d wake everyone up!'
  28. if serge_shulgin >=70: 'You could use the key that Sergey gave you to enter the apartment quietly.' & act 'Unlock the door and enter':gt 'shulgahall'
  29. elseif hour >= 5 and hour < 10:
  30. 'You move your hand to ring the bell, but stop yourself. It''s too early, they won''t be out of bed yet.'
  31. if serge_shulgin >=70: 'You could use the key that Sergey gave you to enter the apartment quietly.' & act 'Unlock the door and enter':gt 'shulgahall'
  32. else
  33. 'The door is opened by <<$shulga_name_rnd>> and you are invited in.' & act 'Enter':gt 'shulgahall'
  34. end
  35. act 'Leave':minut += 1 & gt'pod_ezd','etaj_3'
  36. --- shulgahome ---------------------------------