gaddvor.qsrc 5.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155
  1. # gaddvor
  2. if $ARGS[0]='':
  3. music_loop = 0
  4. $metka = ''
  5. $loc = 'gaddvor'
  6. $location_type = 'public_outdoors'
  7. $menu_loc = 'gaddvor'
  8. $menu_arg = ''
  9. menu_off = 0
  10. killvar '$locclass'
  11. gs 'stat'
  12. CLOSE ALL
  13. gs 'gadukino_event', 'sound'
  14. if hour >= 6 and hour < 22:
  15. if grandmaQW['nudity_trouble'] = 10:
  16. *clr & cla
  17. menu_off = 1
  18. grandmaQW['nudity_trouble'] = 0
  19. '<center><h4>Your grandparents'' yard</h4></center>'
  20. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma_trouble.jpg"></center>'
  21. 'Suddenly your grandmother approaches you with disappointed look on her face. "I had higher expectations of you young lady! You should be ashamed of yourself running around outdoors without clothes. You have embarrassed me AND your grandfather! Unlike you, we have to live in this village, and with the people in it. If you keep this up, I''ll be cutting your time here short and sending you back to your mother, and she can deal with your sinful behaviour. Go and get dressed immediately!" She then walks off. You are too ashamed to say anything.'
  22. act 'Continue': gt 'gaddvor'
  23. exit
  24. end
  25. end
  26. if StoryLine = 1:
  27. '<center><h4>Your grandparents'' yard</h4></center>'
  28. else
  29. '<center><h4>Old couple''s yard</h4></center>'
  30. end
  31. if month >= 4 and month <= 10:
  32. if hour >= 6 and hour < 22:
  33. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor.jpg"></center>'
  34. else
  35. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_night.jpg"></center>'
  36. end
  37. else
  38. if hour >= 8 and hour < 18:
  39. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_winter.jpg"></center>'
  40. else
  41. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_winter_night.jpg"></center>'
  42. end
  43. end
  44. if StoryLine = 1:
  45. 'A fenced yard behind your grandparents'' house. The yard is surrounded by a small barn packed with junk and a separate building that is used as a banya where you can take a bath. On the back porch are a few chairs to sit in.'
  46. else
  47. 'A fenced yard behind the house. The yard is surrounded by a small barn packed with junk and a separate building that is used as a banya where people take a bath. On the back porch are a few chairs to sit in.'
  48. end
  49. if $clothingworntype = 'nude':
  50. *nl
  51. 'You are naked and can only go into your grandparent''s house to get dressed or go to the banya.'
  52. act 'Enter your grandparents'' house':minut += 1 & gt 'gadhouse', 'start'
  53. act 'Enter the banya':minut += 1 & gt 'gadbana'
  54. else
  55. if grandmaQW['chore_feed_chickens'] = 1 or (hour >= 6 and hour < 20 and month >= 4 and month <= 10):'In the yard there are several <a href="exec:gt ''gaddvor'',''chickens''">chickens</a> running around.'
  56. if mira_guest = 1: Miraloc = 7 & 'Your friend <a href="exec: gt ''miroslava'', ''Start''">Mira</a> stands next to you.'
  57. act '<b>Leave and go into the village</b>':minut += 5 & gt 'gadukino'
  58. if grandpaQW['chore_clean_yard'] = 1:
  59. act 'Clean up the yard for Grandpa (1:00)':
  60. *clr & cla
  61. if month >= 4 and month <= 10:
  62. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  63. 'Armed with a rake, you begin cleaning the yard. You''re pleased seeing the yard clean. You return the rake to the shed and continue on with your business.'
  64. else
  65. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  66. 'Armed with a shovel, you begin clearing the yard of snow. You''re pleased with yourself seeing the courtyard is free of snow. You return the shovel to the shed and continue on with your business.'
  67. end
  68. minut += 60
  69. grandpaQW['chore_clean_yard'] = 0
  70. grandmaQW['help_amount'] += 1
  71. if month >= 4 and month <= 10:
  72. fat -= rand(1,3)
  73. else
  74. stren_exp += 1
  75. fat -= rand(1,5)
  76. end
  77. gs'stat'
  78. act 'Continue':gt'gaddvor'
  79. end
  80. end
  81. if StoryLine = 1:
  82. act 'Enter your grandparents'' house':minut += 1 & gt 'gadhouse', 'start'
  83. act 'Enter the banya':minut += 1 & gt 'gadbana'
  84. end
  85. act 'Go to the barn':minut += 1 & gt 'gadsarai'
  86. act 'Go to the garden':minut += 1 & gt'gadgarden','garden'
  87. mira_temp = rand(1,5)
  88. if mira_temp = 3 and hour >= 9 and hour <= 19 and npc_rel['A60'] >= 15 and Mira_no = 0 and sunWeather = 1 and mira_guestday ! daystart and (npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1):
  89. *clr & cla
  90. menu_off = 1
  91. gs 'miroslava', 'miraclothes'
  92. 'You went out into the yard and noticed Mira standing there.'
  93. '"Oh, <<$pcs_nickname>> hi, hope you don’’t mind me visiting. I was bored being home alone." she said smiling.'
  94. mira_guestday = daystart
  95. minut += 5
  96. mira_guest = 1
  97. gs 'stat'
  98. act 'Continue':gt'gaddvor'
  99. end
  100. end
  101. clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
  102. if clothesAtLocation = 1:
  103. if $clothingworntype = 'nude':
  104. act 'Get dressed':
  105. gs 'clothing', 'recover_lost_clothes', 'gaddvor', 1
  106. gs 'underwear', 'wear'
  107. gt 'gaddvor'
  108. end
  109. else
  110. act 'Pick up your clothes':
  111. gs 'clothing', 'recover_lost_clothes', 'gaddvor'
  112. 'You picked up your clothes.'
  113. gt 'gaddvor'
  114. end
  115. end
  116. end
  117. end
  118. if $ARGS[0] = 'chickens':
  119. *clr & cla
  120. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/chickens1.jpg"></center>'
  121. 'Ordinary chickens clucking about their pen.'
  122. minut += 1
  123. gs 'stat'
  124. !job Granny
  125. if grandmaQW['chore_feed_chickens'] = 1:
  126. act 'Feed the chickens':
  127. *clr & cla
  128. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/chickens2.jpg"></center>'
  129. 'You decide to feed the chickens. You pick up a bucket full of bird''s seed and grain mix and toss it on the ground. They immediately rush over and start to greedily eat. You watch them for a bit before you go about your business.'
  130. minut += 30
  131. grandmaQW['help_amount'] += 1
  132. grandmaQW['chore_feed_chickens'] = 0
  133. hndiwrk_exp += rand(0,3)
  134. gs 'stat'
  135. act 'Finish':gt'gaddvor'
  136. end
  137. end
  138. act 'Leave': gt'gaddvor'
  139. end
  140. --- gaddvor ---------------------------------