lug.qsrc 5.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195
  1. # lug
  2. if $ARGS[0] = 'start':
  3. $metka = 'start'
  4. $loc = 'lug'
  5. $location_type = 'public_outdoors'
  6. $menu_loc = 'lug'
  7. $menu_arg = 'start'
  8. $locclass = 'park'
  9. menu_off = 0
  10. gs'stat'
  11. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/lug.jpg" ></center>'
  12. '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.'
  13. streetrand = RAND(0,100)
  14. if streetrand >= 60 and pcs_lover < 3:
  15. vnerand = RAND(0,300)
  16. if vnerand <= pcs_apprnc:
  17. gs'boy'
  18. '<<$boybody>> <<$boybod>> <<$boyface>> comes up to you. He is wearing <<$boyClo>>'
  19. 'The guy introduces himself as <<$boydesc>> and asks for your telephone number.'
  20. act 'Tell him your number':
  21. cla
  22. gs'boyfrend', 'start'
  23. stopboy = 0
  24. '<<$loverdesc[lover_number]>> thanks you and leaves.'
  25. act 'Complete outing':gt'lug', 'start'
  26. end
  27. end
  28. end
  29. if pavserhom = 0 and psiha = 0 and home_owned[1] = 0:
  30. temp = RAND(1,100)
  31. if temp >= 90:
  32. pcs_horny += 20
  33. gs'stat'
  34. 'On the path stands a <a href="exec:dynamic $pavserjil">man</a> looking like he is waiting for someone.'
  35. end
  36. end
  37. gs 'kseniyaQW', 'events'
  38. if pcs_inhib >= 35:
  39. act 'Flash your tits':
  40. if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
  41. cls
  42. gs 'exhibitionism', 1
  43. inhib_exp += rand(1,3)
  44. gs 'flash', 'tits', 'outdoors', 5
  45. gs 'stat'
  46. act 'Continue': gt 'lug', 'start'
  47. end
  48. end
  49. if exhibitionist_lvl > 0:
  50. act 'Flash your pussy':
  51. if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
  52. cls
  53. gs 'exhibitionism', 3
  54. gs 'flash', 'pussy', 'outdoors', 5
  55. gs 'stat'
  56. act 'Continue': gt 'lug', 'start'
  57. end
  58. end
  59. act 'Visit the pond':
  60. set minut += 10
  61. gt 'lug', 'prut'
  62. end
  63. act 'Go toward the park entrance':
  64. set minut += 5
  65. gt 'parks', 'start'
  66. end
  67. gs 'events', 'street_cum'
  68. end
  69. if $ARGS[0] = 'prut':
  70. cls
  71. gs'stat'
  72. $location_type = 'public_outdoors'
  73. '<center><B>Park Pond</B></center>'
  74. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/prut.jpg" ></center>'
  75. 'A large and pretty pond near the end of the park, it continues off in to a wooded area.'
  76. act 'Explore the wooded area':
  77. set minut += 10
  78. gt 'lug', 'prut2'
  79. end
  80. act 'Return to the small meadow':
  81. set minut += 10
  82. gt'lug', 'start'
  83. end
  84. end
  85. if $ARGS[0] = 'prut2':
  86. cls
  87. gs'stat'
  88. $location_type = 'public_outdoors'
  89. '<center><B>Woodland Pond</B></center>'
  90. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/prut2.jpg" ></center>'
  91. 'The pond is still and beautiful here and the trees offer some privacy, it feels quite magical.'
  92. 'There is a large field beyond that is hidden from the tourist trail.'
  93. act 'Go to the field':
  94. set minut += 15
  95. gt 'lug', 'luzhayka'
  96. end
  97. act 'Follow the pond back out of the woods':
  98. set minut += 10
  99. gt 'lug', 'prut'
  100. end
  101. ! Setup for teleport circle
  102. if tpKnown['PushkinPark'] = 1:
  103. act 'Enter the hidden circle of trees': gt 'treeCircle', 'PushkinPark'
  104. else
  105. act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'PushkinPark'
  106. end
  107. if MagikDostup ! 1 and rand (1, 4) <= pcs_magik and (hour <=6 or hour >=19):
  108. if knowsfairy < 1 and fairyskip = 0:
  109. $metka = 'prut2'
  110. xgt 'MagEncounterFairy'
  111. elseif fairyskip = 0:
  112. act 'Go to where the Fairy may be': xgt 'MagEncounterFairy'
  113. end
  114. end
  115. if temper >= 15 and month >= 5 and month <= 9:
  116. if pcs_inhib > 30:
  117. act 'Strip off and skinny dip (1:00)':
  118. cla
  119. *clr
  120. cumspclnt = 4
  121. gs 'cum_cleanup'
  122. minut += 60
  123. pcs_sweat = 10 + rand(0,4)
  124. pcs_mood += 5
  125. if pcs_stren < 30: stren_exp += 1
  126. gs 'exhibitionism', 3
  127. gs 'clothing', 'strip'
  128. gs 'underwear', 'remove'
  129. if pcs_horny >= 80 and pcs_inhib >= 60:
  130. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
  131. 'AS you strip off. A couple of passing men do a double-take and pause a moment to look at your sopping wet panties, probably thinking about what is making you so excited. You don''t care about what they might say or think of you and carry on stripping.'
  132. 'Once you are naked you play around and have fun in the pond, enjoying the feel of the warm water on your body. The clean pond water refreshes and invigorates you.'
  133. elseif pcs_inhib >= 60:
  134. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  135. 'Not caring if anyone is looking at you, you slowly take off your clothes. You peel off each item like a stripper. Soon, you are completely naked.'
  136. 'You play around and have fun in the pond, enjoying the feel of the warm water on your naked body. The clean pond water refreshes and invigorates you.'
  137. else
  138. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  139. 'You quickly check to see if anyone is watching, and when you''re satisfied no one is paying you undue attention, you take off your clothes.'
  140. 'You play around and have fun in the pond, enjoying the feel of the warm water on your naked body. The clean pond water refreshes and invigorates you.'
  141. end
  142. act'Get out and dressed':
  143. gs 'underwear', 'wear'
  144. gs 'clothing', 'wear_last_worn'
  145. gt 'lug', 'prut2'
  146. end
  147. end
  148. else
  149. 'It would be a good place for skinny dipping but you''re too worry about what people would think to do such a thing.'
  150. end
  151. end
  152. end
  153. if $ARGS[0] = 'luzhayka':
  154. cls
  155. gs'stat'
  156. '<center><img <<$set_imgh>> src="images/locations/oldtown/park/luzhayka.jpg" ></center>'
  157. 'A quiet hidden field that is well maintained but apart from the occasional grounds keeper you feel like it is all yours.'
  158. act 'Return to the woodland pond':
  159. set minut += 15
  160. gt 'lug', 'prut2'
  161. end
  162. end
  163. --- lug ---------------------------------