gadfield 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529
  1. # gadfield
  2. if $ARGS[0] = 'field':
  3. $location_type = 'secluded'
  4. $metka = 'field'
  5. $loc = 'gadfield'
  6. gs 'gadukino_event', 'sound'
  7. cls
  8. gs'stat'
  9. !gs'time'
  10. '<center><H4>Field</H4></center>'
  11. if month >= 4 and month <= 10:
  12. if hour >= 6 and hour < 22:
  13. '<center><img src="images/locations/gadukino/village/gadfield.jpg"></center>'
  14. else
  15. '<center><img src="images/locations/gadukino/village/gadfield_night.jpg"></center>'
  16. end
  17. else
  18. if hour >= 8 and hour < 18:
  19. '<center><img src="images/locations/gadukino/village/gadfield_winter.jpg"></center>'
  20. else
  21. '<center><img src="images/locations/gadukino/village/gadfield_winter_night.jpg"></center>'
  22. end
  23. end
  24. 'A field outside the village.'
  25. if hour >= 9 and hour <= 19 and week < 6:'Grandfather''s horse <a href="exec: gt ''gadfield'',''horse''">Desperado</a> is grazing the field.'
  26. if hour >= 9 and hour <= 19 and graze_cow = 0:'You see <a href="exec: gt ''gadfield'',''cow''">a herd of cows</a> in the middle of the field.'
  27. if hour >= 6 and hour <= 20 and graze_cow = 1:'You notice <a href="exec: gt ''gadfield'',''cow''">a herd of cows</a>.'
  28. if hour >= 7 and hour <= 20 and haying_time = 1:'You see a crowd of people working on the field.'
  29. if hour >= 7 and hour <= 20 and haying_time = 1:
  30. act 'Go to the hayfield':
  31. gs 'food', 'm_meal'&!use current one, cls will clear messages
  32. cla
  33. *clr
  34. minut += 360
  35. grandmahelp += 1
  36. haying_time = 0
  37. gs 'stat'
  38. if npc_rel['A60'] >= 15:
  39. npc_rel['A60'] += 1
  40. '<center><img src="images/characters/village/mira/haying_time_mira.jpg"></center>'
  41. 'Most of the village has shown up to help out with the hay. You and Mira also partake in the activities. You are really enjoying yourself, especially considering you spending time, sitting on the fresh cut hay, talking to Mira.'
  42. else
  43. fat -= 5
  44. stren_exp += 1
  45. agil_exp += 1
  46. vital_exp += 1
  47. pcs_sweat += 20
  48. '<center><img src="images/locations/gadukino/village/haying_time.jpg"></center>'
  49. 'Almost all of the villagers have shown up to help out with the fresh cut hay. You decide to join them.'
  50. end
  51. act 'Further':gt'gadfield','field'
  52. end
  53. end
  54. act 'Go back to the road':minut += 10 & gt'gadroad'
  55. end
  56. if $ARGS[0] = 'horse':
  57. $metka = $ARGS[0]
  58. $loc = $CURLOC
  59. gs 'gadukino_event', 'sound'
  60. clr
  61. gs'stat'
  62. !gs'time'
  63. '<center><img src="images/locations/gadukino/village/horse.jpg"></center>'
  64. 'Your grandfather''s horse Desperado.'
  65. if hour = 19:
  66. act 'Lead the horse home (1:00)':
  67. cla
  68. *clr
  69. minut += 60
  70. grandmahelp += rand(0,1)
  71. gs 'stat'
  72. '<center><img src="images/locations/gadukino/village/horse_field.jpg"></center>'
  73. 'You spot your grandfather''s horse wandering loose in the field and decide to help out by taking Desperado home. Reaching for the bridle, you start leading Desperado towards the village.'
  74. act 'Further':gt'Gadsarai'
  75. end
  76. end
  77. act 'Back':gt'gadfield','field'
  78. end
  79. if $ARGS[0] = 'cow':
  80. $metka = $ARGS[0]
  81. $loc = $CURLOC
  82. gs 'gadukino_event', 'sound'
  83. clr
  84. temp = rand(1,5)
  85. gs'stat'
  86. !gs'time'
  87. '<center><img src="images/locations/gadukino/village/cow.jpg"></center>'
  88. 'The cow herd is standing in the middle of the field.'
  89. if mira = 1: '<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is standing next to you.'
  90. if hour = 19 and graze_cow = 0:
  91. act 'Lead the cows home (1:00)':
  92. cla
  93. *clr
  94. minut += 60
  95. grandmahelp += rand(0,1)
  96. gs 'stat'
  97. '<center><img src="images/locations/gadukino/village/cow_field.jpg"></center>'
  98. 'Seeing the cow herd on the field, you decide to help your grandfather bring the cows home...'
  99. act 'Further':gt'Gadsarai'
  100. end
  101. end
  102. if graze_cow = 1:
  103. if hour < 10:
  104. act 'Wait until the herd is gathered':
  105. cla
  106. *clr
  107. if hour >= 9:minut += 20
  108. if hour < 9:minut += 60
  109. gs 'stat'
  110. '<center><img src="images/locations/gadukino/village/graze_cow_wait.jpg"></center>'
  111. if graze_cow_exp = 0:'Some time flies by while waiting for the locals to finish their gathering.'
  112. if graze_cow_exp = 1:'Some time flies by while waiting for the locals and their children to finish their gathering.'
  113. act 'Further':gt'gadfield','cow'
  114. end
  115. end
  116. if hour >= 10 and hour < 13:
  117. act 'Herd cows with your grandfather (1:00)':
  118. cla
  119. *clr
  120. minut += 60
  121. if temper >= 25 and sunWeather = 1:water -= 12
  122. graze_cow_exp = 1
  123. grandmahelp += 1
  124. gs 'stat'
  125. '<center><img src="images/locations/gadukino/village/graze_cow'+rand(1,4)+'.jpg"></center>'
  126. 'You manage to herd all the cows within the hour. Instead of letting your grandfather do all the work, you roll up the sleeves and do most of the work.'
  127. act 'Further':gt'gadfield','cow'
  128. end
  129. if mira = 0:
  130. act 'Take a run on the field (1:00)':
  131. cla
  132. *clr
  133. frost = 0
  134. minut += 60
  135. fat -= 5
  136. run_exp += 1
  137. pcs_sweat += 10
  138. pcs_mood += 5
  139. if temper >= 25 and sunWeather = 1:water -= 24
  140. gs 'stat'
  141. '<center><img src="images/locations/gadukino/village/graze_cow_run.jpg"></center>'
  142. 'Since you have nothing to do, you run intervals across the field for an hour.'
  143. act 'Further':gt'gadfield','cow'
  144. end
  145. end
  146. if temper >= 15 and sunWeather = 1 and mira = 0:
  147. act 'Tan (1:00)':
  148. cla
  149. *clr
  150. minut += 60
  151. pcs_mood += 10
  152. pcs_tan += 1
  153. pcs_sweat += 10
  154. gs 'stat'
  155. '<center><img src="images/locations/gadukino/village/graze_cow_sun.jpg"></center>'
  156. 'It''s really warm outside so you decide to sunbathe for an hour.'
  157. act 'Further':gt'gadfield','cow'
  158. end
  159. if pcs_sleep < 40:
  160. act 'Take a nap (1:00)':
  161. cla
  162. *clr
  163. minut += 60
  164. pcs_mood += 10
  165. pcs_sleep+= 9
  166. if temper >= 25 and sunWeather = 1:water -= 12
  167. gs 'stat'
  168. '<center><img src="images/locations/gadukino/village/graze_cow_lying.jpg"></center>'
  169. 'You lie down on the grass and doze off for an hour.'
  170. act 'Further':gt'gadfield','cow'
  171. end
  172. end
  173. act 'Pick flowers (1:00)':
  174. cla
  175. *clr
  176. minut += 60
  177. pcs_mood += 20
  178. if temper >= 25 and sunWeather = 1:water -= 12
  179. gs 'stat'
  180. '<center><img src="images/locations/gadukino/village/graze_cow_flowers.jpg"></center>'
  181. 'You spend an hour wandering the field, picking flowers.'
  182. act 'Further':gt'gadfield','cow'
  183. end
  184. act 'Read a book (1:00)':
  185. cla
  186. *clr
  187. minut += 60
  188. if temper >= 25 and sunWeather = 1:water -= 12
  189. gs 'stat'
  190. '<center><img src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
  191. if pcs_nerd > 0:
  192. lastread = totminut
  193. lastreadday = daystart
  194. pcs_nerd += 1
  195. blizoruk += 1
  196. pcs_mood = 100
  197. if pcs_stren > 1: stren_deg -= 1
  198. if pcs_vital > 5: vital_deg -= 1
  199. gs 'stat'
  200. 'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
  201. else
  202. blizoruk += 1
  203. pcs_mood += 10
  204. 'While reading the book, time flies by cause you are really engaged in the books'' plot.'
  205. end
  206. act 'Close the book':gt $loc, $metka
  207. end
  208. end
  209. end
  210. if hour >= 13 and hour < 16:
  211. cla
  212. *clr
  213. if temper >= 25 and sunWeather = 1:water -= 12
  214. grandmahelp += 1
  215. minut += 60
  216. gs 'stat'
  217. '<center><img src="images/locations/gadukino/village/cow_go.jpg"></center>'
  218. 'Looking at his watch, grandpa turns to you and says "The time is around lunchtime so it''s time to take the herd to the watering hole." You begin to gather the cows and lead them to the river.'
  219. act 'Further':gt'gadfield','cow2'
  220. end
  221. end
  222. if graze_cow = 0:act 'Back':gt'gadfield','field'
  223. end
  224. !MiaLoc tells us where Mira is Located
  225. !----------------------------------------------
  226. !MiraLoc = 0 (Mira at home)
  227. !MiraLoc = 1 (Mira at river)
  228. !MiraLoc = 2 (Mira at meadow)
  229. !MiraLoc = 3 (Mira at forest)
  230. !MiraLoc = 4 (Mira at field)
  231. !MiraLoc = 5 (Mira with gop)
  232. !---------------------------------------------
  233. if graze_cow = 1 and npc_rel['A60'] >= 15 and mira = 0 and sunWeather = 1 and hour >= 10 and temp = 1 and Mira_no = 0 and(npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1):
  234. cla
  235. *clr
  236. minut += 5
  237. npc_rel['A60'] += 1
  238. mira = 1
  239. gs 'stat'
  240. '<center><img src="images/characters/village/mira/Mira2.jpg"></center>'
  241. 'While keeping an eye on the cow herd, you see Mira in the distance, approaching. You happily wave to her.'
  242. '" - Hi, <<$pcs_nickname>>. I wanted to visit you and brought water with me," she says nearing you. " - Have you missed me?"'
  243. act 'Further':water +=40 & gt'gadfield','cow'
  244. end
  245. if $ARGS[0] = 'cow2':
  246. $metka = $ARGS[0]
  247. $loc = $CURLOC
  248. gs 'gadukino_event', 'sound'
  249. clr
  250. gs'stat'
  251. !gs'time'
  252. '<center><H4>River</H4></center>'
  253. '<center><img src="images/locations/gadukino/village/cow_river.jpg"></center>'
  254. 'The cow herd is standing by the river.'
  255. if mira = 1: 'S<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.'
  256. if temper >= 15 and sunWeather = 1:'- "You can go for a swim while there is time, <<$pcs_nickname>>. I`ll keep an eye on the herd," said you grandpa.'
  257. if graze_cow = 1:
  258. if hour < 16:
  259. act 'Herd cows with your grandfather (1:00)':
  260. cla
  261. *clr
  262. minut += 60
  263. if temper >= 25 and sunWeather = 1:water -= 12
  264. grandmahelp += 1
  265. graze_cow_exp = 1
  266. gs 'stat'
  267. '<center><img src="images/locations/gadukino/village/graze_cow'+rand(1,4)+'.jpg"></center>'
  268. 'You manage to herd all the cows within the hour. Instead of letting your grandfather do all the work, you roll up the sleeves and do most of the work.'
  269. act 'Further':gt'gadfield','cow2'
  270. end
  271. if temper >= 15 and sunWeather = 1 and mira = 0:
  272. act 'Swim (0:15)':
  273. cla
  274. *clr
  275. minut += 15
  276. cumspclnt = 4 & gs 'cum_cleanup'
  277. pcs_sweat = 10 + rand(0,4)
  278. pcs_mood += 5
  279. pcs_willpwr += 5
  280. if pcs_stren < 30:stren_exp += 1
  281. gs 'stat'
  282. '<center><img src="images/locations/gadukino/village/graze_cow_river.jpg"></center>'
  283. 'You take a quick swim, cooling off your body.'
  284. act 'Further':gt'gadfield','cow2'
  285. end
  286. act 'Tan (0:30)':
  287. cla
  288. *clr
  289. minut += 30
  290. pcs_sweat += 10
  291. pcs_mood += 5
  292. pcs_tan += 1
  293. gs 'stat'
  294. '<center><img src="images/locations/gadukino/village/graze_cow_sun.jpg"></center>'
  295. 'You lie down to sunbathe, while grandpa looks after the herd.'
  296. act 'Further':gt'gadfield','cow2'
  297. end
  298. act 'Read a book (1:00)':
  299. cla
  300. *clr
  301. minut += 60
  302. if temper >= 25 and sunWeather = 1:water -= 12
  303. gs 'stat'
  304. '<center><img src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
  305. if pcs_nerd > 0:
  306. lastread = totminut
  307. lastreadday = daystart
  308. pcs_nerd += 1
  309. blizoruk += 1
  310. pcs_mood = 100
  311. if pcs_stren > 1: stren_deg -= 1
  312. if pcs_vital > 5: vital_deg -= 1
  313. gs 'stat'
  314. 'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
  315. else
  316. blizoruk += 1
  317. pcs_mood += 10
  318. 'While reading the book, time flies by cause you are really engaged in the books'' plot.'
  319. end
  320. act 'Close the book':gt $loc, $metka
  321. end
  322. end
  323. end
  324. if hour >= 16 and hour < 19:
  325. cla
  326. *clr
  327. grandmahelp += 1
  328. if temper >= 25 and sunWeather = 1:water -= 12
  329. minut += 60
  330. gs 'stat'
  331. '<center><img src="images/locations/gadukino/village/cow_go.jpg"></center>'
  332. 'Looking at his watch, grandpa says that it''s time to drive the herd back on the field, but now closer to the forest. The two of you begin to gather the scattered herd and head toward the forest.'
  333. act 'Further':gt'gadfield','cow3'
  334. end
  335. end
  336. end
  337. if $ARGS[0] = 'cow3':
  338. $metka = $ARGS[0]
  339. $loc = $CURLOC
  340. gs 'gadukino_event', 'sound'
  341. clr
  342. gs'stat'
  343. !gs'time'
  344. '<center><H4>Field near the forest</H4></center>'
  345. '<center><img src="images/locations/gadukino/village/cow_forest.jpg"></center>'
  346. 'The cow herd is standing on a field near the forest.'
  347. if mira = 1: '<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.'
  348. if graze_cow = 1:
  349. if hour < 19:
  350. act 'Herd cows with your grandfather (1:00)':
  351. cla
  352. *clr
  353. minut += 60
  354. if temper >= 25 and sunWeather = 1:water -= 12
  355. grandmahelp += 1
  356. graze_cow_exp = 1
  357. gs 'stat'
  358. '<center><img src="images/locations/gadukino/village/graze_cow'+rand(1,4)+'.jpg"></center>'
  359. 'You manage to herd all the cows within the hour. Instead of letting your grandfather do all the work, you roll up the sleeves and do most of the work.'
  360. act 'Further':gt'gadfield','cow3'
  361. end
  362. if mira = 0:
  363. act 'Take a run (1:00)':
  364. cla
  365. *clr
  366. frost = 0
  367. minut += 60
  368. fat -= 5
  369. run_exp += 1
  370. pcs_sweat += 10
  371. pcs_mood += 5
  372. if temper >= 25 and sunWeather = 1:water -= 24
  373. gs 'stat'
  374. '<center><img src="images/locations/gadukino/village/graze_cow_run.jpg"></center>'
  375. 'Since you have nothing to do, you run intervals across the field for an hour.'
  376. act 'Further':gt'gadfield','cow3'
  377. end
  378. end
  379. if temper >= 15 and sunWeather = 1 and mira = 0:
  380. act 'Pick flowers (1:00)':
  381. cla
  382. *clr
  383. minut += 60
  384. pcs_mood += 20
  385. if temper >= 25 and sunWeather = 1:water -= 12
  386. gs 'stat'
  387. '<center><img src="images/locations/gadukino/village/graze_cow_flowers.jpg"></center>'
  388. 'You spent an hour wandering around the field, picking flowers.'
  389. act 'Further':gt'gadfield','cow3'
  390. end
  391. act 'Tan (1:00)':
  392. cla
  393. *clr
  394. minut += 60
  395. pcs_mood += 10
  396. pcs_tan += 1
  397. pcs_sweat += 10
  398. gs 'stat'
  399. '<center><img src="images/locations/gadukino/village/graze_cow_sun.jpg"></center>'
  400. 'You sunbathe for an hour.'
  401. act 'Further':gt'gadfield','cow3'
  402. end
  403. if pcs_sleep < 40:
  404. act 'Take a nap on the grass (1:00)':
  405. cla
  406. *clr
  407. minut += 60
  408. pcs_mood += 10
  409. pcs_sleep+= 9
  410. if temper >= 25 and sunWeather = 1:water -= 12
  411. gs 'stat'
  412. '<center><img src="images/locations/gadukino/village/graze_cow_lying.jpg"></center>'
  413. 'You lie down on the grass and doze off for an hour.'
  414. act 'Further':gt'gadfield','cow3'
  415. end
  416. end
  417. act 'Read a book (1:00)':
  418. cla
  419. *clr
  420. minut += 60
  421. if temper >= 25 and sunWeather = 1:water -= 12
  422. gs 'stat'
  423. '<center><img src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
  424. if pcs_nerd > 0:
  425. lastread = totminut
  426. lastreadday = daystart
  427. pcs_nerd += 1
  428. blizoruk += 1
  429. pcs_mood = 100
  430. if pcs_stren > 1: stren_deg -= 1
  431. if pcs_vital > 5: vital_deg -= 1
  432. gs 'stat'
  433. 'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
  434. else
  435. blizoruk += 1
  436. pcs_mood += 10
  437. 'While reading the book, time flies by cause you are really engaged in the books'' plot.'
  438. end
  439. act 'Close the book':gt $loc, $metka
  440. end
  441. end
  442. end
  443. if hour >= 19:
  444. cla
  445. *clr
  446. if temper >= 25 and sunWeather = 1:water -= 12
  447. minut += 60
  448. mira = 0
  449. graze_cow = 0
  450. grandmahelp += 1
  451. gs 'stat'
  452. '<center><img src="images/locations/gadukino/village/cow_go_home.jpg"></center>'
  453. 'Looking at his watch, grandpa says that it is late and time to drive the herd home. You hurry up and gather up the cows and rush them towards the village. You are barely keeping up with the herd.'
  454. act 'Further':gt'gadukino'
  455. end
  456. end
  457. end
  458. --- gadfield ---------------------------------