gadsarai.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326
  1. # gadsarai
  2. if $ARGS[0] = '':
  3. $metka = ''
  4. $loc = 'gadsarai'
  5. $menu_loc = 'gadsarai'
  6. $menu_arg = ''
  7. menu_off = 0
  8. $location_type = 'secluded'
  9. '<center><h4>Old Barn</h4></center>'
  10. if month >= 4 and month <= 10:
  11. if hour >= 6 and hour < 22:
  12. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai.jpg"></center>'
  13. else
  14. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_night.jpg"></center>'
  15. end
  16. else
  17. if hour >= 8 and hour < 18:
  18. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter.jpg"></center>'
  19. else
  20. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter_night.jpg"></center>'
  21. end
  22. end
  23. 'An old junk filled barn that could hold some useful items.'
  24. if month > 4 and month < 10:
  25. if hour > 9 and hour < 20:
  26. 'On your right is a cattle barn.'
  27. else
  28. 'On your right is a <a href="exec: gt ''gadsarai'',''cow'' ">cattle</a> barn.'
  29. end
  30. if hour > 9 and hour < 20 and week < 6 or horse_river = 2:
  31. 'On your left is a horse stable.'
  32. else
  33. 'On your left is a <a href="exec: gt ''gadsarai'',''horse'' ">horse</a> stable.'
  34. end
  35. else
  36. 'On your right is a <a href="exec: gt ''gadsarai'',''cow'' ">cattle</a> barn.'
  37. 'On your left is a <a href="exec: gt ''gadsarai'',''horse'' ">horse</a> stable.'
  38. end
  39. 'There''s a <a href="exec: gt ''gadsarai'',''boar'' ">boar</a> living in a separate stable.'
  40. if findvel = 1:'You see an old <a href="exec:gt ''bicycle'',''sarai''">bike</a> in the corner.'
  41. clr
  42. gs 'stat'
  43. act 'Leave':minut += 1 & gt 'gaddvor'
  44. act 'Poke around in the barn':
  45. if npc_qw['A221'] > 0 and grigory_barn ! daystart and hour > 8 and hour < 12: gt 'grigory', 'barn'
  46. *clr & cla
  47. minut += 15
  48. gs 'stat'
  49. if vcard = 0 and vcard_trash = 0:
  50. *clr & cla
  51. if rand(0,5) >= 4:
  52. gs 'stat'
  53. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/vcards.jpg"></center>'
  54. '"Hmm, what''s this?" You''ve found an unopened deck of vintage adult playing cards, still in its original cellophone wrapper.'
  55. vcard = 1
  56. observ_exp += 3
  57. else
  58. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
  59. '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.'
  60. end
  61. act 'Leave and get some fresh air':gt 'gadsarai'
  62. elseif findvel = 0:
  63. *clr & cla
  64. if rand(0,8) >= 7:
  65. gs 'stat'
  66. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findbike.jpg"></center>'
  67. '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.'
  68. findvel = 1
  69. observ_exp += 3
  70. else
  71. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
  72. '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.'
  73. end
  74. act 'Leave and get some fresh air':gt 'gadsarai'
  75. elseif findbag = 0 and bag = 0:
  76. *clr & cla
  77. if rand(0,10) > 9:
  78. findbag = 1
  79. observ_exp += 3
  80. gs 'stat'
  81. '<center><img <<$set_imgh>> src="images/pc/purses/cheap/5.jpg"></center>'
  82. '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.'
  83. cheap_purses[5] = 1
  84. $currentpursetype = 'cheap'
  85. currentpursenumber = 5
  86. 'You can use this cool looking bag as a handbag.'
  87. else
  88. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
  89. '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.'
  90. end
  91. act 'Leave and get some fresh air':
  92. if findbag = 1: bag = 1
  93. gt 'gadsarai'
  94. end
  95. elseif findbraclet = 0:
  96. *clr & cla
  97. if rand(0,15) >= 14:
  98. gs 'stat'
  99. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bracelet.jpg"></center>'
  100. '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.'
  101. findbraclet = 1
  102. observ_exp += 3
  103. else
  104. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
  105. '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.'
  106. end
  107. act 'Leave and get some fresh air':gt 'gadsarai'
  108. elseif findbraclet > 0 and findneck = 0:
  109. *clr & cla
  110. if rand(0,20) >= 19:
  111. gs 'stat'
  112. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/necklace.jpg"></center>'
  113. if altQS = 1:
  114. '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.'
  115. else
  116. '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.'
  117. end
  118. findneck = 1
  119. observ_exp += 3
  120. else
  121. *clr & cla
  122. gs 'stat'
  123. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
  124. '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.'
  125. end
  126. act 'Leave and get some fresh air':gt 'gadsarai'
  127. else
  128. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
  129. '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.'
  130. act 'Leave and get some fresh air':gt 'gadsarai'
  131. end
  132. end
  133. if vcard > 0: act 'View your vintage porn cards': $card_loc = 'gadsarai' & card_deck = 0 & gt 'card'
  134. if card > 0: act 'View your new porn cards': $card_loc = 'gadsarai' & card_deck = 1 & gt 'card'
  135. if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
  136. !! Serpent is not ready yet, so remarking out til then.
  137. !! if findneck = 1:
  138. !! act 'You hear a scrapping noice above you.':gt 'serpent'
  139. !! end
  140. !! if sunWeather = 1:
  141. !! if findvel = 1 and velday ! daystart:
  142. !! 'You decide to spend awhile riding the <a href="exec: gt ''events'', ''cycling''">bicycle</a> around.'
  143. !! end
  144. !! end
  145. end
  146. if $ARGS[0] = 'boar':
  147. *clr & cla
  148. minut += 1
  149. gs 'stat'
  150. '<center><H4>The barn</H4></center>'
  151. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/boar.jpg"></center>'
  152. 'One of your grandparents dearest possessions, the boar Nickle.'
  153. if feed_boar = 1:
  154. act 'Feed the boar':
  155. cla
  156. *clr
  157. minut += 30
  158. grandmahelp += 1
  159. feed_boar = 0
  160. hndiwrk_exp += rand(0,3)
  161. gs 'stat'
  162. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_boar.jpg"></center>'
  163. 'You fed Nickle and went on about your business.'
  164. act 'Finish':gt 'gadsarai','boar'
  165. end
  166. end
  167. act 'Go':minut += 5 & gt'gadsarai'
  168. end
  169. if $ARGS[0] = 'cow':
  170. *clr & cla
  171. minut += 1
  172. gs 'stat'
  173. '<center><H4>The barn</H4></center>'
  174. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow.jpg"></center>'
  175. 'Grandma''s favorite animal, the cow Dawn.'
  176. if milk_cow = 1:
  177. act 'Milk the cow':
  178. cla
  179. *clr
  180. minut += 30
  181. milk_cow = 0
  182. grandmahelp += 1
  183. hndiwrk_exp += rand(0,3)
  184. gs 'stat'
  185. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/milk_cow.jpg"></center>'
  186. 'You start milking Dawn, improving for each time you do it.'
  187. act 'Finish':gt 'gadsarai','cow'
  188. end
  189. end
  190. if feed_cow = 1:
  191. act 'Feed the cow':
  192. cla
  193. *clr
  194. minut += 30
  195. feed_cow = 0
  196. grandmahelp += 1
  197. hndiwrk_exp += rand(0,3)
  198. gs 'stat'
  199. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_cow.jpg"></center>'
  200. 'You fed Dawn and continued on with your day.'
  201. act 'Finish':gt 'gadsarai','cow'
  202. end
  203. end
  204. if cow_field = 1 or graze_cow = 1:
  205. act 'Lead the cow to the field':
  206. cla
  207. *clr
  208. minut += 60
  209. cow_field = 0
  210. grandmahelp += 1
  211. hndiwrk_exp += rand(0,3)
  212. gs 'stat'
  213. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_field.jpg"></center>'
  214. if cow_field = 1:'You lead Dawn to the field, where you let the shepherds take over.'
  215. if graze_cow = 1:'You lead Dawn to the field, where you grandfather awaits you. It''s his turn to keep an eye on the cows.'
  216. act 'Continue':gt'gadfield','cow'
  217. end
  218. end
  219. act 'Go':minut += 5 & gt'gadsarai'
  220. end
  221. if $ARGS[0] = 'horse':
  222. *clr & cla
  223. minut += 1
  224. gs 'stat'
  225. '<center><H4>The barn</H4></center>'
  226. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse.jpg"></center>'
  227. 'Grandfather trusted assistant, the horse Desperado.'
  228. if feed_horse = 1:
  229. act 'Feed the horse':
  230. cla
  231. *clr
  232. minut += 30
  233. feed_horse = 0
  234. grandmahelp += 1
  235. hndiwrk_exp += rand(0,3)
  236. gs 'stat'
  237. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_horse.jpg"></center>'
  238. 'You fed Desperado and went on about your business.'
  239. act 'Finish':gt 'gadsarai','horse'
  240. end
  241. end
  242. if horse_field = 1:
  243. act 'Lead the horse to the field':
  244. cla
  245. *clr
  246. minut += 60
  247. horse_field = 0
  248. grandmahelp += 1
  249. hndiwrk_exp += rand(0,3)
  250. gs 'stat'
  251. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
  252. 'You took Desperado by the bridle and led it to the field. There, you let it run free in the paddock area, and went on with your business.'
  253. act 'Continue':gt'gadfield','field'
  254. end
  255. end
  256. if horse_river = 1 and sunWeather = 1 and temper >= 15:
  257. act 'Lead the horse to the river':
  258. cla
  259. *clr
  260. minut += 30
  261. horse_river = 2
  262. hndiwrk_exp += rand(0,3)
  263. gs 'stat'
  264. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
  265. 'You took Desperado by the bridle and led it to the river.'
  266. act 'Continue':gt'gadriver', 'gadbitch'
  267. end
  268. end
  269. if comb_horse = 1:
  270. act 'Groom the horse':
  271. cla
  272. *clr
  273. minut += 60
  274. comb_horse = 0
  275. grandmahelp += 1
  276. hndiwrk_exp += rand(0,3)
  277. gs 'stat'
  278. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/comb_horse.jpg"></center>'
  279. 'You groom Desperado for an hour. When finished, you''re satisfied with the result. Desperado is looking as healthy as ever.'
  280. act 'Continue':gt 'gadsarai','horse'
  281. end
  282. end
  283. act 'Go':minut += 5 & gt'gadsarai'
  284. end
  285. --- gadsarai ---------------------------------