Gaddvor 1.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. # Gaddvor
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. CLOSE ALL
  5. if sound = 0:
  6. if month >=11 and month <= 12 or month >=1 and month <=3:
  7. if hour >= 8 and hour <= 23:PLAY 'sound/zima2.mp3',30
  8. if hour >= 0 and hour <= 7:PLAY 'sound/zima2.mp3',30
  9. else
  10. if hour >= 8 and hour <= 23:PLAY 'sound/ptica.mp3',30
  11. if hour >= 0 and hour <= 7:PLAY 'sound/ptica.mp3',30
  12. end
  13. end
  14. '<center><h4>Yard</h4></center>'
  15. '<center><img src="images/qwest/gadukino/dvor.jpg"></center>'
  16. 'Yard with Seat, hut and outbuildings enclosed fence.'
  17. if car > 0 and cardrive = 23:
  18. cardrive = 23
  19. 'Near the fence stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>'
  20. end
  21. clr
  22. gs 'stat'
  23. gs 'outdoors'
  24. act 'Going into the house':minut += 5 & gt 'Gadhouse'
  25. act 'Go to the barn':minut += 5 & gt 'Gadsarai'
  26. act 'Go to the bath':minut += 5 & gt 'Gadbana'
  27. if meadow > 0 and hour >= 6 and hour < 20:act 'Go to the meadow':minut += 20 & gt 'Meadow', 'start'
  28. act '<b>Go to the village</b>':minut += 5 & gt 'gadukino'
  29. if hour >= 17 and hour < 20:
  30. if mitkaday!daystart:'Not far from the hut shies <a href="exec:gt ''mitka''">Mitka kingpin</a>'
  31. elseif hour >= 20:
  32. 'Not far from the village hut sits kampashka <a href="exec:gt ''mitkabuh''">youth</a>'
  33. end
  34. --- Gaddvor ---------------------------------