Gaddvor 801 B

1234567891011121314151617181920212223
  1. # Gaddvor
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. '<center><h4>Yard</h4></center>'
  5. '<center><img src="images/qwest/gadukino/dvor.jpg"></center>'
  6. 'Yard with Seat, hut and outbuildings enclosed fence.'
  7. clr
  8. gs 'stat'
  9. gs 'time'
  10. act 'Going into the house':minut += 5 & gt 'Gadhouse'
  11. act 'Go to the barn':minut += 5 & gt 'Gadsarai'
  12. act 'Go to the bath':minut += 5 & gt 'Gadbana'
  13. if meadow > 0 and hour >= 6 and hour < 20:act 'Go to the meadow':minut += 20 & gt 'Meadow'
  14. act '<b>Go to the village</b>':minut += 5 & gt 'gadukino'
  15. if hour >= 17 and hour < 20:
  16. if mitkaday!daystart:'Not far from the hut shies <a href="exec:gt ''mitka''">Mitka kingpin</a>'
  17. elseif hour >= 20:
  18. 'Not far from the village hut sits kampashka <a href="exec:gt ''mitkabuh''">youth</a>'
  19. end
  20. --- Gaddvor ---------------------------------