gadriver.qsrc 45 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155
  1. # gadriver
  2. if $ARGS[0] = 'start':
  3. $metka = 'start'
  4. $loc = 'gadriver'
  5. menu_off = 0
  6. $menu_loc = 'gadriver'
  7. $menu_arg = 'start'
  8. $location_type = 'public_outdoors'
  9. gs 'stat'
  10. '<center><H2>Slavka River</H2></center>'
  11. if month >= 5 and month <= 9:
  12. if hour >= 6 and hour < 22:
  13. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver.jpg"></center>'
  14. else
  15. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver_night.jpg"></center>'
  16. end
  17. else
  18. if hour >= 8 and hour < 18:
  19. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver_winter.jpg"></center>'
  20. else
  21. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver_winter_night.jpg"></center>'
  22. end
  23. end
  24. 'A large river flows lazily a for a few hundred meters in the northern outskirts of Gadukino.'
  25. if hour >= 6 and hour < 21 and sunWeather = 1: 'You see the local <a href="exec:gt ''gadriver'', ''fishers''">fishermen</a> fishing with their rods on the riverbank.'
  26. temp_gr = rand(0,20)
  27. if temp_gr = 1 and hour < 5 and month >= 5 and month <= 9 and npc_QW['A60'] >= 20: 'Right next to the path leading to the river, you see <a href="exec: gt ''gadriver'', ''mirapunish'' ">Mira</a> naked, bound with ropes between two trees...'
  28. if temp_gr = 4 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
  29. if mitkaguysriver ! daystart:
  30. mitkaguysriver = daystart
  31. 'While going to the river you meet Kolyamba and Vasyan. They first invite you to join them, then insist you go with them.'
  32. act 'Go with them':
  33. *clr & cla
  34. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex17.jpg"></center>'
  35. 'The boys take you to Vasyan''s house, where, they rudely keep pushing you until you are bent over the kitchen table. They then take turns fucking you...'
  36. gs 'boyStat', 'A61'
  37. npc_sex[$boy] += 1
  38. pose = 1
  39. if mesec = 0:
  40. gs 'dinsex', 'boy_puts_condom'
  41. gs 'dinsex','vaginal_sex',20,'sub','gangbang'
  42. gs 'dinsex','sexcum'
  43. else
  44. gs 'dinSex','boy_wants_anal','lubri'
  45. gs 'dinsex','analsex',20,'sub','gangbang'
  46. end
  47. gs 'boyStat', 'A62'
  48. npc_sex[$boy] += 1
  49. if mesec = 0:
  50. gs 'dinsex', 'boy_puts_condom'
  51. gs 'dinsex','vaginal_sex',20,'sub','gangbang'
  52. gs 'dinsex','sexcum'
  53. else
  54. gs 'dinSex','boy_wants_anal','lubri'
  55. gs 'dinsex','analsex',20,'sub','gangbang'
  56. end
  57. gs 'stat'
  58. act 'Finish':minut += 10 & gt'gadukino'
  59. end
  60. else
  61. act 'Go to the beach':gt 'gadriver', 'gadbitch'
  62. act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
  63. end
  64. elseif temp_gr = 5 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
  65. if mitkaguysriver ! daystart:
  66. mitkaguysriver = daystart
  67. 'While walking towards the river you meet the village boys, whom you''ve been drinking with recently. They ask you to go with them.'
  68. act 'Go with them':
  69. *clr & cla
  70. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex18.jpg"></center>'
  71. 'The boys lead you to Vasyan''s house, where they spend an hour fucking you in the ass...'
  72. gs 'arousal', 'anal', 20, 'gangbang', 'sub'
  73. gs 'arousal', 'anal', 20, 'gangbang', 'sub'
  74. gs 'arousal', 'anal', 20, 'gangbang', 'sub'
  75. gs 'arousal', 'end'
  76. gs 'boyStat', 'A63'
  77. npc_sex[$boy] += 1
  78. gs 'cum_call','butt',$boy,1
  79. gs 'boyStat', 'A61'
  80. npc_sex[$boy] += 1
  81. gs 'cum_call','butt',$boy,1
  82. gs 'boyStat', 'A62'
  83. npc_sex[$boy] += 1
  84. gs 'cum_call','butt',$boy,1
  85. pcs_ass += 3
  86. gs 'stat'
  87. act 'Leave': gt'gadukino'
  88. end
  89. else
  90. act 'Go to the beach':gt 'gadriver', 'gadbitch'
  91. act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
  92. end
  93. elseif temp_gr = 6 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
  94. if mitkaguysriver ! daystart:
  95. mitkaguysriver = daystart
  96. 'On your way to the river you meet Vasyan, he insists you follow him home...'
  97. act 'Go with him':
  98. *clr & cla
  99. gs 'boyStat', 'A62'
  100. npc_sex[$boy] += 1
  101. pose = 1
  102. if mesec = 0:
  103. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex20.jpg"></center>'
  104. 'As soon as you open the door, Vasyan pushes you inside and starts pulling your clothes off crudely. Once you are naked, he pushes you towards the sofa and forces you to your knees...'
  105. gs 'arousal', 'vaginal', 20, 'sub'
  106. gs 'cum_call','butt',$boy,1
  107. else
  108. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex21.jpg"></center>'
  109. 'As soon as you open the door, Vasyan pushes you inside and starts pulling your clothes off crudely. He then throws you onto his bed. Noticing, that you are slightly bleeding he asks if it is that time of the month. You whimper, "Yes." He curses angrily, turns you over and begins roughly fucking your ass...'
  110. gs 'arousal', 'anal', 20, 'sub'
  111. gs 'cum_call','butt',$boy,1
  112. end
  113. gs 'arousal', 'end'
  114. gs 'stat'
  115. act 'Finish': gt'gadukino'
  116. end
  117. else
  118. act 'Go to the beach':gt 'gadriver', 'gadbitch'
  119. act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
  120. end
  121. else
  122. act 'Go to the beach':gt 'gadriver', 'gadbitch'
  123. act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
  124. end
  125. end
  126. if $ARGS[0] = 'gadbitch':
  127. PC_arrive = iif($metka ! 'gadbitch', 1 , 0)
  128. $location_type = 'public_outdoors'
  129. $metka = 'gadbitch'
  130. $loc = 'gadriver'
  131. menu_off = 1
  132. gs 'stat'
  133. '<center><H4>Village Beach</H4></center>'
  134. !125e
  135. if hour >= 6 and hour < 22:
  136. if sunWeather = 1:
  137. if month>=4 and month<=10:
  138. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_summer.jpg"></center>'
  139. else
  140. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_winter.jpg"></center>'
  141. end
  142. else
  143. if month>=4 and month<=10:
  144. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_soft.jpg"></center>'
  145. else
  146. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_cold.jpg"></center>'
  147. end
  148. end
  149. else
  150. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_night.jpg"></center>'
  151. end
  152. 'A small country beach, where you can sunbathe and swim.'
  153. mira_temp = rand(1,10)
  154. if MiraLoc = 1:temp_gr = RAND(0,20)
  155. if sunWeather = 1 and MiraLoc = 1:
  156. if RAND(0,10) < 5:
  157. '<a href="exec:sun = 1 & gt ''gadriver'', ''Mira'' ">Mira</a> is laying on the beach sunbathing.'
  158. if npc_rel['A60'] < 15:npc_rel['A60'] += 1
  159. else
  160. '<a href="exec:sun = 0 & gt ''gadriver'', ''Mira'' ">Mira</a> is in the river splashing water around and having fun.'
  161. if npc_rel['A60'] < 15:npc_rel['A60'] += 1
  162. end
  163. end
  164. if MiraLoc ! 1 and npc_QW['A63'] >= 13 and RAND(0,10) = 0 and hour >= 8 and hour < 20 and month >= 5 and month <= 9 and temper >= 15 and sunWeather = 1:'<a href="exec: gt ''gadriver'', ''GuysRiver'' ">Bob Colby</a> is resting on the riverbank.'
  165. if temper >= 15 and month >= 5 and month <= 9:
  166. temp_gr = RAND(0,9)
  167. if $clothingworntype ! 'nude' and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
  168. act 'Strip naked':
  169. cla
  170. minut += 5
  171. gs 'underwear', 'remove'
  172. gs 'clothing', 'strip', 'VillageRiver'
  173. 'Without hesitation, you take off all your clothes and neatly fold them before putting them down on a pile. Without your clothes holding you back, you can go for a nice swim in the river or just lie down in the sand and do some sunbathing.'
  174. act 'Continue': gt 'gadriver', 'gadbitch'
  175. end
  176. end
  177. if $clothingworntype = 'swimwear':
  178. act 'Go for a swim':
  179. cla
  180. *clr
  181. cumspclnt = 4
  182. gs 'cum_cleanup'
  183. minut += 30
  184. gs 'exercise', 'tier1', 1, 'stren_exp'
  185. if pcs_inhib < 50:inhib_exp += rand(1,3)
  186. pcs_sweat = 10 + rand(0,4)
  187. if hour >= 22 or hour <= 6:
  188. if RAND(0,10) < 5 and MiraLoc = 1:
  189. '<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirls.jpg"></center>'
  190. 'You and Mira take a nighttime swim in the river, splashing water at each other and having fun.'
  191. else
  192. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriverswim.jpg"></center>'
  193. 'You take a nighttime swim in the river, feeling the refreshing and invigorating water flowing across your body.'
  194. end
  195. else
  196. if RAND(0,10) < 5 and MiraLoc = 1:
  197. '<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirls.jpg"></center>'
  198. 'You and Mira take a swim in the river, splashing water at each other and having fun.'
  199. else
  200. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriverswim.jpg"></center>'
  201. 'You take a swim in the river, feeling the refreshing and invigorating water flowing across your body.'
  202. end
  203. end
  204. act 'Get out of the water':
  205. if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 and hour >= 8 and hour < 20:
  206. *clr & cla
  207. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex13.jpg"></center>'
  208. 'When you decide it''s time to get out of the river, you hear the sound of men laughing as they walk on the river bank approaching you. As they get closer you see the smirking faces of the village boys led by Mitya headed towards the river bank while you are still in the shallow waters.'
  209. 'They quickly undress and jump in the water. Within a few seconds you are surrounded by the grinning boys. Without a word they reach for you and roughly take turns forcing you to suck their cocks.'
  210. gs 'arousal', 'bj', 15, 'gangbang', 'sub', 'rough'
  211. gs 'arousal', 'hj', 15, 'gangbang', 'sub', 'rough'
  212. gs 'arousal', 'end'
  213. gs 'boyStat', 'A63'
  214. npc_sex[$boy] += 1
  215. gs 'cum_call','face',$boy, 1,'','',20
  216. gs 'cum_call','hair',$boy, 1,'','',20
  217. gs 'boyStat', 'A61'
  218. npc_sex[$boy] += 1
  219. gs 'cum_call','face',$boy, 1,'','',20
  220. gs 'cum_call','mouth',$boy, 1,'','',20
  221. gs 'boyStat', 'A62'
  222. npc_sex[$boy] += 1
  223. minut -= 10
  224. gs 'cum_call','face',$boy, 1,'','',20
  225. gs 'cum_call','mouth',$boy, 1,'','',20
  226. swallow += RAND(0,3)
  227. gang +=1
  228. gs 'stat'
  229. act 'Finish':gt'gadriver', 'gadbitch'
  230. elseif MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 1 and hour >= 8 and hour < 20 and sub > 0:
  231. *clr & cla
  232. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex19.jpg"></center>'
  233. 'As soon as you get out of the river, you meet a grinning Kolyamba. He smiles wickedly and commands you to get down on your hands and knees so he can fuck you in the ass...'
  234. gs 'boyStat', 'A61'
  235. npc_sex[$boy] += 1
  236. pose = 1
  237. gs 'dinSex','boy_wants_anal'
  238. gs 'arousal', 'anal', 20, 'sub'
  239. gs 'cum_call','anus',$boy, 1,'','',20
  240. gs 'cum_call','butt',$boy, 1,'','',20
  241. gs 'arousal', 'end'
  242. gs 'stat'
  243. act 'Finish':gt'gadriver', 'gadbitch'
  244. else
  245. gt'gadriver', 'gadbitch'
  246. end
  247. end
  248. end
  249. else
  250. if $clothingworntype = 'nude':
  251. act 'Go skinny dipping':
  252. cla
  253. *clr
  254. temp_gr = RAND(0,15)
  255. cumspclnt = 4
  256. gs 'cum_cleanup'
  257. minut = minut + 20
  258. pcs_sweat = 10 + rand(0,4)
  259. pcs_mood += 5
  260. pcs_willpwr = pcs_willpwr + 5
  261. inhib_exp += rand(1,3)
  262. if pcs_stren < 30: stren_exp += 1
  263. if hour >= 22 and hour <= 6:
  264. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/watergirls1.jpg"></center>'
  265. 'You strip your clothes off and slowly step in to the cold river, knowing that the darkness hides your nudity. You swim around feeling the refreshing and invigorating water caressing your body.'
  266. else
  267. if temp_gr >= 10 and MiraLoc = 1:
  268. pcs_horny += RAND(5,15)
  269. gs 'stat'
  270. '<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
  271. 'You step in to the river, you and Mira have a good old fashioned water fight, splashing each other until one of you finally surrenders.'
  272. else
  273. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/watergirls.jpg"></center>'
  274. 'You take your clothes off and swiftly step into the river, you sigh, feeling the cold refreshing and invigorating water.'
  275. end
  276. end
  277. act 'Get out of the water':
  278. if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 and hour >= 8 and hour < 20:
  279. *clr & cla
  280. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex12.jpg"></center>'
  281. 'As soon as you step out of the water, you find yourself standing naked in front of a couple of the village boys, judging from the fishing poles they are carrying, you know they were coming to the river to do some fishing.'
  282. 'But, seeing you skinny dipping, they instead start talking amongst themselves about how much of a slut you are and the only good thing you are for is sucking cock. You tell them to fuck off, but they are too worked up and not listening to you at all.'
  283. gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
  284. gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
  285. gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
  286. gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
  287. gs 'arousal', 'end'
  288. gs 'boyStat', 'A63'
  289. npc_sex[$boy] += 1
  290. gs 'cum_call','butt',$boy, 1
  291. gs 'boyStat', 'A61'
  292. npc_sex[$boy] += 1
  293. gs 'cum_call','anus',$boy, 1,'','',20
  294. gs 'boyStat', 'A62'
  295. npc_sex[$boy] += 1
  296. gs 'cum_call','mouth',$boy
  297. swallow += RAND(0,1)
  298. gs 'stat'
  299. gang +=1
  300. act 'Finish': gt'gadriver', 'gadbitch'
  301. else
  302. gt'gadriver', 'gadbitch'
  303. end
  304. end
  305. end
  306. end
  307. end
  308. if hour >= 8 and hour < 20 and sunWeather = 1:
  309. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  310. act 'Sunbathe (1:00)':
  311. if Mira_no = 0 and npc_rel['A60'] > 0 and MiraLoc ! 1 and rand(1,10) > 7 and hour > 8 and hour < 20 and sunWeather = 1 and temper >= 15:
  312. cla
  313. *clr
  314. MiraLoc = 1
  315. mira_go_river = 1
  316. minut += 5
  317. mira_go_blok = 1
  318. if pcs_inhib < 50:inhib_exp += rand(1,3)
  319. gs 'stat'
  320. if $clothingworntype = 'nude':
  321. '<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_river_nude.jpg"></center>'
  322. else
  323. '<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_river.jpg"></center>'
  324. end
  325. 'You are sunbathing by the river when Mira comes along. You smile, she undresses and lays her towel next to yours.'
  326. act 'Continue': gt'gadriver', 'gadbitch'
  327. elseif $clothingworntype = 'nude':
  328. *clr & cla
  329. minut += 60
  330. gs 'exhibitionism', 2
  331. inhib_exp += rand(1,3)
  332. if pcs_sweat < 35 : pcs_sweat += 5
  333. pcs_mood += 5
  334. if temp_gr < 10 and MiraLoc = 1:
  335. '<center><img <<$set_imgh>> src="images/characters/village/mira/beachtwogirlsnude.jpg"></center>'
  336. 'You lie next to Mira and gossip about the villagers, enjoying the sun.'
  337. else
  338. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadrivernude.jpg"></center>'
  339. 'You lie down on your towel and start sunbathing.'
  340. end
  341. if krem = 0:
  342. pcs_tan += 1
  343. elseif krem > 0:
  344. krem -= 1
  345. 'You smear the suntan lotion all over your body to help prevent a sunburn.'
  346. pcs_tan += 3
  347. end
  348. act 'Finish sunbathing':
  349. if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 and hour >= 8 and hour < 20:
  350. *clr & cla
  351. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex14.jpg"></center>'
  352. 'You hear several men''s voices rapidly approaching. All of a sudden a couple of the village boys emerge in front of you. Noticing that you are nude, they brighten up greatly and in a few minutes, despite you protesting lively, they have you on all fours and are roughly fucking you...'
  353. gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
  354. gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
  355. gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
  356. gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
  357. gs 'boyStat', 'A62'
  358. npc_sex[$boy] += 1
  359. gs 'cum_call','butt',$boy, 1
  360. gs 'boyStat', 'A63'
  361. npc_sex[$boy] += 1
  362. gs 'cum_call','anus',$boy, 1,'','',20
  363. gs 'boyStat', 'A61'
  364. npc_sex[$boy] += 1
  365. gs 'cum_call','mouth',$boy
  366. swallow += 1
  367. gs 'arousal', 'end'
  368. gs 'stat'
  369. act 'Get dressed':gt'gadriver', 'gadbitch'
  370. else
  371. gt'gadriver', 'gadbitch'
  372. end
  373. end
  374. else
  375. *clr & cla
  376. minut += 60
  377. if pcs_sweat < 35 : pcs_sweat += 5
  378. pcs_mood += 5
  379. if temp_gr < 10 and MiraLoc = 1:
  380. '<center><img <<$set_imgh>> src="images/characters/village/mira/beachtwogirls.jpg"></center>'
  381. 'You lie next to Mira and gossip about trivial things, enjoying the sun.'
  382. else
  383. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadrivergirl.jpg"></center>'
  384. 'You sunbathe alone on the riverbank.'
  385. end
  386. if krem = 0:
  387. pcs_tan += 1
  388. elseif krem > 0:
  389. krem -= 1
  390. pcs_tan += 3
  391. 'You smear suntan lotion all over your body to prevent a sunburn. Few minutes later you''re all oiled in and start sunbathing.'
  392. end
  393. act 'Finish':
  394. if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 and hour >= 8 and hour < 20:
  395. *clr & cla
  396. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex15.jpg"></center>'
  397. 'After a while, you hear some familiar voices quickly approaching you. A couple minutes later you see the village boys emerge from the bushes. Noticing you sunbathing, they brighten up greatly. In a short amount of time, despite you protesting lively, all of your holes have been violated...'
  398. gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
  399. gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
  400. gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
  401. gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
  402. gs 'arousal', 'end'
  403. gs 'boyStat', 'A61'
  404. npc_sex[$boy] += 1
  405. gs 'cum_call','butt',$boy, 1
  406. gs 'boyStat', 'A62'
  407. npc_sex[$boy] += 1
  408. gs 'cum_call','anus',$boy, 1,'','',20
  409. gs 'boyStat', 'A63'
  410. npc_sex[$boy] += 1
  411. gs 'cum_call','mouth',$boy
  412. swallow += 1
  413. gang +=1
  414. gs 'stat'
  415. act 'Finish':gt'gadriver', 'gadbitch'
  416. elseif MiraLoc = 1 and npc_QW['A60'] >= 15 and temp_gr = 1 and hour >= 8 and hour < 20:
  417. *clr & cla
  418. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex16.jpg"></center>'
  419. 'After a while, you hear voices rapidly approaching from the village, in a couple of minutes you see the village boys emerge from the bushes. Seeing Mira they smile obscenely, and without hesitation they quickly surround her as she lays on the sand. You sit up and watch as they fuck her in all her holes...'
  420. gs 'arousal', 'voyeur', 30, 'gangbang', 'dom'
  421. gs 'arousal', 'end'
  422. gs 'stat'
  423. act 'Finish': gt'gadriver', 'gadbitch'
  424. else
  425. minut += 5
  426. gt'gadriver', 'gadbitch'
  427. end
  428. end
  429. end
  430. end
  431. end
  432. end
  433. end
  434. if ARRSIZE('swimwear') > 0:
  435. act 'Get changed':gt 'changingroom', 'view_swim_list'
  436. end
  437. if $clothingworntype = 'nude':
  438. act 'Get dressed':
  439. clothesAtLocation = FUNC('lost_clothes_here','VillageRiver')
  440. cla
  441. minut += 5
  442. gs 'underwear', 'wear'
  443. if clothesAtLocation = 1: gs 'clothing', 'recover_lost_clothes', 'VillageRiver', 1
  444. act 'Continue': gt 'gadriver', 'gadbitch'
  445. end
  446. end
  447. act 'Leave':
  448. cla
  449. if $clothingworntype = 'swimwear':
  450. cla
  451. 'You need to dress in regular clothes first.'
  452. act'Return':gt'gadriver', 'gadbitch'
  453. elseif $clothingworntype = 'nude':
  454. 'You need to put some clothes on first.'
  455. act'Return':gt'gadriver', 'gadbitch'
  456. else
  457. minut += 5
  458. gt 'gadriver', 'start'
  459. end
  460. end
  461. !! extraordinary events at the river beach. Be aware, this part has to be at the end because it removes actions, which were set before.
  462. if (mira_go_blok = 0 and MiraLoc = 1 and rand(1,10) = 5) or (MiraLoc = 1 and hour >= 20):
  463. *clr & cla
  464. minut += 5
  465. mira_go_blok = 1
  466. mira_no_home = 0
  467. MiraLoc = 0
  468. gs 'stat'
  469. if $clothingworntype = 'nude':
  470. '<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_home_nude.jpg"></center>'
  471. else
  472. '<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_home.jpg"></center>'
  473. end
  474. *nl
  475. '"<<$pcs_nickname>>, I have to go home, " Mira said to you and began to gather her stuff.'
  476. act 'Continue': gt'gadriver', 'gadbitch'
  477. elseif Mira_no = 0 and MiraLoc = 1 and hour > 8 and hour < 20 and sunWeather = 1 and temper >= 15 and PC_arrive = 1:
  478. *clr & cla
  479. '<center><img <<$set_imgh>> src="images/characters/village/mira/mira_in_river.jpg"></center>'
  480. *nl
  481. 'Arriving at the beach, you see Mira laying down, sunbathing on a towel.'
  482. MiraLoc = 1
  483. minut += 5
  484. mira_go_blok = 1
  485. gs 'stat'
  486. act 'Continue':
  487. if Miraswimday ! daystart:
  488. *clr & cla
  489. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirariver.jpg"></center>'
  490. *nl
  491. '"<<$pcs_nickname>>, Why are you moping about on the shore, get in the water and swim with me?" - Mira called out to you as she waded into the river.'
  492. minut += 1
  493. Miraswimday = daystart
  494. gs 'stat'
  495. act 'Agree and get changed':
  496. *clr & cla
  497. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/undressbch1.jpg"></center>'
  498. *nl
  499. '"Wait Mira, I have to change out of my clothes!" you cry in response, although she could hardly hear you as she is already splashing around in the river.'
  500. 'You start to take off your clothes.'
  501. if ARRSIZE('swimwear') > 0:
  502. act 'Change into swimwear':
  503. gs 'gadriver','get_changed','start'
  504. end
  505. end
  506. if pcs_inhib >= 25 or exhibitionist_lvl > 1:
  507. act 'Strip naked':
  508. cla
  509. minut += 5
  510. gs 'underwear', 'remove'
  511. gs 'clothing', 'strip', 'VillageRiver'
  512. inhib_exp += rand(1,3)
  513. 'Without hesitation, you take off all your clothes and neatly fold them before putting them down in a pile. Without your clothes holding you back, you can go for a nice swim in the river or just lie down in the sand and do some sunbathing.'
  514. act 'Swim':
  515. *clr & cla
  516. '<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
  517. *nl
  518. 'You wade into the river, and have fun with Mira spraying each other with water.'
  519. temp_gr = RAND(0,15)
  520. cumspclnt = 4 & gs 'cum_cleanup'
  521. minut += 30
  522. gs 'exercise', 'tier1', 1, 'stren_exp'
  523. gs 'exhibitionism', 2
  524. pcs_sweat = 10 + rand(0,4)
  525. gs'stat'
  526. act 'Get out of the water':gt'gadriver', 'gadbitch'
  527. end
  528. end
  529. end
  530. act'Second thoughts': gt 'gadriver', 'second_thoughts'
  531. end
  532. act'Refuse': gt 'gadriver', 'second_thoughts'
  533. else
  534. gt'gadriver', 'gadbitch'
  535. end
  536. end
  537. end
  538. end
  539. if $ARGS[0] = 'get_changed':
  540. menu_off = 1
  541. $metka = 'get_changed'
  542. if $ARGS[1] = 'start':
  543. gt 'changingroom', 'view_swim_list'
  544. else
  545. *clr & cla
  546. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/undressbch.jpg"></center>'
  547. *nl
  548. 'You put on our swimwear and neatly fold your clothes before putting them down in a pile, now you can go for a nice swim in the river or just lie down in the sand and do some sunbathing.'
  549. if $clothingworntype = 'swimwear':
  550. act 'Swim':
  551. *clr & cla
  552. '<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirls.jpg"></center>'
  553. *nl
  554. 'You wade into the river, and have fun with Mira spraying each other with water.'
  555. temp_gr = RAND(0,15)
  556. cumspclnt = 4 & gs 'cum_cleanup'
  557. minut += 30
  558. if pcs_inhib < 50:inhib_exp += rand(1,2)
  559. gs 'exercise', 'tier1', 1, 'stren_exp'
  560. pcs_sweat = 10 + rand(0,4)
  561. gs'stat'
  562. act 'Get out of the water':gt'gadriver', 'gadbitch'
  563. end
  564. else
  565. act'Second thoughts': gt 'gadriver', 'second_thoughts'
  566. end
  567. end
  568. end
  569. if $ARGS[0] = 'second_thoughts':
  570. *clr & cla
  571. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirariver.jpg"></center>'
  572. *nl
  573. if ARRSIZE('swimwear') = 0:
  574. '"Actually Mira, I can''t come in right now, as I didn''t bring a swimsuit" you replied you her. "I''m going to stay on the shore for a bit."'
  575. *nl
  576. 'You should probably buy some swimwear if you intend of spending time at the beach'
  577. *nl
  578. else
  579. '"Actually Mira, I''ve changed my mind, I don''t feel like swimming just now," you replied you her. "I''m going to stay on the shore for a bit."'
  580. end
  581. minut += 1
  582. npc_rel['A60'] -= 1
  583. gs 'stat'
  584. act 'Continue': gt'gadriver', 'gadbitch'
  585. end
  586. if $ARGS[0] = 'Mira':
  587. *clr & cla
  588. menu_off = 1
  589. minut += 2
  590. gs 'stat'
  591. if sun = 1:
  592. if npc_QW['A60'] < 12:
  593. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeach.jpg"></center>'
  594. else
  595. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeachnude.jpg"></center>'
  596. end
  597. else
  598. if npc_QW['A60'] < 12:
  599. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirariver.jpg"></center>'
  600. else
  601. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirarivernude.jpg"></center>'
  602. end
  603. end
  604. act 'Leave':gt 'gadriver', 'gadbitch'
  605. act 'Chat':
  606. *clr & cla
  607. minut += 10
  608. pcs_mood += 10
  609. gs 'stat'
  610. if sun = 1:
  611. if npc_QW['A60'] < 12:
  612. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeach.jpg"></center>'
  613. else
  614. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeachnude.jpg"></center>'
  615. end
  616. else
  617. if npc_QW['A60'] < 12:
  618. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirariver.jpg"></center>'
  619. else
  620. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirarivernude.jpg"></center>'
  621. end
  622. end
  623. if npc_QW['A60'] >= 0:
  624. if npc_QW['A60'] >= 30 and miraprost > 0 and sunWeather = 1:
  625. 'You and Mira talk about her being the village prostitute and how she can improve her performance.'
  626. elseif npc_QW['A60'] >= 20 and sunWeather = 1:
  627. 'It is always nice to talk with Mira and you gossip about boys.'
  628. elseif npc_QW['A60'] >= 15 and sunWeather = 1:
  629. 'You and Mira talk about clothes and shopping, she has a thing for shoes but can''t wear pretty heels because of all the mud.'
  630. elseif npc_QW['A60'] >= 11 and sunWeather = 1:
  631. 'Mira asks you about Pavlovsk and you tell her all about it.'
  632. elseif npc_QW['A60'] >= 9 and sunWeather = 1:
  633. 'You talk to Mira about what it is like living in the village.'
  634. elseif npc_QW['A60'] >= 8 and sunWeather = 1:
  635. 'Mira breaks the silence, "What brings you here to the village?"'
  636. '"My granma-ma and Pop-pop live here, my folks like to come here over the summer. They think the country air will be good for me."'
  637. elseif npc_QW['A60'] = 7 and sunWeather = 1:
  638. 'You decide to strike up some conversation with Mira, "So what is there to do here in the village?"'
  639. '"Its a lot quicker than town, we do have a shop, this lovely beach and there are some beautiful walks. Other than that there''s only the gopnik guys but they are just after one thing and I don''t want that, plus dad would kill me."'
  640. elseif npc_QW['A60'] < 7 and sunWeather = 1:
  641. if npc_rel['A60'] < 15:npc_rel['A60'] += 1
  642. 'You and Mira are chatting about trivial things.'
  643. end
  644. end
  645. act 'Leave':gt 'gadriver', 'gadbitch'
  646. end
  647. end
  648. if $ARGS[0] = 'mirapunish':
  649. *clr & cla
  650. menu_off = 1
  651. minut += 10
  652. pcs_horny += RAND(25,75)
  653. gs 'stat'
  654. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirapunish.jpg"></center>'
  655. 'You approach Mira, she is looking distressed and embarrassingly smiles as you start asking what happened. She pleads you to release her. As you untie her, she explains that Kolyamba punished her for barely biting his cock as she sucked it...'
  656. '"Thank God you showed up." she says with a sigh of relief as you untie her. "I''m glad it was you who found me and not one of those old hags from the village. They would be calling me a whore and I would get scolded about being promiscuous. Those old hags hate us you know. We''re young and beautiful and they are just mean old wrenches." said the naked Mira, revealing her true feelings about the villagers. She continues quietly, "Or it could have been even worse, someone could have abused me, raped me or even killed m..." All of a sudden she stops and lunges herself in your arms weeping. "Thank you," she tells you. "You saved my life!"'
  657. act 'Leave':gt 'gadriver', 'gadbitch'
  658. end
  659. if $ARGS[0] = 'GuysRiver':
  660. *clr & cla
  661. menu_off = 1
  662. minut += 5
  663. pcs_horny += 10
  664. gs 'stat'
  665. temp_gr = RAND(0,10)
  666. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/mitkaguysriver.jpg"></center>'
  667. '"Oh, hi <<$pcs_nickname>>, so it''s just you today?" Kolyamba grinned.'
  668. if temp_gr <= 4:
  669. '"There doesn''t seem to be anyone else around and all of us are as horny as bullfrogs, you want to have a little fun with us? Come on, spread your legs, show us your pussy and start playing with yourself..."'
  670. elseif temp_gr > 4 and temp_gr <= 8:
  671. '"There doesn''t seem to be anyone around, and we are as horny as bullfrogs, you want to have a little fun with us? How about you give us a blowjob? We''ll be really grateful, ha-ha!"'
  672. else
  673. '"Ah, no Mira, it''s just our other hot babe. Come here lovely, we have something really special for you."'
  674. end
  675. if temp_gr < 4:
  676. act 'Pleasure Kolyamba':
  677. *clr & cla
  678. gs 'boyStat', 'A61'
  679. pose = 0
  680. temp_gr = RAND(0,2)
  681. gs 'stat'
  682. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex.jpg"></center>'
  683. 'You quickly take off your pants and climb onto Kolyamba, grabbing his cock, leading it inside you.'
  684. gs 'arousal', 'vaginal', 10, 'sub', 'group'
  685. gs 'stat'
  686. act 'Pleasure Vasyan':
  687. *clr & cla
  688. gs 'boyStat', 'A62'
  689. pose = 0
  690. gs 'stat'
  691. temp_gr = RAND(0,2)
  692. if temp_gr = 0:
  693. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex1.jpg"></center>'
  694. 'Vasyan, rolls you onto your back, sticking his cock into your wet pussy.'
  695. gs 'arousal', 'vaginal', 10, 'sub', 'group'
  696. gs 'arousal', 'end'
  697. gs 'stat'
  698. elseif temp_gr = 1:
  699. gs 'boyStat', 'A62'
  700. spafinloc = 12
  701. gs 'cum_manage'
  702. gs'stat'
  703. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex2.jpg"></center>'
  704. 'Vasya steps up to you and slaps you in the face while pulling out his cock forcing your on your knees so he can slap you with his dick.'
  705. 'He forcefully shoves the cock into your mouth and cums lavishly in your mouth...'
  706. gs 'arousal', 'bj', 5, 'sub', 'group', 'rough'
  707. gs 'arousal', 'end'
  708. gs 'stat'
  709. else
  710. gs 'boyStat', 'A62'
  711. pcs_ass += 1
  712. spafinloc = 3
  713. gs 'cum_manage'
  714. gs'stat'
  715. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex3.jpg"></center>'
  716. 'Vasyan forces you on all four and starts pumping his dick into your ass.'
  717. gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
  718. gs 'arousal', 'end'
  719. gs 'stat'
  720. end
  721. act 'Leave':gt'gadriver', 'gadbitch'
  722. end
  723. end
  724. elseif temp_gr < 8:
  725. act 'Pleasure Kolyamba':
  726. *clr & cla
  727. gs 'boyStat', 'A61'
  728. spafinloc = 12
  729. gs 'cum_manage'
  730. gs'stat'
  731. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex4.jpg"></center>'
  732. 'You get down on your knees and start licking Kolyamba''s dick, after a while you start sucking it like a popsicle...'
  733. 'He only manages to hold out for a short time finishing in your mouth...'
  734. gs 'arousal', 'bj', 5, 'sub', 'group', 'rough'
  735. gs 'stat'
  736. act 'Pleasure Vasyan':
  737. *clr & cla
  738. gs 'boyStat', 'A62'
  739. pose = 0
  740. gs 'stat'
  741. temp_gr = RAND(0,2)
  742. if temp_gr = 0:
  743. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex5.jpg"></center>'
  744. 'Vasyan, lays you onto your back, using his fingers stimulating your vaginal lips while sticking his cock into your wet pussy.'
  745. gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
  746. gs 'arousal', 'end'
  747. gs 'stat'
  748. elseif temp_gr = 1:
  749. gs 'boyStat', 'A62'
  750. spafinloc = 12
  751. gs 'cum_manage'
  752. gs'stat'
  753. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex6.jpg"></center>'
  754. 'Vasyan steps up and roughs you up a little with his hands and then takes out his dick forcing you to suck him off.'
  755. 'He shoves the cock into your mouth and soon cums violently...'
  756. gs 'arousal', 'bj', 5, 'sub', 'group', 'rough'
  757. gs 'arousal', 'end'
  758. gs 'stat'
  759. else
  760. gs 'boyStat', 'A62'
  761. pcs_ass += 1
  762. spafinloc = 3
  763. gs 'cum_manage'
  764. gs'stat'
  765. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex7.jpg"></center>'
  766. 'Vasyan forces you on all four, telling you that you will enjoy this. He pulls out his dick and starts fucking you in the ass.'
  767. gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
  768. gs 'arousal', 'end'
  769. gs 'stat'
  770. end
  771. act 'Leave':gt'gadriver', 'gadbitch'
  772. end
  773. end
  774. else
  775. act 'Pleasure Kolyamba':
  776. *clr & cla
  777. gs 'boyStat', 'A61'
  778. pcs_ass += 1
  779. spafinloc = 3
  780. gs 'cum_manage'
  781. gs'stat'
  782. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex8.jpg"></center>'
  783. 'Kolyamba looks you in the eyes and asks if you trust him. You gulp and reply, "Yes." He takes out a blindfold and places it over your eyes so you can''t see what''s happening next. Kolyamba then proceeds taking both or your clothes off. You stand in front of him blindfolded, naked, and full of anticipation.'
  784. 'He orders you to get down on your knees, he grabs your head and tells you to open your mouth. While pleasuring him he orders you to stop and moves the cock away from the mouth. He then lies down on the ground and tells you to mount him. You move on top of him while he grabs his cock and leads it inside your ass. He frantically starts thrusting his cock inside your ass, cumming after a short while.'
  785. gs 'arousal', 'bj', 10, 'sub', 'group', 'rough'
  786. gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
  787. minut -= 10
  788. gs 'stat'
  789. act 'Pleasure Vasyan':
  790. *clr & cla
  791. gs 'boyStat', 'A62'
  792. pose = 1
  793. gs 'stat'
  794. temp_gr = RAND(0,2)
  795. if temp_gr = 0:
  796. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex9.jpg"></center>'
  797. 'Vasyan tells you he heard about a sex position where both of you will reach ecstasy. Intrigued by this you take your clothes off and start caressing his cock. He removes your hand from his cock and tells you to get down on your hands and knees. Vasya walks behind you, grabs his cock and enters you from behind. You gasp as he mounts you. Soon enough you both cry out in ecstasy cumming at the same time.'
  798. $orgasm_or = 'yes'
  799. gs 'arousal', 'bj', 10, 'sub', 'group', 'rough'
  800. gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
  801. minut -= 10
  802. gs 'arousal', 'end'
  803. gs 'stat'
  804. elseif temp_gr = 1:
  805. gs 'boyStat', 'A62'
  806. spafinloc = 12
  807. gs 'cum_manage'
  808. gs'stat'
  809. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex10.jpg"></center>'
  810. 'Vasyan steps closer to you and tells you he wants his cock sucked. You drop down on your knees and start sucking his glans.'
  811. 'Feeling dissatisfied by your performance he grabs you by the head and forces his cock deep down your throat mumbling something about teaching you how to do it properly. He finishes inside your mouth...'
  812. gs 'arousal', 'bj', 5, 'sub', 'group', 'rough', 'deepthroat'
  813. gs 'arousal', 'end'
  814. gs 'stat'
  815. else
  816. gs 'boyStat', 'A62'
  817. pcs_ass += 1
  818. spafinloc = 3
  819. gs 'cum_manage'
  820. gs'stat'
  821. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex11.jpg"></center>'
  822. 'Vasyan forces you to your hands and knees and starts thrusting his dick into your anus.'
  823. gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
  824. gs 'arousal', 'end'
  825. gs 'stat'
  826. end
  827. act 'Leave':gt'gadriver', 'gadbitch'
  828. end
  829. end
  830. end
  831. if pcs_dom > 0:
  832. act 'Leave':gt'gadriver', 'gadbitch'
  833. end
  834. end
  835. if $ARGS[0] = 'fishers':
  836. *clr & cla
  837. menu_off = 1
  838. minut += 2
  839. gs 'stat'
  840. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriverfishers.jpg"></center>'
  841. if fishersday ! daystart:
  842. act 'Greet':
  843. cla
  844. *clr
  845. fishersday = daystart
  846. minut += 3
  847. if fishersQW < 3:fishersQW += 1
  848. gs 'stat'
  849. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/hifishers.jpg"></center>'
  850. 'You politely greet the fishermen, but they are totally focused on fishing, one of them absently waves in your general direction in response.'
  851. if fishersQW >= 3:
  852. act 'Chat':
  853. cla
  854. *clr
  855. minut += 10
  856. if fishersQW = 3:fishersQW = 4
  857. gs 'stat'
  858. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  859. 'You keep watching as the fishermen throw out their lures, one of them catches a fish and shows off his trophy before putting it into the fish bail. The two of you chat about fishing.'
  860. act 'Leave':gt 'gadriver', 'start'
  861. end
  862. end
  863. if fishersQW = 4:
  864. act 'Ask to borrow a fishing rod':
  865. cla
  866. *clr
  867. minut += 10
  868. fishersQW = 5
  869. gs 'stat'
  870. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  871. 'You decide to try your luck at fishing and ask the fishermen if they could lend you a fishing rod. A friend of the family, Uncle Stepan points to a pile of spare rods and tells you to pick one.'
  872. act 'Fishing':gt 'gadriver', 'fishing'
  873. end
  874. end
  875. if fishersQW = 5:
  876. act 'Fishing with them':
  877. cla
  878. *clr
  879. minut += 10
  880. gs 'stat'
  881. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  882. 'You decide to join your new friends, Uncle Stepan tells you he has plenty of spare rods, and he hands you a rod while his eyes travel up and down your body.'
  883. act 'Fishing':gt 'gadriver', 'fishing'
  884. end
  885. end
  886. act 'Leave':gt 'gadriver', 'start'
  887. end
  888. else
  889. act 'Leave':gt 'gadriver', 'start'
  890. end
  891. end
  892. if $ARGS[0] = 'fishing':
  893. cla
  894. *clr
  895. menu_off = 1
  896. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver.jpg"></center>'
  897. 'The stream quietly flows over the rocks, pleasantly tickling your ears. You gaze at the village that''s completely peaceful, there is a sense of serenity about it today.'
  898. 'You caught <<fish>> fish.'
  899. if hour < 22:
  900. act 'Throw the bait':
  901. *clr & cla
  902. minut += RAND(5,10)
  903. if hour < 12:
  904. temp_gr = RAND(5,20)
  905. elseif hour >= 12 and hour < 18:
  906. temp_gr = RAND(0,20)
  907. else
  908. temp_gr = RAND(10,20)
  909. end
  910. gs 'stat'
  911. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/fishingriver.jpg"></center>'
  912. 'You throw out the lure and carefully watch the bobber for signs of nibble.'
  913. if temp_gr > RAND(15,19):
  914. cla
  915. *clr
  916. minut += 1
  917. gs 'stat'
  918. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/nofishingriver.jpg"></center>'
  919. 'Suddenly the bobber dives under the water dramatically. You got one!'
  920. act 'Pull':
  921. cla
  922. *clr
  923. minut += 1
  924. temp_gr = RAND(0,120)
  925. if temp_gr < 50:react_exp += 1
  926. gs 'stat'
  927. if pcs_react > temp_gr:
  928. pcs_mood += rand(5,10)
  929. minut += 1
  930. react_exp += 1
  931. fish += 1
  932. gs 'stat'
  933. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/fishyes.jpg"></center>'
  934. 'You skillfully strike, pulling the rod up sharply. You feel the rod straining slightly, and after a few moments, you excitedly pull a small fish out of the water.'
  935. else
  936. pcs_mood -= rand(5,10)
  937. minut += 1
  938. gs 'stat'
  939. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver.jpg"></center>'
  940. 'You strike, but the lack of tension makes the fish escape from the hook.'
  941. end
  942. act 'Throw another bait':gt 'gadriver', 'fishing'
  943. end
  944. else
  945. 'The bobber remains perfectly still, eventually you decide to try a different lure.'
  946. act 'Retrieve bait':gt 'gadriver', 'fishing'
  947. end
  948. end
  949. act 'Finish':
  950. cla
  951. *clr
  952. minut += 5
  953. gs 'stat'
  954. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  955. 'You''re feeling tired, so you return the fishing rod to uncle Stepan.'
  956. if fish > 0:
  957. act 'Release your catch':
  958. cla
  959. *clr
  960. minut += 5
  961. fish = 0
  962. gs 'stat'
  963. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  964. 'You decide to release all the fish you caught today, the other fishermen shake their heads disapprovingly, throwing sidelong glances at your body as you dump the fish back into the river.'
  965. act 'Leave':gt $loc, $metka
  966. end
  967. act 'Give the fish to Uncle Stepan':
  968. cla
  969. *clr
  970. minut += 5
  971. fish = 0
  972. gs 'stat'
  973. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  974. 'You give all the fish you caught to uncle Stepan and he makes a show out of reluctantly accepting them, but you can see that he is actually quite happy with this arrangement.'
  975. act 'Leave':gt $loc, $metka
  976. end
  977. act 'Bring a fish to Boniface':
  978. cla
  979. *clr
  980. minut += 5
  981. fish -= 1
  982. pcs_mood += RAND(15,40)
  983. gs 'stat'
  984. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat2.jpg"></center>'
  985. 'As soon as you enter the house, Boniface immediately jumps down to the floor and twines around your feet. The furry beast starts yowling very loudly and pawing at your legs. He has obviously detected the smell of fresh fish. You treat Boniface to a small fish and within a few minutes all that remains is a pile of fish bones.'
  986. if fish >0: fish = 0 & 'You try to give the rest of the fish to your grandmother, but she takes one look at the intact fish and point at your grandfather. He sighs heavily then takes the fish outside to clean them.'
  987. act 'Finish': gt 'Gadhouse'
  988. end
  989. act 'Give the fish to your grandmother':
  990. cla
  991. *clr
  992. minut += 5
  993. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/givefish.jpg"></center>'
  994. 'You try to give the fish to your grandmother, but she takes one look at the intact fish and point at your grandfather. He sighs heavily then takes the fish outside to clean them.'
  995. act 'Finish': gt 'Gadhouse'
  996. end
  997. else
  998. act 'Leave':gt $loc, $metka
  999. end
  1000. end
  1001. else
  1002. cla
  1003. *clr
  1004. minut += 5
  1005. pcs_mood -= RAND(5,10)
  1006. gs 'stat'
  1007. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  1008. 'Uncle Stepan says, "It''s time to head home, young lady." You reluctantly return his fishing rod, knowing that''s it for today.'
  1009. if fish > 0:
  1010. act 'Release your catch':
  1011. cla
  1012. *clr
  1013. minut += 5
  1014. fish = 0
  1015. gs 'stat'
  1016. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  1017. 'You decide to release all the fish you caught today, the other fishermen shake their heads disapprovingly, throwing sidelong glances at your body as you dump the fish back into the river.'
  1018. act 'Leave':gt $loc, $metka
  1019. end
  1020. act 'Give to Uncle Stepan':
  1021. cla
  1022. *clr
  1023. minut += 5
  1024. fish = 0
  1025. gs 'stat'
  1026. '<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
  1027. 'You give all the fish caught to uncle Stepan and he reluctantly accepts them, you can see he is quite happy with this arrangement.'
  1028. act 'Leave':gt $loc, $metka
  1029. end
  1030. act 'Bring a fish to Boniface':
  1031. cla
  1032. *clr
  1033. minut += 5
  1034. fish -= 1
  1035. pcs_mood += RAND(15,40)
  1036. gs 'stat'
  1037. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat2.jpg"></center>'
  1038. 'As soon as you enter the house, Boniface immediately jumps down to the floor and twines around your feet. The furry beast starts yowling very loudly and pawing at your legs. He has obviously detected the smell of fresh fish. You treat Boniface to a small fish and within a few minutes all that remains is a pile of fish bones.'
  1039. if fish >0: fish = 0 & 'You try to give the rest of the fish to your grandmother, but she takes one look at the intact fish and point at your grandfather. He sighs heavily then takes the fish outside to clean them.'
  1040. act 'Finish': gt 'Gadhouse'
  1041. end
  1042. act 'Give the fish to your grandmother':
  1043. cla
  1044. *clr
  1045. minut += 5
  1046. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/givefish.jpg"></center>'
  1047. 'You try to give the fish to your grandmother, but she takes one look at the intact fish and point at your grandfather. He sighs heavily then takes the fish outside to clean them.'
  1048. act 'Finish': gt 'Gadhouse'
  1049. end
  1050. else
  1051. act 'Leave':gt $loc, $metka
  1052. end
  1053. end
  1054. end
  1055. --- gadriver ---------------------------------