lug 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. # lug
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. gs'stat'
  5. gs 'outdoors'
  6. '<center><img src="images/pic/lug.jpg" ></center>'
  7. 'A small but well maintained meadow with evergreen grass to rest, picnic or just sunbath. Mothers with small children regularly visit this place.'
  8. streetrand = RAND(0,100)
  9. if streetrand >= 10 and bfa < 1:
  10. vnerand = RAND(0,300)
  11. if vnerand <= vnesh:
  12. gs'boy'
  13. '<<$boybody>> <<$boybod>> <<$boyface>> comes up to you. He is wearing <<$boyClo>>'
  14. 'The guy introduces himself as <<$boy>> and asks for your telephone number.'
  15. act 'Tell him your number':
  16. cla
  17. gs'boyfrend','start'
  18. stopboy = 0
  19. '<<$boyA>> thanks you and leaves.'
  20. act 'Complete outing':gt'lug'
  21. end
  22. end
  23. end
  24. if pavserhom = 0 and psiha = 0 and housr = 0:
  25. temp = RAND(1,100)
  26. if temp >= 90:
  27. horny += 20
  28. gs'stat'
  29. 'On the path stands a <a href="exec:dynamic $pavserjil">man</a> looking like he is waiting for someone.'
  30. end
  31. end
  32. act 'Go further':
  33. set minut += 10
  34. gt'prut'
  35. end
  36. act 'Going back':
  37. set minut += 5
  38. gt'parks'
  39. end
  40. gs 'events', 'street_cum'
  41. --- lug ---------------------------------