grandpahelp.qsrc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312
  1. # grandpahelp
  2. menu_off = 1
  3. gs'stat'
  4. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  5. 'You walk up to your grandfather and ask if he needs any help. Grandpa thinks for a moment and says:'
  6. if month <= 4 or month >= 10:
  7. grandpahelping = RAND(0,5)
  8. elseif month = 5:
  9. grandpahelping = RAND(3,8)
  10. elseif month = 6 or month = 9:
  11. grandpahelping = RAND(3,12)
  12. else
  13. grandpahelping = RAND(3,13)
  14. end
  15. !month >= 1 and month < 5 and month > 9
  16. if grandpahelping = 0:
  17. '"- <<$pcs_nickname>>, could you bring firewood for the stove?"'
  18. act 'Fetch firewood (0:15)':
  19. *clr & cla
  20. if month >= 4 and month <= 10:
  21. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood.jpg"></center>'
  22. else
  23. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood_winter.jpg"></center>'
  24. end
  25. 'You put on some warm clothes and run over to the barn to collect some firewood. '
  26. '"- I''ve brought some firewood grandfather," you said to your grandfather.'
  27. '"- You are very quick <<$pcs_nickname>>." he replies with a smile. "- That''s today''s youth for ya. There is no more work today."'
  28. minut += 15
  29. grandmahelp += 1
  30. gs'stat'
  31. act 'Go':gt'Gadhouse'
  32. end
  33. elseif grandpahelping = 1:
  34. '"- <<$pcs_nickname>>, I need you to go to the barn and feed Desperado."'
  35. act 'Go to the barn (0:15)':
  36. if month >= 4 and month <= 10:
  37. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  38. else
  39. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  40. end
  41. 'You went to the barn and fed the horse.'
  42. *clr & cla
  43. feed_horse = 1
  44. minut += 15
  45. gs'stat'
  46. act 'Further':gt'Gadsarai'
  47. end
  48. elseif grandpahelping = 2:
  49. '"- <<$pcs_nickname>>, go to the barn to feed the cows."'
  50. act 'Go to the barn (0:15)':
  51. *clr & cla
  52. if month >= 4 and month <= 10:
  53. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  54. else
  55. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  56. end
  57. 'You went to the shed and fed the cows.'
  58. minut += 15
  59. feed_cow = 1
  60. gs'stat'
  61. act 'Further':gt'Gadsarai'
  62. end
  63. elseif grandpahelping = 3:
  64. gt 'grandpahelp', 'cleanyard'
  65. elseif grandpahelping = 4:
  66. gt 'grandpahelp', 'groomhorse'
  67. elseif grandpahelping = 5:
  68. gt 'grandpahelp', 'feedhogs'
  69. !month = 5
  70. elseif grandpahelping = 6 and hour >= 6 and hour < 9:
  71. gt 'grandpahelp', 'grazehorse'
  72. elseif grandpahelping = 7 and hour >= 6 and hour < 9:
  73. gt 'grandpahelp', 'leadcows'
  74. elseif grandpahelping = 8 and hour >= 6 and hour < 9:
  75. gt 'grandpahelp', 'grazecows'
  76. !month = 6 or month = 9
  77. elseif grandpahelping = 9 and temper >= 15 and sunWeather = 1 and week > 5:
  78. gt 'grandpahelp', 'washhorse'
  79. elseif grandpahelping = 10 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  80. gt 'grandpahelp', 'pickforest'
  81. elseif grandpahelping = 11 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  82. gt 'grandpahelp', 'pickforest'
  83. elseif grandpahelping = 12 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  84. gt 'grandpahelp', 'pickforest'
  85. !month = 7 or month = 8
  86. elseif grandpahelping = 13 and temper >= 15 and sunWeather = 1 and hour >= 6 and hour < 9:
  87. '"- <<$pcs_nickname>>, we need to help out with hay gathering today. We have to go to the field and help out."'
  88. '"- Okay, grandfather," you replied. You grab a rake, and start walking towards the field.'
  89. act 'Go to the field (0:40)':
  90. *clr & cla
  91. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_gadfield.jpg"></center>'
  92. 'With the rake in your hand you met up with the other local residents at the field. All the present at the field got assigned to a task. You work hard gathering the hay.'
  93. haying_time = 1
  94. minut += 40
  95. gs'stat'
  96. act 'Further':gt'gadfield','field'
  97. end
  98. else
  99. if hour >= 9:
  100. randmsg = rand(0,5):
  101. if randmsg = 0:
  102. '"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
  103. elseif randmsg = 1:
  104. '"- You can rest today child, there is nothing to do."'
  105. elseif randmsg = 2:
  106. '"- You can rest today <<$pcs_nickname>>, there is nothing to do."'
  107. elseif randmsg = 3:
  108. '"- There''s no work today <<$pcs_nickname>>, go and rest up."'
  109. elseif randmsg = 4:
  110. '"- You can rest today my dear granddaughter."'
  111. else
  112. '"- You can take the day off to rest up."'
  113. end
  114. else
  115. randmsg = rand(0,1):
  116. if randmsg = 0:
  117. '"- You don''t need to help out today <<$pcs_nickname>>."'
  118. else
  119. '"- You can take the day off."'
  120. end
  121. end
  122. act 'Go':gt'Gadhouse'
  123. end
  124. if $ARGS[0] = 'cleanyard':
  125. '"- Of course <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
  126. act 'Clean up the yard (1:00)':
  127. *clr & cla
  128. if month >= 4 and month <= 10:
  129. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  130. '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.'
  131. else
  132. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  133. '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.'
  134. end
  135. minut += 60
  136. grandmahelp += 1
  137. if month >= 4 and month <= 10:
  138. fat -= RAND(1,3)
  139. else
  140. stren_exp += 1
  141. fat -= RAND(1,5)
  142. end
  143. gs'stat'
  144. act 'Go':gt'Gaddvor'
  145. end
  146. end
  147. if $ARGS[0] = 'feedhogs':
  148. '"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
  149. act 'Go to the barn (0:15)':
  150. *clr & cla
  151. if month >= 4 and month <= 10:
  152. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  153. else
  154. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  155. end
  156. 'You go to the barn and feed the hogs.'
  157. feed_boar = 1
  158. minut += 15
  159. gs'stat'
  160. act 'Further':gt'Gadsarai'
  161. end
  162. end
  163. if $ARGS[0] = 'washhorse':
  164. '"- It''s good weather today. Take Desperado to the river and give him a bath."'
  165. act 'Go to the barn (0:10)':
  166. *clr & cla
  167. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  168. 'You went and got the horse from the barn and led it to the river.'
  169. horse_river = 1
  170. minut += 10
  171. gs'stat'
  172. act 'Further':gt'Gadsarai'
  173. end
  174. end
  175. if $ARGS[0] = 'groomhorse':
  176. '"- Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
  177. act 'Go to the barn (0:15)':
  178. *clr & cla
  179. if month >= 4 and month <= 10:
  180. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  181. else
  182. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  183. end
  184. 'You go to the barn, take out a brush and start grooming Desperado.'
  185. comb_horse = 1
  186. minut += 15
  187. gs'stat'
  188. act 'Further':gt'Gadsarai'
  189. end
  190. end
  191. if $ARGS[0] = 'grazehorse':
  192. '"- <<$pcs_nickname>>, take the horse to the field, my legs hurt so I need to rest for a bit. I`ll retrieve the horse up in the evening."'
  193. act 'Go to the barn (0:15)':
  194. *clr & cla
  195. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  196. 'You lead the horse to the field.'
  197. horse_field = 1
  198. minut += 15
  199. gs'stat'
  200. act 'Further':& gt'Gadsarai'
  201. end
  202. end
  203. if $ARGS[0] = 'grazecows':
  204. if graze_cow_exp = 0:
  205. '"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat and lead the herd to the field. I''ll meet you there."'
  206. else
  207. '"- <<$pcs_nickname>>, it''s our turn to look out for the cows grazing on the field today. So grab something to eat quickly, and stop by the field where the herd is. I''ll bring them back home."'
  208. end
  209. if graze_cow_exp = 0:
  210. act 'Go to the barn (0:20)':
  211. gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
  212. *clr & cla
  213. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  214. 'You take a little nibble of a sandwich and go to the shed where the herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  215. graze_cow = 1
  216. pcs_mood += 20
  217. pcs_health += 10
  218. minut += 20
  219. bottle += 1
  220. buterbrod += 1
  221. gs'stat'
  222. act 'Further':gt'Gadsarai'
  223. end
  224. else
  225. act 'Go to the field (0:20)':
  226. gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
  227. *clr & cla
  228. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
  229. 'You have a quick bite and go to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  230. graze_cow = 1
  231. pcs_mood += 20
  232. pcs_health += 10
  233. minut += 20
  234. bottle += 1
  235. buterbrod += 1
  236. gs'stat'
  237. act 'Further':gt'gadfield','cow'
  238. end
  239. end
  240. end
  241. if $ARGS[0] = 'leadcows':
  242. '"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
  243. act 'Go to the barn (0:15)':
  244. *clr & cla
  245. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  246. 'You go to the shed where the cows are and lead the herd to the field.'
  247. cow_field = 1
  248. minut += 15
  249. gs'stat'
  250. act 'Further':gt'Gadsarai'
  251. end
  252. end
  253. if $ARGS[0] = 'pickforest':
  254. grandpa_boletus = rand(2,3)
  255. grandpa_bilberry = rand(3,5)
  256. if grandpahelping = 10:
  257. go_in_boletus = 1
  258. '"- <<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
  259. '"- How much should I pick, grandpa?", you ask.'
  260. '"- <<grandpa_boletus>> kg will be enough," grandfather replies. "- Be careful so you don''t get lost."'
  261. elseif grandpahelping = 11:
  262. go_in_bilberry = 1
  263. '"- <<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
  264. '"- How much should I pick, grandpa?" you ask.'
  265. '"- <<grandpa_bilberry>> kg will be enough," grandfather replies. "- Just be careful so you don''t get lost."'
  266. elseif grandpahelping = 12:
  267. grandpa_bilberry = rand(2,3)
  268. go_in_boletus_bilberry = 1
  269. '"- <<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and has a craving for some fresh berries."'
  270. '"- How much should I pick, grandpa?"'
  271. '"- <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries will be enough," grandfather replies. "- Just don`t get lost."'
  272. end
  273. act 'Go':gt'Gadhouse'
  274. end
  275. --- grandpahelp ---------------------------------