1
0

gadfield 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531
  1. # gadfield
  2. if $ARGS[0] = 'field':
  3. $location_type = 'secluded'
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. gs 'gadukino_event', 'sound'
  7. clr
  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/qwest/gadukino/gadfield/gadfield.jpg"></center>'
  14. else
  15. '<center><img src="images/qwest/gadukino/gadfield/gadfield_night.jpg"></center>'
  16. end
  17. else
  18. if hour >= 8 and hour < 18:
  19. '<center><img src="images/qwest/gadukino/gadfield/gadfield_winter.jpg"></center>'
  20. else
  21. '<center><img src="images/qwest/gadukino/gadfield/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 miraQW >= 15:
  39. miraQW += 1
  40. '<center><img src="images/qwest/gadukino/gadfield/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. pcs_stren += 1
  45. pcs_agil += 1
  46. pcs_vital += 1
  47. sweat += 20
  48. '<center><img src="images/qwest/gadukino/gadfield/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/qwest/gadukino/gadfield/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/qwest/gadukino/new/horse_field'+rand(1,4)+'.jpg"></center>'
  73. 'Noticing your grandfathers'' horse walking on the field, you 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/qwest/gadukino/gadfield/cow.jpg"></center>'
  88. 'The cow herd is standing in the middle of the field.'
  89. if mira = 1: '<a href="exec: gt ''Miroslava''">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/qwest/gadukino/new/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/qwest/gadukino/gadfield/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 >= 30 and sunWeather = 1:water -= 12
  122. graze_cow_exp = 1
  123. grandmahelp += 1
  124. gs 'stat'
  125. '<center><img src="images/qwest/gadukino/gadfield/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. if salo > 3:salo -= RAND(1,3)
  136. fat -= 5
  137. beg += 1
  138. sweat += 10
  139. manna += mannamax/20
  140. if temper >= 30 and sunWeather = 1:water -= 24
  141. gs 'stat'
  142. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_run.jpg"></center>'
  143. 'Since you have nothing to do, you run intervals across the field for an hour.'
  144. act 'Further':gt'gadfield','cow'
  145. end
  146. end
  147. if temper >= 20 and sunWeather = 1 and mira = 0:
  148. act 'Tan (1:00)':
  149. cla
  150. *clr
  151. minut += 60
  152. manna += mannamax/10
  153. pcs_tan += 1
  154. sweat += 10
  155. gs 'stat'
  156. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_sun.jpg"></center>'
  157. 'It''s really warm outside so you decide to sunbathe for an hour.'
  158. act 'Further':gt'gadfield','cow'
  159. end
  160. if son < 40:
  161. act 'Take a nap (1:00)':
  162. cla
  163. *clr
  164. minut += 60
  165. manna += mannamax/10
  166. son+= 9
  167. if temper >= 30 and sunWeather = 1:water -= 12
  168. gs 'stat'
  169. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_lying.jpg"></center>'
  170. 'You lie down on the grass and doze off for an hour.'
  171. act 'Further':gt'gadfield','cow'
  172. end
  173. end
  174. act 'Pick flowers (1:00)':
  175. cla
  176. *clr
  177. minut += 60
  178. manna += mannamax/5
  179. if temper >= 30 and sunWeather = 1:water -= 12
  180. gs 'stat'
  181. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_flowers.jpg"></center>'
  182. 'You spend an hour wandering the field, picking flowers.'
  183. act 'Further':gt'gadfield','cow'
  184. end
  185. act 'Read a book (1:00)':
  186. cla
  187. *clr
  188. minut += 60
  189. if temper >= 30 and sunWeather = 1:water -= 12
  190. gs 'stat'
  191. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_book'+rand(1,2)+'.jpg"></center>'
  192. if Astat_nerd[pc] > 0:
  193. lastread = totminut
  194. lastreadday = daystart
  195. Astat_nerd[pc] += 1
  196. blizoruk += 1
  197. manna += 100
  198. if pcs_stren > 1: pcs_stren -= 1
  199. if pcs_vital > 5: pcs_vital -= 1
  200. gs 'stat'
  201. 'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
  202. else
  203. blizoruk += 1
  204. manna += 10
  205. 'While reading the book, time flies by cause you are really engaged in the books'' plot.'
  206. end
  207. act 'Close the book':gt $loc, $metka
  208. end
  209. end
  210. end
  211. if hour >= 13 and hour < 16:
  212. cla
  213. *clr
  214. if temper >= 30 and sunWeather = 1:water -= 12
  215. grandmahelp += 1
  216. minut += 60
  217. gs 'stat'
  218. '<center><img src="images/qwest/gadukino/gadfield/cow_go.jpg"></center>'
  219. '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.'
  220. act 'Further':gt'gadfield','cow2'
  221. end
  222. end
  223. if graze_cow = 0:act 'Back':gt'gadfield','field'
  224. end
  225. !MiaLoc tells us where Mira is Located
  226. !----------------------------------------------
  227. !MiraLoc = 0 (Mira at home)
  228. !MiraLoc = 1 (Mira at river)
  229. !MiraLoc = 2 (Mira at meadow)
  230. !MiraLoc = 3 (Mira at forest)
  231. !MiraLoc = 4 (Mira at field)
  232. !MiraLoc = 5 (Mira with gop)
  233. !---------------------------------------------
  234. if graze_cow = 1 and miraQW >= 15 and mira = 0 and sunWeather = 1 and hour >= 10 and temp = 1 and Mira_no = 0 and(mitkasextimes < 13 or miraperversion >= 10 or mirasex > 1):
  235. cla
  236. *clr
  237. minut += 5
  238. miraQW += 1
  239. mira = 1
  240. gs 'stat'
  241. '<center><img src="images/qwest/gadukino/Mira2.jpg"></center>'
  242. 'While keeping an eye on the cow herd, you see Mira in the distance, approaching. You happily wave to her.'
  243. '" - Hi, <<$pcs_nickname>>. I wanted to visit you and brought water with me," she says nearing you. " - Have you missed me?"'
  244. act 'Further':water +=40 & gt'gadfield','cow'
  245. end
  246. if $ARGS[0] = 'cow2':
  247. $metka = $ARGS[0]
  248. $loc = $CURLOC
  249. gs 'gadukino_event', 'sound'
  250. clr
  251. gs'stat'
  252. !gs'time'
  253. '<center><H4>River</H4></center>'
  254. '<center><img src="images/qwest/gadukino/gadfield/cow_river.jpg"></center>'
  255. 'The cow herd is standing by the river.'
  256. if mira = 1: 'S<a href="exec: gt ''Miroslava''">Mira</a> is sitting next to you.'
  257. if temper >= 20 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.'
  258. if graze_cow = 1:
  259. if hour < 16:
  260. act 'Herd cows with your grandfather (1:00)':
  261. cla
  262. *clr
  263. minut += 60
  264. if temper >= 30 and sunWeather = 1:water -= 12
  265. grandmahelp += 1
  266. graze_cow_exp = 1
  267. gs 'stat'
  268. '<center><img src="images/qwest/gadukino/gadfield/graze_cow'+rand(1,4)+'.jpg"></center>'
  269. '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.'
  270. act 'Further':gt'gadfield','cow2'
  271. end
  272. if temper >= 20 and sunWeather = 1 and mira = 0:
  273. act 'Swim (0:15)':
  274. cla
  275. *clr
  276. minut += 15
  277. cumspclnt = 4 & gs 'cum_cleanup'
  278. sweat = 10 + rand(0,4)
  279. manna += 5
  280. willpower += 5
  281. if pcs_stren < 30:pcs_stren += 1
  282. gs 'stat'
  283. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_river.jpg"></center>'
  284. 'You take a quick swim, cooling off your body.'
  285. act 'Further':gt'gadfield','cow2'
  286. end
  287. act 'Tan (0:30)':
  288. cla
  289. *clr
  290. minut += 30
  291. sweat += 10
  292. manna += mannamax/20
  293. pcs_tan += 1
  294. gs 'stat'
  295. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_sun.jpg"></center>'
  296. 'You lie down to sunbathe, while grandpa looks after the herd.'
  297. act 'Further':gt'gadfield','cow2'
  298. end
  299. act 'Read a book (1:00)':
  300. cla
  301. *clr
  302. minut += 60
  303. if temper >= 30 and sunWeather = 1:water -= 12
  304. gs 'stat'
  305. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_book'+rand(1,2)+'.jpg"></center>'
  306. if Astat_nerd[pc] > 0:
  307. lastread = totminut
  308. lastreadday = daystart
  309. Astat_nerd[pc] += 1
  310. blizoruk += 1
  311. manna += 100
  312. if pcs_stren > 1: pcs_stren -= 1
  313. if pcs_vital > 5: pcs_vital -= 1
  314. gs 'stat'
  315. 'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
  316. else
  317. blizoruk += 1
  318. manna += 10
  319. 'While reading the book, time flies by cause you are really engaged in the books'' plot.'
  320. end
  321. act 'Close the book':gt $loc, $metka
  322. end
  323. end
  324. end
  325. if hour >= 16 and hour < 19:
  326. cla
  327. *clr
  328. grandmahelp += 1
  329. if temper >= 30 and sunWeather = 1:water -= 12
  330. minut += 60
  331. gs 'stat'
  332. '<center><img src="images/qwest/gadukino/gadfield/cow_go.jpg"></center>'
  333. '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.'
  334. act 'Further':gt'gadfield','cow3'
  335. end
  336. end
  337. end
  338. if $ARGS[0] = 'cow3':
  339. $metka = $ARGS[0]
  340. $loc = $CURLOC
  341. gs 'gadukino_event', 'sound'
  342. clr
  343. gs'stat'
  344. !gs'time'
  345. '<center><H4>Field near the forest</H4></center>'
  346. '<center><img src="images/qwest/gadukino/gadfield/cow_forest.jpg"></center>'
  347. 'The cow herd is standing on a field near the forest.'
  348. if mira = 1: '<a href="exec: gt ''Miroslava''">Mira</a> is sitting next to you.'
  349. if graze_cow = 1:
  350. if hour < 19:
  351. act 'Herd cows with your grandfather (1:00)':
  352. cla
  353. *clr
  354. minut += 60
  355. if temper >= 30 and sunWeather = 1:water -= 12
  356. grandmahelp += 1
  357. graze_cow_exp = 1
  358. gs 'stat'
  359. '<center><img src="images/qwest/gadukino/gadfield/graze_cow'+rand(1,4)+'.jpg"></center>'
  360. '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.'
  361. act 'Further':gt'gadfield','cow3'
  362. end
  363. if mira = 0:
  364. act 'Take a run (1:00)':
  365. cla
  366. *clr
  367. frost = 0
  368. minut += 60
  369. if salo > 3:salo -= RAND(1,3)
  370. fat -= 5
  371. beg += 1
  372. sweat += 10
  373. manna += mannamax/20
  374. if temper >= 30 and sunWeather = 1:water -= 24
  375. gs 'stat'
  376. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_run.jpg"></center>'
  377. 'Since you have nothing to do, you run intervals across the field for an hour.'
  378. act 'Further':gt'gadfield','cow3'
  379. end
  380. end
  381. if temper >= 20 and sunWeather = 1 and mira = 0:
  382. act 'Pick flowers (1:00)':
  383. cla
  384. *clr
  385. minut += 60
  386. manna += mannamax/5
  387. if temper >= 30 and sunWeather = 1:water -= 12
  388. gs 'stat'
  389. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_flowers.jpg"></center>'
  390. 'You spent an hour wandering around the field, picking flowers.'
  391. act 'Further':gt'gadfield','cow3'
  392. end
  393. act 'Tan (1:00)':
  394. cla
  395. *clr
  396. minut += 60
  397. manna += mannamax/10
  398. pcs_tan += 1
  399. sweat += 10
  400. gs 'stat'
  401. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_sun.jpg"></center>'
  402. 'You sunbathe for an hour.'
  403. act 'Further':gt'gadfield','cow3'
  404. end
  405. if son < 40:
  406. act 'Take a nap on the grass (1:00)':
  407. cla
  408. *clr
  409. minut += 60
  410. manna += mannamax/10
  411. son+= 9
  412. if temper >= 30 and sunWeather = 1:water -= 12
  413. gs 'stat'
  414. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_lying.jpg"></center>'
  415. 'You lie down on the grass and doze off for an hour.'
  416. act 'Further':gt'gadfield','cow3'
  417. end
  418. end
  419. act 'Read a book (1:00)':
  420. cla
  421. *clr
  422. minut += 60
  423. if temper >= 30 and sunWeather = 1:water -= 12
  424. gs 'stat'
  425. '<center><img src="images/qwest/gadukino/gadfield/graze_cow_book'+rand(1,2)+'.jpg"></center>'
  426. if Astat_nerd[pc] > 0:
  427. lastread = totminut
  428. lastreadday = daystart
  429. Astat_nerd[pc] += 1
  430. blizoruk += 1
  431. manna += 100
  432. if pcs_stren > 1: pcs_stren -= 1
  433. if pcs_vital > 5: pcs_vital -= 1
  434. gs 'stat'
  435. 'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
  436. else
  437. blizoruk += 1
  438. manna += 10
  439. 'While reading the book, time flies by cause you are really engaged in the books'' plot.'
  440. end
  441. act 'Close the book':gt $loc, $metka
  442. end
  443. end
  444. end
  445. if hour >= 19:
  446. cla
  447. *clr
  448. if temper >= 30 and sunWeather = 1:water -= 12
  449. minut += 60
  450. mira = 0
  451. graze_cow = 0
  452. grandmahelp += 1
  453. gs 'stat'
  454. '<center><img src="images/qwest/gadukino/gadfield/cow_go_home.jpg"></center>'
  455. '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.'
  456. act 'Further':gt'gadukino'
  457. end
  458. end
  459. end
  460. --- gadfield ---------------------------------