lug 2.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116
  1. # lug
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'public_outdoors'
  5. gs'stat'
  6. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/lug.jpg" ></center>'
  7. 'It''s a small but well maintained meadow with evergreen grass, perfect for laying down to rest, have a picnic or just sunbathe. 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 <= pcs_apprnc:
  12. gs'boy'
  13. '<<$boybody>> <<$boybod>> <<$boyface>> comes up to you. He is wearing <<$boyClo>>'
  14. 'The guy introduces himself as <<$boydesc>> and asks for your telephone number.'
  15. act 'Tell him your number':
  16. cla
  17. gs'boyfrend','start'
  18. stopboy = 0
  19. '<<$boydescA>> 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. pcs_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 'lug', 'prut'
  35. end
  36. act 'Going back':
  37. set minut += 5
  38. gt 'parks', 'start'
  39. end
  40. gs 'events', 'street_cum'
  41. if $ARGS[0] = 'prut':
  42. cls
  43. gs'stat'
  44. $location_type = 'public_outdoors'
  45. '<center><B>Park Pond</B></center>'
  46. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/prut.jpg" ></center>'
  47. act 'Go further':
  48. set minut += 10
  49. gt 'lug', 'prut2'
  50. end
  51. act 'Going back':
  52. set minut += 10
  53. gt'lug'
  54. end
  55. end
  56. if $ARGS[0] = 'prut2':
  57. cls
  58. gs'stat'
  59. $location_type = 'public_outdoors'
  60. '<center><B>Park Pond</B></center>'
  61. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/prut2.jpg" ></center>'
  62. act 'Go further':
  63. set minut += 15
  64. gt 'lug', 'luzhayka'
  65. end
  66. if MagikDostup ! 1 and rand (1, 4) <= pcs_magik and (hour <=6 or hour >=19):
  67. if knowsfairy < 1 and fairyskip = 0:
  68. $metka = 'prut2'
  69. xgt 'MagEncounterFairy'
  70. elseif fairyskip = 0:
  71. act 'Go to where the Fairy may be': xgt 'MagEncounterFairy'
  72. end
  73. end
  74. act 'Going back':
  75. set minut += 10
  76. gt 'lug', 'prut'
  77. end
  78. end
  79. if $ARGS[0] = 'luzhayka':
  80. cls
  81. gs'stat'
  82. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/luzhayka.jpg" ></center>'
  83. act 'Go further':
  84. set minut += 15
  85. gt 'lug', 'prut2'
  86. end
  87. act 'Going back':
  88. set minut += 30
  89. gt 'parks', 'start'
  90. end
  91. end
  92. --- lug ---------------------------------