Gadsarai 858 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. # Gadsarai
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. '<center><h4>cottage</h4></center>'
  7. '<center><img src="images/qwest/gadukino/sarai.jpg"></center>'
  8. 'Old barn that holds tools. Sitting near the barn <a href="exec:gt ''pirat''">dog named Pirate</a>'
  9. clr
  10. gs 'stat'
  11. gs 'time'
  12. act 'Go outside':minut += 5 & gt 'Gaddvor'
  13. act 'Picking in the barn':
  14. cls
  15. minut += 15
  16. gs 'stat'
  17. poiskrand = rand(0, 5)
  18. if card > 0 and poiskrand = 0 or poiskrand > 0:'In the locker old magazines Health, Equipment Youth and dusty yellowed books.'
  19. if card = 0 and poiskrand = 0:
  20. card = 1
  21. '"Hmm, what`s this?" think you`ve found a deck of cards.'
  22. end
  23. act 'Put in place':gt $curloc
  24. end
  25. if card > 0:
  26. act 'Take a deck of cards':gt 'card'
  27. end
  28. if horny >= 50:
  29. act 'Masturbate':gt 'selfplay'
  30. end
  31. --- Gadsarai ---------------------------------