210_Gadsarai 863 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  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="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. end
  21. if card=0 and poiskrand=0:
  22. card=1
  23. '"Hmm, what`s this?" think you`ve found a deck of cards.'
  24. end
  25. act'Put in place':gt $curloc
  26. end
  27. if card>0:
  28. act 'Take a deck of cards':
  29. gt'card'
  30. end
  31. end
  32. if horny>=50:
  33. act 'mastrubirovat':
  34. gt'selfplay'
  35. end
  36. end
  37. --- Gadsarai ---------------------------------