gadsarai.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299
  1. # gadsarai
  2. !2021/05/08
  3. if $ARGS[0] = '':
  4. $loc_arg = ''
  5. $loc = 'gadsarai'
  6. $menu_loc = 'gadsarai'
  7. $menu_arg = ''
  8. menu_off = 0
  9. $location_type = 'secluded'
  10. '<center><h4>Grandparents'' Barn</h4></center>'
  11. if month >= 4 and month <= 10:
  12. if hour >= 6 and hour < 22:
  13. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai.jpg"></center>'
  14. else
  15. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_night.jpg"></center>'
  16. end
  17. else
  18. if hour >= 8 and hour < 18:
  19. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter.jpg"></center>'
  20. else
  21. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter_night.jpg"></center>'
  22. end
  23. end
  24. 'Your grandparents old barn that could hold some useful items if you spend some time searching.'
  25. 'The right side of the barn is piled high with various boxes, barrels, and chests of items.'
  26. 'You can store some extra mushrooms and berries here if you don''t want to carry them around all the time.'
  27. 'The left side of the barn has the stalls for your grandparents horse, cow, and boar.'
  28. clr
  29. gs 'stat'
  30. act 'Go back to the yard':minut += 1 & gt 'gaddvor'
  31. if grandpaQW['chore_fetch_firewood'] = 1:
  32. act 'Gather firewood for Grandpa (0:10)':
  33. *clr & cla
  34. if month >= 4 and month <= 10:
  35. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood.jpg"></center>'
  36. else
  37. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood_winter.jpg"></center>'
  38. end
  39. 'You decide to grab the firewood that your grandfather asked for, loading up as much as you can carry.'
  40. grandpaQW['chore_fetch_firewood'] = 2
  41. minut += 10
  42. gs'stat'
  43. act 'Finish':gt 'gadsarai'
  44. act 'Return back to your grandfather': minut += 2 & gt 'gadhouse', 'grandpa'
  45. end
  46. end
  47. gs 'bicycle', 'gadsarai'
  48. if (month < 4 or month > 10) or (hour < 9 or hour > 20) or (grandpaQW['chore_feed_horse'] = 1 or grandpaQW['chore_brush_horse'] = 1 or grandpaQW['chore_lead_horse_to_field'] = 1 or grandpaQW['chore_bathe_horse'] = 1):
  49. act 'Enter the horses stall': gt 'gadsarai', 'horse'
  50. end
  51. if (month < 4 or month > 10) or (hour < 9 or hour > 20) or (grandpaQW['chore_feed_cow'] = 1 or grandmaQW['chore_milk_cow'] or grandpaQW['chore_lead_cow_to_field'] = 1 or grandpaQW['chore_herd_cattle'] = 1):
  52. act 'Enter the cows stall': gt 'gadsarai', 'cow'
  53. end
  54. act 'Enter the boars stall': gt 'gadsarai', 'boar'
  55. act 'Search around in the barn (0:15)': gt 'gadsarai', 'search'
  56. if vcard > 0: act 'View your vintage porn cards': $card_loc = 'gadsarai' & card_deck = 0 & gt 'card'
  57. if card > 0: act 'View your new porn cards': $card_loc = 'gadsarai' & card_deck = 1 & gt 'card'
  58. if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
  59. !! Serpent is not ready yet, so remarking out til then.
  60. !! if findneck = 1: act 'You hear a scraping noice above you.':gt 'serpent'
  61. end
  62. if $ARGS[0] = 'search':
  63. if npc_qw['A221'] > 0 and grigory_barn ! daystart and hour > 8 and hour < 12: gt 'grigory', 'barn'
  64. *clr & cla
  65. minut += 15
  66. gs 'stat'
  67. if BikeLoc = 0 and rand(0,10) >= 6:
  68. *clr & cla
  69. BikeLoc = 1
  70. observ_exp += 3
  71. gs 'stat'
  72. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findbike.jpg"></center>'
  73. *nl
  74. 'In the far corner of the barn you manage to find an old bicycle. It''s in surprisingly good condition. You pull it out of the barn and clean it up.'
  75. elseif findbag = 0 and bag = 0 and rand(0,10) >= 7:
  76. *clr & cla
  77. findbag = 1
  78. if findbag = 1: bag = 1
  79. observ_exp += 3
  80. gs 'stat'
  81. '<center><img <<$set_imgh>> src="images/pc/items/gm/purses/5.jpg"></center>'
  82. *nl
  83. 'In a far corner of the barn you find a hessian sack filled with mostly junk, but at the bottom you find a good quality messenger bag.'
  84. 'You can use this cool looking bag as a handbag.'
  85. gm_purses[5] = 1
  86. $currentpursetype = 'gm'
  87. currentpursenumber = 5
  88. elseif vcard = 0 and vcard_trash = 0 and rand(0,10) >= 8:
  89. *clr & cla
  90. vcard = 1
  91. observ_exp += 3
  92. gs 'stat'
  93. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/vcards.jpg"></center>'
  94. *nl
  95. '"Hmm, what''s this?" You''ve found an unopened deck of vintage adult playing cards, still in its original cellophone wrapper.'
  96. elseif findbraclet = 0 and rand(0,10) >= 9:
  97. *clr & cla
  98. findbraclet = 1
  99. observ_exp += 3
  100. gs 'stat'
  101. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bracelet.jpg"></center>'
  102. *nl
  103. 'While looking through the barn you spot a glint of metal under a pile of wood. Upon closer inspection you see a bracelet made of silver and crafted into the likeness of a snake. Strange, but cool that you would find something this valuable in the barn.'
  104. elseif findbraclet > 0 and findneck = 0 and rand(0,10) >= 10:
  105. *clr & cla
  106. findneck = 1
  107. observ_exp += 3
  108. gs 'stat'
  109. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/necklace.jpg"></center>'
  110. *nl
  111. if altQS = 1:
  112. 'While looking through the barn your foot goes through a rotten floorboard. You suddenly feel the presence of something magical under the floor. You get on your belly and look through the hole in the floor. You find a small box made of a black wood. You pick up the box and see the box is covered in a strange writing and glyphs that look like serpents. The feeling of power is coming from within the box. You lift the lid of the box and see a black metal necklace that looks like a coiled snake with ruby eyes. You feel the power coming from the necklace, but it doesn''t feel like any power you have ever felt.'
  113. else
  114. 'While looking through the barn your foot goes through a rotten floorboard and gets stuck. As you work your foot free, you glimpse something underneath the floor - a box or something. You get on your belly and look through the hole in the floor. You find a small box made of a black wood. You pick up the box and see the box is covered in a strange writing and glyphs that look like serpents. The exotic look of the box gives you gooseflesh and you find yourself holding your breath as you prepare to open the box. You lift the lid of the box and see a black metal necklace that looks like a coiled snake with ruby eyes. You let your breath out slowly as you tilt the necklace from side to side, watching the light sparkle as it is reflected by the facets on the deep red rubies. You cannot begin to guess what this necklace must be worth.'
  115. end
  116. else
  117. observ_exp += rand(0,1)
  118. gs 'stat'
  119. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
  120. *nl
  121. 'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
  122. end
  123. act 'Finish':gt 'gadsarai'
  124. end
  125. if $ARGS[0] = 'horse':
  126. *clr & cla
  127. minut += 1
  128. gs 'stat'
  129. '<center><h4>Grandparents'' Barn</h4></center>'
  130. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse.jpg"></center>'
  131. 'Grandfather''s trusted workhorse, Desperado.'
  132. act 'Leave':minut += 1 & gt 'gadsarai'
  133. if grandpaQW['chore_feed_horse'] = 1:
  134. act 'Feed the horse (0:30)':
  135. *clr & cla
  136. minut += 30
  137. grandpaQW['chore_feed_horse'] = 2
  138. hndiwrk_exp += rand(1,3)
  139. gs 'stat'
  140. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_horse.jpg"></center>'
  141. 'You grab a sack of grain and fill Desperado''s feed bucket. You hang the bucket from his stall and gently pat his nose as he begins to eat.'
  142. 'You watch him eat for a little while before moving on.'
  143. act 'Finish':gt 'gadsarai','horse'
  144. act 'Return back to your grandfather': minut += 3 & gt 'gadhouse', 'grandpa'
  145. end
  146. end
  147. if grandpaQW['chore_lead_horse_to_field'] = 1:
  148. act 'Lead the horse to the field (1:00)':
  149. *clr & cla
  150. minut += 60
  151. grandpaQW['chore_lead_horse_to_field'] = 2
  152. hndiwrk_exp += rand(1,3)
  153. gs 'stat'
  154. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
  155. 'You take Desperado by the bridle and lead him to the field. There, you let him free in the paddock area, and watch him run about for a bit before moving on.'
  156. act 'Continue':gt'gadfield','field'
  157. act 'Return back to your grandfather (0:30)': minut += 30 & gt 'gadhouse', 'grandpa'
  158. end
  159. end
  160. if grandpaQW['chore_bathe_horse'] = 1:
  161. act 'Lead the horse to the river (0:30)':
  162. *clr & cla
  163. minut += 30
  164. grandpaQW['chore_bathe_horse_prog'] = 1
  165. hndiwrk_exp += rand(1,3)
  166. gs 'stat'
  167. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
  168. 'You take Desperado by the bridle and lead him to the river.'
  169. act 'Continue':gt'gadriver', 'gadbitch'
  170. end
  171. end
  172. if grandpaQW['chore_bathe_horse'] = 2:
  173. act 'Return back to your grandfather': minut += 3 & gt 'gadhouse', 'grandpa'
  174. end
  175. if grandpaQW['chore_brush_horse'] = 1:
  176. act 'Groom the horse (1:00)':
  177. *clr & cla
  178. minut += 60
  179. grandpaQW['chore_brush_horse'] = 2
  180. hndiwrk_exp += rand(1,3)
  181. gs 'stat'
  182. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/comb_horse.jpg"></center>'
  183. 'You spend about an hour cleaning and brushing Desperado, scrubbing his coat and brushing his mane and tail. You are satisfied with the result - he is looking as clean and healthy as ever.'
  184. act 'Finish':gt 'gadsarai','horse'
  185. act 'Return back to your grandfather': minut += 3 & gt 'gadhouse', 'grandpa'
  186. end
  187. end
  188. end
  189. if $ARGS[0] = 'cow':
  190. *clr & cla
  191. minut += 1
  192. gs 'stat'
  193. '<center><h4>Grandparents'' Barn</h4></center>'
  194. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow.jpg"></center>'
  195. *nl
  196. 'Grandma''s favorite animal, the cow, Dawn.'
  197. act 'Leave':minut += 1 & gt 'gadsarai'
  198. if grandmaQW['chore_milk_cow'] = 1:
  199. act 'Milk the cow (0:30)':
  200. *clr & cla
  201. minut += 30
  202. grandmaQW['chore_milk_cow'] = 2
  203. hndiwrk_exp += rand(1,3)
  204. gs 'stat'
  205. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/milk_cow.jpg"></center>'
  206. 'You start milking Dawn, improving for each time you do it.'
  207. act 'Finish':gt 'gadsarai','cow'
  208. act 'Return back to your grandmother': minut += 3 & gt 'gadhouse', 'grandma'
  209. end
  210. end
  211. if grandpaQW['chore_feed_cow'] = 1:
  212. act 'Feed the cow (0:30)':
  213. *clr & cla
  214. minut += 30
  215. grandpaQW['chore_feed_cow'] = 2
  216. hndiwrk_exp += rand(1,3)
  217. gs 'stat'
  218. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_cow.jpg"></center>'
  219. 'Dawn is obviously excited about feeding time, shaking her head and doing little cow tippy-taps with her feet. You dump a sizable amount of hay in her trough and watch as she digs in.'
  220. act 'Finish':gt 'gadsarai','cow'
  221. act 'Return back to your grandfather': minut += 3 & gt 'gadhouse', 'grandpa'
  222. end
  223. end
  224. if grandpaQW['chore_lead_cow_to_field'] = 1 or grandpaQW['chore_herd_cattle'] = 1:
  225. act 'Lead the cow to the field (1:00)':
  226. *clr & cla
  227. minut += 60
  228. hndiwrk_exp += rand(1,3)
  229. gs 'stat'
  230. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_field.jpg"></center>'
  231. if grandpaQW['chore_lead_cow_to_field'] = 1:
  232. 'You lead Dawn to the field, where you let the shepherds take over.'
  233. grandpaQW['chore_lead_cow_to_field'] = 2
  234. end
  235. if grandpaQW['chore_herd_cattle'] = 1:'You lead Dawn to the field, where you grandfather awaits you. It''s his turn to keep an eye on the cows.'
  236. act 'Continue':gt'gadfield','cow'
  237. if grandpaQW['chore_lead_cow_to_field'] = 2: act 'Return back to your grandfather (0:30)': minut += 30 & gt 'gadhouse', 'grandpa'
  238. end
  239. end
  240. end
  241. if $ARGS[0] = 'boar':
  242. *clr & cla
  243. minut += 1
  244. gs 'stat'
  245. '<center><h4>Grandparents'' Barn</h4></center>'
  246. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/boar.jpg"></center>'
  247. 'One of your grandparents'' dearest possessions, the boar, Nickle.'
  248. act 'Leave':minut += 1 & gt 'gadsarai'
  249. if grandpaQW['chore_feed_boar'] = 1:
  250. act 'Feed the hog (0:30)':
  251. *clr & cla
  252. minut += 30
  253. grandpaQW['chore_feed_boar'] = 2
  254. hndiwrk_exp += rand(1,3)
  255. gs 'stat'
  256. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_boar.jpg"></center>'
  257. 'You grab the feed bag and fill Nickle''s trough. You stand there and watch for a few minutes as he eats like a... well, like a pig.'
  258. act 'Finish':gt 'gadsarai','boar'
  259. act 'Return back to your grandfather': minut += 3 & gt 'gadhouse', 'grandpa'
  260. end
  261. end
  262. end
  263. --- gadsarai ---------------------------------