Gadsarai 919 B

1234567891011121314151617181920212223242526272829303132333435363738394041
  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:
  19. 'In the locker old magazines Health, Equipment Youth and dusty yellowed books.'
  20. elseif card = 0 and poiskrand = 0:
  21. card = 1
  22. '"Hmm, what''s this?" think you''ve found a deck of cards.'
  23. end
  24. act 'Put in place':gt $curloc
  25. end
  26. if card > 0:
  27. act 'Take a deck of cards':gt 'card'
  28. end
  29. if horny >= 50:
  30. act 'Masturbate':gt 'selfplay'
  31. end
  32. if piratHorny >= 20 and piratfrend >= 10:gt 'pirat'
  33. --- Gadsarai ---------------------------------