Forráskód Böngészése

[changed] Big changes to how the grandparents schedule works, some small changes to Mira's schedule and the re-integrating a lot of removed content back into the grandparents house

anjuna krokus 4 hónapja
szülő
commit
030e1f82d2

+ 30 - 28
locations/gad_gpchores.qsrc

@@ -6,10 +6,10 @@
 !! Task initiator for the grandparents chores whilst Sveta is staying with grandparents.
 
 if $ARGS[0] =  'init':
-    if gp_chores['active'] > 1:
-        gt 'gad_gpchores', 'active'
-    end
-    gs 'gp_chores', 'convo'
+	if gp_chores['active'] > 1:
+		gt 'gad_gpchores', 'active'
+	end
+	gs 'gp_chores', 'convo'
 end
 
 if $ARGS[0] = 'active':
@@ -17,30 +17,32 @@ end
 
 !! Conversations
 if $ARGS[0] = 'convo':
-    if gp_chores = 0:
-        'You approach your <relation> to ask if they have any jobs for you today.'
-        if gp_chores['mood'] < 0:
-            gp_chores['bonus'] = 0
-            'You are lazy {mc}, i am not sure if you can be trusted to do your share.'
-        elseif gp_chores['mood'] < 10:
-            'Your <relation gives you a hard stare, you are nothing about a layabout. Get out of my sight!'
-        elseif gp_chores['mood'] > 10:
-            gp_chores['bonus'] = 10
-            'You have been so helpful {mc}, it is wonderful to have you with us. Here''s a something little extra for you. '
-        elseif gp_chores['mood'] > 20:
-            gp_chores['bonus'] = 20
-            'Your <relation> face lights up when they see you. You have been such a hardworking girl, you''re mother will be so proud of how diligant you become. Here have a little extra cash for your efforts.'
+	if gp_chores = 0:
+		'You approach your <relation> to ask if they have any jobs for you today.'
+		if gp_chores['mood'] < 0:
+			gp_chores['bonus'] = 0
+			'You are lazy {mc}, i am not sure if you can be trusted to do your share.'
+		elseif gp_chores['mood'] < 10:
+			'Your <relation gives you a hard stare, you are nothing about a layabout. Get out of my sight!'
+		elseif gp_chores['mood'] > 10:
+			gp_chores['bonus'] = 10
+			'You have been so helpful {mc}, it is wonderful to have you with us. Here''s a something little extra for you. '
+		elseif gp_chores['mood'] > 20:
+			gp_chores['bonus'] = 20
+			'Your <relation> face lights up when they see you. You have been such a hardworking girl, you''re mother will be so proud of how diligant you become. Here have a little extra cash for your efforts.'
 
-            !! potential for helping in village with high rep?
+			!! potential for helping in village with high rep?
 		end
-    end
-    if gp_chores['active'] = -1:
-        gp_chores['failed'] += 1
-        gp_chores['mood'] -= 1
-    end
-    if gp_chores['active'] = 5:
-        gp_chores['completed'] += 1
-        gp_chores['mood'] += 1
-    end
+	end
+	if gp_chores['active'] = -1:
+		gp_chores['failed'] += 1
+		gp_chores['mood'] -= 1
+	end
+	if gp_chores['active'] = 5:
+		gp_chores['completed'] += 1
+		gp_chores['mood'] += 1
+	end
 end
---- gad_gpchores ---------------------------------
+
+
+--- gad_gpchores ---------------------------------

+ 698 - 18
locations/gad_gphouse.qsrc

@@ -10,8 +10,8 @@
 !! 2024/06/15 - scales moved to bathroom, full refactor of location, grandparents schedules, and addition of the kitchenette
 !!
 !! locat['A60'] = Mira''s location. See 'miroslava_schedule'
-!! locat['A31'] = Mira''s location. See 'gp_elene_schedule'
-!! locat['A32'] = Zlatek''s location. See 'gp_Zlatek_schedule'
+!! $locat['A31'] = Elene''s location. See 'gp_elene_schedule'
+!! $locat['A32'] = Zlatek''s location. See 'gp_Zlatek_schedule'
 
 !! Init location - one time use to set up unique variables or call settings
 
@@ -19,6 +19,9 @@ if $ARGS[0] = 'entry':
 	$default_img_path = 'locations/gadukino/gp_dacha'
 	$loc = 'gad_gphouse'
 	gs 'homes_properties', 'give_access', 'grandparents_house'
+	gs 'gad_gphouse', 'nudity_trouble_limit'
+	gs 'gad_gphouse', 'enter_events'
+
 	if ARGS[1] ! '':
 		gt $loc, $ARGS[1]
 	else
@@ -26,6 +29,7 @@ if $ARGS[0] = 'entry':
 	end
 end
 
+
 !! Set up location
 
 if $ARGS[0] = 'setup':
@@ -33,6 +37,7 @@ if $ARGS[0] = 'setup':
 	$setloc['StageTitle'] = '<<$room_title>>'
 	$setloc['StageImage'] =   '<<$default_img_path>>/<<$room_image>>'
 	$location_type = 'public_indoors'
+	$region = 'gad'
 	gs 'shortgs', 'setloc', $loc, $ARGS[1]
 	gs 'themes', 'indoors'
 	gs 'shortgs', 'clothing_status'
@@ -81,22 +86,31 @@ if $ARGS[0] = 'main':
 	'There is an old <a href="exec:gt ''TV'',''gad''">television</a> in the living room. It''s positioned next to a body length <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
 	'Your grandfather''s <a href="exec: newspaperVars[''dbag''] = 0 & gs ''newspaper'', ''start''">newspaper</a> is lying to the side.'
 
-	if $locat['elene'] = 'lounge':
-		loc_rnd = rand(1,4)
-		*nl
-		if loc_rnd = 1:
-			'You see your grandmother relaxing on the couch reading a book.'
-		elseif loc_rnd = 2:
-			'You see your grandmother relaxing on the couch watching TV.'
-		elseif loc_rnd:
-			'You see your grandmother sittinng on the couch repairing some clothes.'
+	gs 'gad_gphouse', 'villagecat_string'
+
+	if locat['A31'] = 111:
+		'You see your <a href="exec: gt ''gp_elene'', ''talk'' ">grandmother</a> relaxing on the couch reading a book.'
+	elseif locat['A31'] = 112:
+		'You see your <a href="exec: gt ''gp_elene'', ''talk'' ">grandmother</a> relaxing on the couch watching TV.'
+	elseif locat['A31'] = 113:
+		'You see your <a href="exec: gt ''gp_elene'', ''talk'' ">grandmother</a> sittinng on the couch repairing some clothes.'
+	elseif locat['A31'] = 114:
+		'You see your <a href="exec: gt ''gp_elene'', ''talk'' ">grandmother</a> sitting on the couch knitting.'
+	end
+
+	!! MIRA
+	if locat['A60'] = 21:
+		if MiraVars['guest'] = 0:
+			if MiraVars['follow_time'] < 1: MiraVars['follow_time'] = 1
+			gt 'gad_gphouse', 'entry'
 		else
-			'You see your grandmother sitting on the couch knitting.'
+			MiraVars['follow_time'] = 0
+			'<a href="exec: gt ''miroslava'', ''start''">Mira</a> is sitting next to you.'
 		end
-		killvar 'loc_rnd'
 	end
 
-	if rand(0,2) ! 0: gs 'din_bad' & dynamic $mobile_check
+
+	if rand(0, 2) ! 0: gs 'din_bad' & dynamic $mobile_check
 	gs 'prostitution_functions', 'prostitute_outfit_at_home'
 
 	!! Set up actions:
@@ -149,14 +163,15 @@ if $ARGS[0] = 'kitchen':
 	*nl
 	'A small area seperated from the rest of the dacha reserved for cooking and eating meals.'
 
-	if $locat['elene'] = 'kitchen':
+	if locat['A31'] = 120:
 		*nl
-		'You see your grandmother in the kitchen preparing a meal.'
+		'You see your <a href="exec: gt ''gp_elene'', ''talk'' ">grandmother</a> in the kitchen preparing a meal.'
 	end
-	if $locat['zlatek'] = 'kitchen':
+	if locat['A32'] = 120:
 		*nl
-		'You see your grandfather in the kitchen reading a newspaper.'
+		'You see your <a href="exec: gt ''gp_zlatek'', ''talk'' ">grandfather</a> in the kitchen reading a newspaper.'
 	end
+
 	act 'Return to the living room': leave_time = 1 & gt $loc, 'exit', $loc, 'main'
 	act 'Eat a hearty meal (0:20)': gs 'food', 'l_meal'
 	act 'Eat a normal meal (0:15)': gs 'food', 'm_meal'
@@ -247,4 +262,669 @@ if $ARGS[0] = 'to_gadukino':
 end
 
 
+
+
+
+
+!2024/05/05 - Mira schedule introduced.
+!! Quest Variables - Grandma
+!! -------------------------
+!! grandmaQW['chore_type']						Variable for storage of the rand() that picks which chore to assign.
+!!
+!! For all of the Grandma chores where 0/1/2/3 are possible values:
+!! 0 = not active
+!! 1 = assigned but not done yet
+!! 2 = done but not turned in/reported yet
+!! 3 = not done in time, triggers Grandma disappointment. cikl takes any chore in state 1 or 2 and turns it into state 3.
+!!
+!! grandmaQW['chore_clean_floor']				0/1/2/3 - is the "clean the floor" quest active?
+!! grandmaQW['chore_collect_fruit']				0/1/2/3 - is the "collect fruit" quest active?
+!! grandmaQW['chore_collect_strawberries']		0/1/2/3 - is the "collect strawberries" quest active?
+!! grandmaQW['chore_feed_chickens']				0/1/2/3 - is the "feed the chickens" quest active?
+!! grandmaQW['chore_harvest_garden']			0/1/2/3 - is the "harvest veggies from the garden" quest active?
+!! grandmaQW['chore_milk_cow']					0/1/2/3 - is the "milk the cow" quest active?
+!! grandmaQW['chore_wash_clothes']				0/1/2/3 - is the "wash Grandpa's clothes" quest active?
+!! grandmaQW['chore_water_garden']				0/1/2/3 - is the "water the garden" quest active?
+!! grandmaQW['chore_work_in_garden']			0/1/2/3 - is the "work in the garden" quest active?
+!! grandmaQW['chore_mushrooms_given']			How many kg of mushrooms has Sveta collected for Grandma? Used with chore_can_mushrooms.
+!! grandmaQW['chore_berries_given']				How many kg of berries has Sveta collected for Grandma? Used with chore_can_berries.
+!! grandmaQW['chore_harvest_done']				Has Sveta harvested veggies from the garden? Used with chore_can_veggies.
+!! grandmaQW['chore_gather_mushrooms']			0/1/2/3 - is the "gather mushrooms" quest active?
+!! grandmaQW['chore_gather_berries']			0/1/2/3 - is the "gather berries" quest active?
+!! grandmaQW['chore_gather_both']				0/1/2/3 - is the "gather mushrooms and berries" quest active?
+!! grandmaQW['chore_mushroom_quantity']			How many kg of mushrooms does Grandma want?
+!! grandmaQW['chore_berry_quantity']			How many kg of berries does Grandma want?
+
+!! Other Variables - Grandma
+!! -------------------------
+!! grandmaQW['help_amount']						Semi-abstract representation of how helpful Sveta has been. Longer, more arduous tasks get more points. Affects monthly allowance.
+!! grandmaQW['last_day_asked_for_story']		The most recent day Sveta asked Grandma to tell her a story. Checked against daystart (i.e. was it today?)
+!! grandmaQW['last_day_helped']					The most recent day Sveta asked Grandma if she could help her with anything.
+!! grandmaQW['last_day_talked']					The most recent day Sveta chatted with Grandma.
+!! grandmaQW['last_hour_talked']				The most recent hour Sveta chatted with Grandma. Checked against hour, allows for several chats through the day.
+!! grandmaQW['last_month_paid']					The most recent month Grandma paid Sveta for her help (i.e. was it the current month?)
+!! grandmaQW['nudity_trouble']					Semi-abstract representation of how annoyed Grandma is by Svetas exhibitionism. grandmaQW['nudity_trouble'] is subtracted from grandmaQW['help_amount'] and then reset to 0
+!! grandmaQW['nudity_trouble_limit']			Limit based on fame/reputation before Grandma reprimands Sveta about her behavior
+!! grandmaQW['nudity_trouble_base']				Base based on how many times Sveta has been reprimanded by Grandma about her behavior. Starts at 10. Goes up by 1 each time grandmaQW['nudity_trouble'] hits grandmaQW['nudity_trouble_limit']
+!! grandmaQW['block']							0/1 - has Sveta been caught sinning so much Grandma kicks her out
+!! grandmaQW['talked_about_gadukino']			0/1 - has Sveta asked Grandma about Gadukino? Makes the "Ask about Gadukino" option a one-time thing.
+!! grandmaQW['disappointment']					0/1 - marks if you failed a chore and Grandma is disappointed in you. Causes a lecture and -1 to help_amount
+!! grandmaQW['first_visit']						0/1 - triggers first converstion and gift from Grandma. Only get free money from Grandma once. Monthly payments are now only based on grandmaQW['help_amount']
+!!
+!! ------------------------------------------------------------------------
+!!
+!! Quest Variables - Grandpa
+!! -------------------------
+!! grandpaQW['chore_type']						Variable for storage of the rand() that picks which chore to assign.
+!!
+!! grandpaQW['chore_bale_hay']					0/1 - is the "bale hay in the field" quest active?
+!! grandpaQW['chore_bathe_horse']				0/1 - is the "bathe the horse in the river" quest active?
+!! grandpaQW['chore_bathe_horse_prog']			0/1/2 - progress of "bathe the horse in the river" quest
+!! grandpaQW['chore_brush_horse']				0/1 - is the "brush the horse" quest active?
+!! grandpaQW['chore_clean_yard']				0/1 - is the "clean the yard" quest active?
+!! grandpaQW['chore_feed_boar']					0/1 - is the "feed the pig" quest active?
+!! grandpaQW['chore_feed_cow']					0/1 - is the "feed the cow" quest active?
+!! grandpaQW['chore_feed_horse']				0/1 - is the "feed the horse" quest active?
+!! grandpaQW['chore_fetch_firewood']			0/1 - is the "fetch firewood from the barn" quest active?
+!! grandpaQW['chore_herd_cattle']				0/1 - is the "herd cows in the field" quest active?
+!! grandpaQW['chore_herd_cattle_experience']	Has Sveta ever done the "herd cows in the field" quest before? (Practically useless, barely changes a couple of action descriptions.)
+!! grandpaQW['chore_lead_cow_to_field']			0/1 - is the "just take the cow to the field and drop it off there" quest active?
+!! grandpaQW['chore_lead_horse_to_field']		0/1 - is the "take the horse to the field" quest active?
+!!
+!! grandpaQW['chore_gather_mushrooms']			0/1 - is the "gather mushrooms" quest active?
+!! grandpaQW['chore_gather_berries']			0/1 - is the "gather berries" quest active?
+!! grandpaQW['chore_gather_both']				0/1 - is the "gather mushrooms and berries" quest active?
+!! grandpaQW['chore_mushroom_quantity']			How many kg of mushrooms does Grandpa want?
+!! grandpaQW['chore_berry_quantity']			How many kg of berries does Grandpa want?
+!!
+!!
+!! Other Variables - Grandpa
+!! -------------------------
+!! grandpaQW['last_day_helped']					The most recent day Sveta asked Grandpa if she could help him with anything.
+!! grandpaQW['last_day_talked']					The most recent day Sveta chatted with Grandpa.
+!! grandpaQW['last_hour_talked']				The most recent hour Sveta chatted with Grandpa. Checked against hour, allows for several chats through the day.
+!! grandpaQW['talked_about_forest']				0/1 - has Sveta asked Grandpa about the forest? Makes the "Ask about forest" option a one-time thing.
+!! grandmaQW['disappointment']					0/1/2 - marks if you failed a chore and Grandpa is disappointed in you. Causes a lecture and -1 to help_amount. 2 is time extension to next day for berry and mushroom collecting in the forest
+!!
+!! VARIABLE LIST FOR GRANDPARENTS AND THEIR CHORES - END
+
+
+
+if $ARGS[0] = 'enter_events':
+	if hour >= 6 and hour < 20:
+		if gadstay = 1 and (kanikuli = 4 or kanikuli = 5) and month = 8 and day >= 27:
+			gt 'gad_gphouse', 'school_start'
+		elseif lost_girl = 1:
+			if daystart > forest_lostday:
+				lost_girl = 0
+				gt 'gad_gphouse', 'was_lost_yesterday'
+			else
+				lost_girl = 0
+				gt 'gad_gphouse', 'main'
+			end
+		elseif grandmaQW['nudity_trouble_limit'] = 50:
+			gt 'gad_gphouse', 'nudity_trouble_kicked'
+		elseif grandmaQW['nudity_trouble'] = grandmaQW['nudity_trouble_limit']:
+			gt 'gad_gphouse', 'nudity_trouble'
+		elseif grandpaQW['disappointment'] = 1:
+			gt 'gad_gphouse', 'grandpa_disapointment'
+		elseif grandmaQW['disappointment'] = 1:
+			gt 'gad_gphouse', 'grandma_disapointment'
+		elseif grandmaQW['first_visit'] = 0 and hour >= 6 and hour < 20:
+			gt 'gad_gphouse', 'first_visit'
+		elseif grandmaQW['last_month_paid'] ! month and hour >= 6 and hour < 20:
+			gt 'gad_gphouse', 'chores_pay'
+		elseif locat['A60'] = 21 and locat['A60_prev'] ! 21:
+			gt 'gad_gphouse', 'mira_visit'
+		end
+	else
+		if lost_girl = 1:
+			lost_girl = 0
+			gt 'gad_gphouse', 'main'
+		end
+	end
+end
+
+
+
+if $ARGS[0] = 'nudity_trouble_limit':
+	if grandmaQW['nudity_trouble_base'] = 0 or grandmaQW['nudity_trouble_limit'] = 0:
+		grandmaQW['nudity_trouble_base'] = 10
+		grandmaQW['nudity_trouble_limit'] = grandmaQW['nudity_trouble_base']
+	else
+		grandmaQW['nudity_trouble_limit'] = grandmaQW['nudity_trouble_base']
+	end
+
+	if SchoolBlock = 1: grandmaQW['nudity_trouble_limit'] += 5
+	if momKnowsKolka = 1: grandmaQW['nudity_trouble_limit'] += 10
+	if momKnowsVladimir = 1: grandmaQW['nudity_trouble_limit'] += 10
+	if momslut < 2:
+		if motherKnowWhore > 0: grandmaQW['nudity_trouble_limit'] += 3
+		if motherKnowSpravka > 0: grandmaQW['nudity_trouble_limit'] += 2
+	end
+	if brotherSex < 6:
+		if brotherknowslut > 1: grandmaQW['nudity_trouble_limit'] += 3
+		if brotherknowslut > 0: grandmaQW['nudity_trouble_limit'] += 2
+	end
+	if sisterQW['roma3block'] = 1:
+		if sisterknowslut > 1 and sisboypartyQW > 1: grandmaQW['nudity_trouble_limit'] += 3
+		if sisterknowslut > 0: grandmaQW['nudity_trouble_limit'] += 2
+	end
+	if GadBoy['river_gang'] = 2:
+		grandmaQW['nudity_trouble_limit'] += 5
+	else
+		if npc_QW['A63'] >= 11: grandmaQW['nudity_trouble_limit'] += 3
+		if MiraVars['QW'] >= 15: grandmaQW['nudity_trouble_limit'] += 2
+	end
+end
+
+
+
+if $ARGS[0] = 'school_start':
+	menu_off = 1
+	minut += 5
+	money += 75
+	gs 'stat'
+
+	'<center><b><font color="maroon">Your grandmother</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/grandmahelp.jpg"></center>'
+	*nl
+	'"<<$pcs_firstname>>, your mother called. School starts soon, and you must head back to Pavlovsk to get ready."'
+	'"As much as we loved having you around and seeing you more, this is it for now."'
+	'"You are always welcome to come and visit on weekends or breaks from school."'
+	'"And if you want to, you can always stay with us again next summer."'
+
+	if grandmaQW['help_amount'] > 0:
+		'Before leaving, your grandma hugs you and gives you <<25 * grandmaQW[''help_amount'']>> rubles for your help with chores.'
+		money += 25 * grandmaQW['help_amount']
+		grandmaQW['help_amount'] = 0
+		gs 'stat'
+	else
+		'Before leaving, your grandma gives you a big hug goodbye.'
+	end
+
+	'As you turn to leave, she stops you, "One last thing, here are some rubles for the train ticket to get you back to Pavlovsk."'
+
+	act 'Leave': gadstay = 0 & gt 'gad_gpyard', 'start'
+end
+
+if $ARGS[0] = 'was_lost_yesterday':
+	menu_off = 1
+	grandmaQW['disappointment'] = 0
+	grandpaQW['disappointment'] = 0
+	grandmaQW['last_day_helped'] = daystart
+	grandpaQW['last_day_helped'] = daystart
+	minut += 5
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/babushka.jpg"></center>'
+	*nl
+	'"<<$pcs_firstname>>, your grandfather and I were so worried when you didn''t come home from the forest."'
+	'"We are so glad you are back safe and sound. Go have a hot meal and shower and relax."'
+	'"Also, don''t worry about any chores today. Just focus on recovering."'
+
+	act 'Continue': gt 'gad_gphouse', 'main'
+end
+
+
+if $ARGS[0] = 'nudity_trouble_kicked':
+	menu_off = 1
+	gs 'homes_properties', 'block_access', 'grandparents_house'
+	grandmaQW['help_amount'] = 0
+	grandmaQW['block'] = 1
+	minut += 5
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+	*nl
+	'Your grandmother looks at you coldly from across the room. She is speaking softly, but somehow that is more unnerving than usual, "I''ve been more than fair to you, <<$pcs_firstname>>, and given you more chances than maybe even your mother."'
+	'"If you won''t at least try to act like a decent lady around here, you are no longer welcome. So take your things and leave. Come back when you''ve learned at least some basic decency."'
+
+	act 'Leave': gadstay = 0 & gt 'gadukino'
+end
+
+if $ARGS[0] = 'nudity_trouble':
+	menu_off = 1
+	if grandmaQW['nudity_trouble'] > grandmaQW['help_amount']:
+		grandmaQW['help_amount'] = 0
+	else
+		grandmaQW['help_amount'] = grandmaQW['help_amount'] - grandmaQW['nudity_trouble']
+	end
+	grandmaQW['nudity_trouble'] = 0
+	grandmaQW['nudity_trouble_base'] += 1
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/babushka.jpg"></center>'
+	*nl
+	'Suddenly your grandmother approaches you with a disappointed look on her face. "I had higher expectations of you, young lady! You should be ashamed of yourself for running around outdoors without clothes. You have embarrassed your grandfather and me! Our friends have seen you around naked, as have your grandfather and I, so don''t even try to hide it."'
+	'"This will be reflected in your allowance, don''t act surprised at the beginning of the month."'
+	'"Unlike you, we have to live in this village and get along with its people. If you keep this up, I''ll be cutting your time here short and sending you back to your mother, and she can deal with your sinful behaviour. We better not hear any more about this!" She then walks off before you can even respond.'
+
+	act 'Continue': gt 'gad_gphouse', 'main'
+end
+
+if $ARGS[0] = 'grandpa_disapointment':
+	menu_off = 1
+	grandpaQW['disappointment'] = 0
+	grandmaQW['help_amount'] -= 1
+	minut += 5
+	pcs_mood -= 5
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa.jpg"></center>'
+	*nl
+	'Your grandfather scowls at you as you walk by.'
+	'<br>"<<$pcs_firstname>>. I am disappointed in you," he says flatly.'
+	'"What? Why?" you ask, taken aback a bit by his demeanour.'
+	'"Yesterday, I asked you to help me, and you agreed. And here we are today, and I find that you did not."'
+	'"Oh n-no, Grandpa," you stutter, "I forgot all about it! I''m sorry!"'
+	'"Quiet, child. I wasn''t done speaking. You promised to help and did not, which means you lied."'
+	'<br>You stare at him, crestfallen.'
+	'<br>"And I don''t want your apologies. A <<$pcs_lastname>> keeps their word, or their word is worth nothing."'
+	'Your eyes tear up a bit as your grandfather berates you. "Yes, sir," you mumble quietly.'
+	'"I would rather you tell me flat-out if you do not want to help, <<$pcs_firstname>>. At least that makes you honest, even if lazy."'
+	'"Grandpa, I honestly just forg-" you begin, but he cuts you off.'
+	'"Hush, child. I don''t care for excuses. Now go on. Some of us have work to do."'
+	'<br>You silently turn and walk away, feeling guilty.'
+
+	act 'Continue': gt 'gad_gphouse', 'main'
+end
+
+if $ARGS[0] = 'grandma_disapointment':
+	menu_off = 1
+	grandmaQW['disappointment'] = 0
+	grandmaQW['help_amount'] -= 1
+	minut += 5
+	pcs_mood -= 5
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+	*nl
+	'Grandma frowns at you as you walk by. "<<$pcs_nickname>>, you said you would help me yesterday, and you did not."'
+	'You cringe as you remember what you told her you would do. "I''m sorry, Grandma, I forgot all about it..."'
+	'"I am an old woman, child. It is difficult for me to do many things I once could. But I can still do them if I know I have to."'
+	'Feeling guilty, you look at the ground as she continues, "But it is even harder for me if I expected help and did not receive it."'
+	'"Sorry, Grandma," you mumble again.'
+	'She softens a little, finally. "It''s okay, child," she says. "But it makes it harder for me to give you your allowance for sweets if you cannot follow through on your promises."'
+	'"Yes, ma''am," you nod.'
+	'"All right, child," she says, patting your shoulder softly. "Go on now. I am sure you have things to do."'
+
+	act 'Continue': gt 'gad_gphouse', 'main'
+end
+
+if $ARGS[0] = 'first_visit':
+	menu_off = 1
+	grandmaQW['first_visit'] = 1
+	money += 3000
+	minut += 5
+	pcs_mood += 10
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/grandmahelp.jpg"></center>'
+	*nl
+	'Upon entering the house, you let out a screech as you catch sight of your grandmother, throwing yourself at her, wrapping your arms around her neck. She embraces you tightly. She starts by saying "Dear <<$pcs_nickname>>, you''re only skin and bones, but don''t worry, a few months here and you''ll be looking your usual self again ."'
+	'"But look at you, you sure have grown up. A young woman." she says proudly. She continues "Grandpa and I keep getting older and older and need some help around the house. What do you say youngling? You will not have to do much. Here''s the deal, you lend us a helping hand on the farm as much as possible, and we will pay you for each chore you do. It will be a great life lesson, you will learn about hard work. What do you say?"'
+	'"Of course I''ll help out, Grandma." you answer.'
+	'"I''m glad to hear that <<$pcs_nickname>>, here is little something anyways just for visiting," Grandma says and gives you 3000 rubles.'
+	'"Thanks Babushka!" you kiss her on the cheek before you head on out.'
+
+	if (kanikuli = 4 or kanikuli = 5) and ((month = 6 or month = 7) or (month = 8 and day <= 25)):
+		'"Will you be staying with us during the summer or will you be traveling back and forth with your parents?" she asks.'
+
+		act 'Stay with your grandparents': gadstay = 1 & gt 'gad_gphouse', 'main'
+		act 'Stay in Pavlovsk': gadstay = 0 & gt 'gad_gphouse', 'main'
+	else
+		act 'Continue': gt 'gad_gphouse', 'main'
+	end
+end
+
+if $ARGS[0] = 'chores_pay':
+	menu_off = 1
+	grandmaQW['last_month_paid'] = month
+	if grandmaQW['help_amount'] > 0: money += (grandmaQW['help_amount'] * 25)
+	minut += 5
+	pcs_mood += 5
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/grandmahelp.jpg"></center>'
+	*nl
+	'Your grandmother calls you over to her, "I imagine you''ve spent all your allowance so lets see what we can do to give you some more pocket money, hmmmm?" she says as she opens her purse.'
+	if grandmaQW['help_amount'] > 0:
+		'"You were quite helpful over the last few weeks, so here''s <<grandmaQW[''help_amount''] * 25>> rubles." She starts to hand you the money, then lifts it away with a stern look, "But you can always do more work, young lady!" she scolds gently then smiles as she gives you the money.'
+		grandmaQW['help_amount'] = 0
+	else
+		'"We really could have used your help last month," she says mournfully as she counts out some bills. "Maybe this month you''ll do more to help us?" She looks at you sternly as she puts her purse away.'
+	end
+
+	act 'Continue': gt 'gad_gphouse', 'main'
+end
+
+if $ARGS[0] = 'mira_visit':
+	menu_off = 1
+	MiraVars['guestday'] = daystart + 1
+	MiraVars['guest'] = 1
+	minut += 5
+	gs 'stat'
+
+	gs 'miroslava', 'miraclothes'
+	*nl
+	'You notice Mira coming towards your grandparents home.'
+	'You step out on the porch and greet Mira. She replies "Hi <<$pcs_nickname>>, I was really bored being all alone at home. Do you want to do something?"'
+
+	act 'Continue': gt 'gad_gphouse', 'main'
+end
+
+
+
+if $ARGS[0] = 'villagecat_string':
+	if hour < 8:
+		temp = rand(0, 9)
+		if temp = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a>is curled up, sleeping peacefully.'
+	elseif hour >= 8 and hour < 12 and sunWeather = 1:
+		temp = rand(0, 2)
+		if temp = 1: '<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is busy cleaning himself with his tongue on the table by the window.'
+		if temp = 2: '<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> lies lazily on the table by the window, soaking up some sunshine rays.'
+	elseif hour >= 8 and hour < 12 and sunWeather = 0:
+		temp = rand(0, 1)
+		if temp = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is curled up, sleeping peacefully.'
+		if temp = 1: 'On the table by the window, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> stares in disgust at the rain outside.'
+	elseif hour >= 12 and hour < 18:
+		temp = rand(0, 5)
+		if temp = 3: 'Next to the table by the window, <a href="exec:feedcat = 1 & gt ''gad_gphouse'',''villagecat''">Boniface</a> stretches and meows loudly. It''s time for dinner.'
+		if temp = 4 and sunWeather = 1: '<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> lies lazily on the table by the window, soaking up some sunshine rays.'
+		if temp = 4 and sunWeather = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is curled up, sleeping peacefully.'
+	elseif hour >= 18 and hour < 22 and catout ! 2:
+		temp = rand(0, 3)
+		if temp = 0:'<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is stalking around the main floor, looking for a nice juicy mouse to play with.'
+		if temp = 1 and catout = 0: catout = 1 &'<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> twines around your ankles, then goes to the door, meowing pitifully.'
+	elseif hour >= 22:
+		temp = rand(0, 2)
+		if temp = 1:'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is curled up, sleeping peacefully.'
+	end
+end
+
+
+if $ARGS[0] = 'villagecat':
+	*clr & cla
+	menu_off = 1
+	minut += 2
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat.jpg"></center>'
+	'Your grandparents'' fat tomcat, Boniface, is aware of you approaching him, even though his eyes are closed. He tracks you with his ears and simply ignores you.'
+
+	act 'Leave Boniface alone':minut += 2 & gt 'gad_gphouse', 'start'
+
+	act 'Pet Boniface':
+		*clr & cla
+		minut += 5
+		pcs_mood += RAND(1,4)
+		gs 'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat1.jpg"></center>'
+		'You gently pet Boniface, giving him a good scratch behind the ears. You hear him start to purr. As soon as you stop scratching him, the purring stops too. That lazy bastard... he''s living the good life!'
+
+		act 'Continue':minut += 2 & gt 'gad_gphouse', 'start'
+	end
+
+	if feedcat = 1:
+		act 'Feed Boniface':
+			*clr & cla
+			minut +=5
+			gs 'stat'
+			feedcat = 2
+			'<center><video autoplay loop src="images/locations/gadukino/grandparents/feedboniface.mp4"></video></center>'
+			'When Boniface sees you moving towards the cupboard, he jumps off the table and runs to his food dish. He obviously feels that you are moving far too slowly and rattles his bowl to make sure you understand that he is starving while you dawdle.'
+			act 'Continue': gt 'gad_gphouse', 'start'
+		end
+	end
+
+	if catout = 1:
+		act 'Let Boniface Out':
+			if sunWeather = 0:
+				*clr & cla
+				minut += 10
+				gs 'stat'
+				'You open the door for Boniface, who saunters around you only to stop in the doorway as he becomes aware that it is raining. He glares up at you as if the rain was your fault. He stares out into the wet for another moment, then sedately turns around and returns to his box.'
+				act 'Continue': gt 'gad_gphouse', 'start'
+			else
+				*clr & cla
+				minut +=10
+				gs 'stat'
+				catout = 2
+				'You open the door for Boniface, who saunters around you only to stop in the doorway as he stops to consider if he really wants to go outside. After considering all the pros and cons, he finally decides to go out.'
+				act 'Continue': gt 'gad_gphouse', 'start'
+			end
+		end
+	end
+end
+
+
+
+
+
+
+
+	!!=============================================================================================!!
+	!!                                                                                             !!
+	!!                                       INACTIVE BACKUP                                       !!
+	!!                                                                                             !!
+	!!=============================================================================================!!
+
+
+if $ARGS[0] = 'start':
+	gt 'gad_gphouse', 'entry'
+
+
+
+	*clr & cla
+	CLOSE ALL
+	$location_type = 'indoors'
+	$region = 'gad'
+	gs 'shortgs', 'setloc', 'gad_gphouse', 'start'
+	menu_off = 1
+	gs 'miroslava_schedule'
+	$locclass = 'singleroom'
+	frost = 0
+
+	gs 'homes_properties', 'give_access', 'grandparents_house'
+	gs 'gad_gphouse', 'nudity_trouble_limit'
+	gs 'gad_gphouse', 'enter_events'
+	gt 'gad_gphouse', 'main'
+end
+
+if $ARGS[0] = 'old_main':
+	gs 'shortgs', 'setloc', 'gad_gphouse', 'main'
+	$locclass = 'livingr'
+	menu_off = 0
+	*clr & cla
+	gs 'family_schedule'
+	gs 'stat'
+	'<center><H4>Your Grandparents'' Cottage</H4></center>'
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/izba.jpg"></center>'
+	*nl
+	'A fairly simple cottage in the village of Gadukino which your grandparents call home. In the main room there is a huge <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing).'
+	'There is an old <a href="exec:gt ''TV'',''gad''">television</a> in the living room. It''s positioned next to a body length <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
+	'You can check your weight on your grandma''s old mechanical <a href="exec:msg ''<center>Your weight is <<pcs_weight[0]>>.<<pcs_weight[1]>> kg<br>Your body mass index (BMI) is <<pcs_bmi[0]>>.<<pcs_bmi[1]>>.<br><<$bodyVars[''bmi_desc'']>></center>''">scales</a>.'
+	'Your grandfather''s <a href="exec: newspaperVars[''dbag''] = 0 & gs ''newspaper'', ''start''">newspaper</a> is lying to the side.'
+
+	if hour < 8:
+		temp = rand(0,9)
+		if temp = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a>is curled up, sleeping peacefully.'
+	elseif hour >= 8 and hour < 12 and sunWeather = 1:
+		temp = rand(0,2)
+		if temp = 1: '<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is busy cleaning himself with his tongue on the table by the window.'
+		if temp = 2: '<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> lies lazily on the table by the window, soaking up some sunshine rays.'
+	elseif hour >= 8 and hour < 12 and sunWeather = 0:
+		temp = rand(0,1)
+		if temp = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is curled up, sleeping peacefully.'
+		if temp = 1: 'On the table by the window, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> stares in disgust at the rain outside.'
+	elseif hour >= 12 and hour < 18:
+		temp = rand(0,5)
+		if temp = 3: 'Next to the table by the window, <a href="exec:feedcat = 1 & gt ''gad_gphouse'',''villagecat''">Boniface</a> stretches and meows loudly. It''s time for dinner.'
+		if temp = 4 and sunWeather = 1: '<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> lies lazily on the table by the window, soaking up some sunshine rays.'
+		if temp = 4 and sunWeather = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is curled up, sleeping peacefully.'
+	elseif hour >= 18 and hour < 22 and catout ! 2:
+		temp = rand(0,3)
+		if temp = 0:'<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is stalking around the main floor, looking for a nice juicy mouse to play with.'
+		if temp = 1 and catout = 0: catout = 1 &'<a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> twines around your ankles, then goes to the door, meowing pitifully.'
+	elseif hour >= 22:
+		temp = rand(0,2)
+		if temp = 1:'In a box filled with scraps of cloth, <a href="exec: gt ''gad_gphouse'', ''villagecat''">Boniface</a> is curled up, sleeping peacefully.'
+	end
+
+	if hour >= 6 and hour < 8:
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandma'' ">grandmother</a> is puttering around in the kitchen, making breakfast.'
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> sits at the kitchen table, drinking a black cup of coffee.'
+	elseif hour >= 8 and hour < 10:
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandma'' ">grandmother</a> is slowly wandering through the house, tidying up as she goes along.'
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> is sitting in his recliner, watching the morning news.'
+	elseif hour >= 10 and hour < 11:
+		'Your grandmother is napping on the sofa, curled up under a heavy quilt.'
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> is sitting in his recliner, watching the morning news.'
+	elseif hour >= 11 and hour < 12:
+		'Your grandmother is napping on the sofa, curled up under a heavy quilt.'
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> sits next to her, stroking her hair and faintly smiling.'
+	elseif hour >= 12 and hour < 13:
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandma'' ">grandmother</a> is in the kitchen, making a sandwich, while your <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> waits at the kitchen table.'
+	elseif hour >= 13 and hour < 15:
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandma'' ">grandmother</a> is sitting by the window, '+iif(sunWeather = 0, 'watching the rain','looking outside')+'.'
+		'Your grandfather is leaning back in his recliner, fast asleep.'
+	elseif hour >= 15 and hour < 17:
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandma'' ">grandmother</a> and <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> are watching an old-timey-looking show on the TV.'
+	elseif hour >= 17 and hour < 18:
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandma'' ">grandmother</a> is puttering around in the kitchen, making dinner.'
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> sits at the kitchen table, waiting for grandma to bring his food.'
+	elseif hour >= 18 and hour < 20:
+		'Your <a href="exec: gt ''gad_gphouse'', ''grandma'' ">grandmother</a> and <a href="exec: gt ''gad_gphouse'', ''grandpa'' ">grandfather</a> are watching the evening news on TV.'
+	else
+		'Your grandparents are asleep. They sleep in separate beds, which is strange since they''re still madly in love.'
+	end
+
+	if locat['A60'] = 21:
+		if MiraVars['guest'] = 0:
+			if MiraVars['follow_time'] < 1: MiraVars['follow_time'] = 1
+			gt 'gad_gphouse', 'start'
+		else
+			MiraVars['follow_time'] = 0
+			'<a href="exec: gt ''miroslava'', ''start''">Mira</a> is sitting next to you.'
+		end
+	end
+
+	gs 'stat'
+	gs 'themes', 'indoors'
+	gs 'kit_din'
+
+	gs 'gad_gphouse', 'family_trip'
+
+	if $clothingworntype ! 'nude':
+		act 'Go outside':minut += 1 & gt 'gad_gpyard', 'start'
+	elseif $clothingworntype = 'nude':
+		act 'Go outside naked':
+			*clr & cla
+			menu_off = 1
+			minut += 1
+			inhib_exp += rand(0,2)
+			grandmaQW['nudity_trouble'] += rand(0,2)
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
+			'It''s undoubtedly risky leaving the house like this. But, while it''s unlikely anyone saw you go outside naked, there''s a thrill in almost getting caught.'
+			gs 'arousal', 'flash', 10, 'exhibitionism'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Continue': gt 'gad_gpyard', 'start'
+		end
+	elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
+		act 'Go outside in your underwear':
+			*clr & cla
+			menu_off = 1
+			minut += 1
+			inhib_exp += rand(0,1)
+			grandmaQW['nudity_trouble'] += rand(0,1)
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s undoubtedly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside in your underwear, there''s a thrill in almost getting caught'
+			gs 'arousal', 'flashlite', 10, 'exhibitionism'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Continue': gt 'gad_gpyard', 'start'
+		end
+	end
+	act 'Go to your room': gt 'gad_gpbarn', 'barn_room'
+	if grandmaQW['chore_clean_floor'] = 1:
+		act 'Clean the floor for Grandma (1:00)':
+			*clr & cla
+			minut += 60
+			grandmaQW['chore_clean_floor'] = 2
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washfloor.jpg"></center>'
+			'You grab a bucket and a rag, get down on your knees and begin scrubbing the floor. Within the hour, the floor shines, and you are satisfied with your work. You put the cleaning supplies into a corner and continue your day.'
+
+			act 'Continue':gt 'gad_gphouse', 'start'
+			act 'Return back to your grandmother': minut += 1 & gt 'gad_gphouse', 'grandma'
+		end
+	end
+
+	if grandmaQW['chore_wash_clothes'] = 1:
+		act 'Wash Grandpa''s clothes for Grandma (1:00)':
+			*clr & cla
+			minut += 60
+			grandmaQW['chore_wash_clothes'] = 2
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
+			'You pick up your grandfather''s dirty clothes and take them with you outside, where you soak them in the metal basin for an hour.'
+
+			act 'Hang the laundry':
+				*clr & cla
+				minut += 10
+				gs'stat'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes2.jpg"></center>'
+				'Once done with the washing, you walk to the clothesline, where you carefully hang the clothes to dry.'
+
+				act 'Continue': gt 'gad_gpyard', 'start'
+				act 'Return back to your grandmother': minut += 1 & gt 'gad_gphouse', 'grandma'
+			end
+		end
+	end
+
+	if (hour >= 6 and hour < 10) or (hour >= 12 and hour < 20): act 'Talk to Grandma': gt 'gad_gphouse', 'grandma'
+	if (hour >= 6 and hour < 13) or (hour >= 15 and hour < 20): act 'Talk to Grandpa': gt 'gad_gphouse', 'grandpa'
+	act 'Eat a hearty meal (0:20)':gs 'food', 'l_meal'
+	act 'Eat a normal meal (0:15)':gs 'food', 'm_meal'
+	act 'Eat a light meal (0:10)':gs 'food', 's_meal'
+
+	dynamic $edasnack
+	dynamic $sandwich
+	dynamic $driwater
+	dynamic $dritea
+	dynamic $fill_bottle
+	dynamic $edaD
+	dynamic $fatdel
+	dynamic $lekarstvo
+	dynamic $vitamin
+
+	gs 'events', 'read'
+	gs 'subkid'
+
+	if mc_inventory['tapestry'] > 0:'You have <<gobelen>> completed tapestries.'
+	if pcs_sewng >= 40 and mc_inventory['sewing_fabric'] > 0:
+		'You have enough fabric for <<mc_inventory[''sewing_fabric'']>> lessons.'
+	end
+	if mc_inventory['sewing_fabric'] <= 0:'You do not have any fabric.'
+
+	if pcs_sewng >= 80:
+		if newgobelen = 0 and mc_inventory['sewing_fabric'] > 0:
+			act'Start a new tapestry': gt 'sewing', 'tapestry'
+		elseif newgobelen >= 1:
+			'Your tapestry is <<newgobelen/10>> percent finished.'
+			act 'Work on the tapestry': gt 'sewing', 'tapestry'
+		end
+
+	end
+
+	if rand(0,2) ! 0: gs 'din_bad' & dynamic $mobile_check
+	gs 'prostitution_functions', 'prostitute_outfit_at_home'
+end
+
+
+
+
 --- gad_gphouse ---------------------------------

+ 1003 - 0
locations/gp_elene.qsrc

@@ -0,0 +1,1003 @@
+# gp_elene
+
+
+if $ARGS[0] = 'talk':
+	menu_off = 1
+	minut += 2
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+	'Your grandma is extremely old and seldom leaves the house. Most of the time, she sits on her bed watching TV or slowly cleans.'
+	if $clothingworntype = 'nude':
+		'Grandma looks a little shocked, but it''s nothing she hasn''t seen before.'
+		'"Go put some clothes on, dear. You''ll give your poor grandpa a heart attack if he sees you."'
+
+		act 'Maybe you should get dressed before talking to her': gt $loc, $loc_arg
+		exit
+	end
+
+	act 'Leave her alone': gt $loc, $loc_arg
+
+	if grigory_flower > 0 and grigory_flower < 10: act 'Talk to her about the flowers': gt 'grigory', 'flower4'
+
+	gs 'gp_elene', 'set_report_chores_acts'
+	gs 'gp_elene', 'get_random_chore_act'
+	gs 'gp_elene', 'set_talk_acts'
+end
+
+
+
+
+
+	!!===========================================================!!
+	!!                                                           !!
+	!!                          EVENTS                           !!
+	!!                                                           !!
+	!!===========================================================!!
+
+
+
+	!!-------------------- ASKING FOR CHORES END --------------------!!
+
+if $ARGS[0] = 'get_random_chore_act':
+	if daystart ! grandmaQW['last_day_helped']:
+		act 'Offer to help out':
+			menu_off = 1
+			grandmaQW['last_day_helped'] = daystart
+			frost = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/grandmahelp.jpg"></center>'
+			'You ask your grandmother if there is anything you could help out with. Your grandmother turns to you and says:'
+
+			if month <= 4 or month >= 10:
+				grandmaQW['chore_type'] = rand(0, 6)
+			elseif month = 5:
+				grandmaQW['chore_type'] = rand(0, 9)
+			elseif month >= 6 and month <= 9:
+				grandmaQW['chore_type'] = rand(0, 14)
+			end
+
+			if grandmaQW['chore_type'] = 0:
+				gt 'gp_elene', 'chore_cleanfloor'
+			elseif grandmaQW['chore_type'] = 1:
+				gt 'gp_elene', 'chore_washclothes'
+			elseif grandmaQW['chore_type'] = 2 and hour < 9 and hour > 20:
+				gt 'gp_elene', 'chore_milkcows'
+			elseif grandmaQW['chore_type'] = 3:
+				gt 'gp_elene', 'chore_groceries'
+			elseif grandmaQW['chore_type'] = 4 and boletus_stored >= 5:
+				gt 'gp_elene', 'chore_can_mushrooms'
+			elseif grandmaQW['chore_type'] = 5 and bilberry_stored >= 5:
+				gt 'gp_elene', 'chore_can_berries'
+			elseif grandmaQW['chore_type'] = 6 and grandmaQW['chore_harvest_done'] = 1:
+				gt 'gp_elene', 'chore_can_veggies'
+			elseif grandmaQW['chore_type'] = 7:
+				gt 'gp_elene', 'chore_feedchickens'
+			elseif grandmaQW['chore_type'] = 8 and sunWeather = 1:
+				gt 'gp_elene', 'chore_checkplants'
+			elseif grandmaQW['chore_type'] = 9 and sunWeather = 1:
+				gt 'gp_elene', 'chore_waterplants'
+			elseif grandmaQW['chore_type'] = 10 and sunWeather = 1 and month >= 6 and month <= 9:
+				gt 'gp_elene', 'chore_harvest'
+			elseif grandmaQW['chore_type'] = 11 and boletus_stored <= 18:
+				gt 'gp_elene', 'chore_pickforest_mushrooms'
+			elseif grandmaQW['chore_type'] = 12 and bilberry_stored <= 18:
+				gt 'gp_elene', 'chore_pickforest_berries'
+			elseif grandmaQW['chore_type'] = 13 and ((boletus_stored + bilberry_stored) <= 16):
+				gt 'gp_elene', 'chore_pickforest_both'
+			end
+
+			'"There is nothing to do today, <<$pcs_nickname>>. Take the day off.'
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'chore_cleanfloor':
+	'"There is always something to do, <<$pcs_nickname>>. I''ve gotten quite old, and my strength is not what it used to be. Could you help me out by cleaning the floor?"'
+
+	grandmaQW['chore_clean_floor'] = 1
+	act 'Tell her you will do it soon': gt 'gp_elene', 'talk'
+	act 'Agree and start cleaning (1:00)':
+		*clr & cla
+		minut += 60
+		grandmaQW['chore_clean_floor'] = 2
+		grandmaQW['help_amount'] += 1
+		gs'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washfloor.jpg"></center>'
+		'You grab a bucket and a rag, get down on your knees and begin scrubbing the floor. Within the hour, the floor shines, and you are satisfied with your work. You put the cleaning supplies into a corner and continue your day.'
+
+		act 'Continue': gt $loc, $loc_arg
+		act 'Return back to your grandmother': minut += 1 & gt 'gp_elene', 'talk'
+	end
+end
+
+if $ARGS[0] = 'chore_washclothes':
+	'"Of course, <<$pcs_nickname>>, you can help me wash your grandfather''s dirty clothes?"'
+
+	grandmaQW['chore_wash_clothes'] = 1
+	act 'Tell her you will wash them in a little bit': gt 'gp_elene', 'talk'
+	act 'Agree and start washing (1:00)':
+		*clr & cla
+		minut += 60
+		grandmaQW['chore_wash_clothes'] = 2
+		gs'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
+		'You pick up grandfather''s dirty clothes and take them with you outside, where you soak them in the metal basin for an hour.'
+
+		act 'Hang the Laundry':
+			*clr & cla
+			minut += 10
+			gs'stat'
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes2.jpg"></center>'
+			'Once done with the washing, you walk to the clothesline, where you carefully hang the clothes to dry.'
+
+			act 'Continue': gt 'gad_gpyard', 'start'
+			act 'Return back to your grandmother': minut += 1 & gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'chore_milkcows':
+	'"<<$pcs_nickname>>, go to the barn and milk the cows."'
+
+	grandmaQW['chore_milk_cow'] = 1
+	act 'Tell her you will do it in a bit': gt 'gp_elene', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		minut += 10
+		gs'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		'You walk over to the barn where the cows are kept.'
+
+		act 'Continue': gt 'gad_gpbarn', 'cow'
+	end
+end
+
+if $ARGS[0] = 'chore_groceries':
+	'"Oh yes, <<$pcs_nickname>>. I was going to go down to the store today to buy some groceries, but my knees are aching. Do you think you could go down there and get them for me? I have a list of what we need, and the grocer will come by later to collect the money."'
+
+	grandmaQW['chore_groceries'] = 1
+	act 'Tell her you will go to the store later': gt 'gp_elene', 'talk'
+	act 'Agree and go to the store (0:15)':
+		*clr & cla
+		minut += 15
+		gs'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/izba.jpg"></center>'
+		'Your grandmother shuffles around, looking for her list for a few minutes, finally finding it and giving it to you. You grab a basket and set out for the store.'
+		act 'Continue': gt 'gad_store'
+	end
+end
+
+if $ARGS[0] = 'chore_can_mushrooms':
+	'"I need to get some of these mushrooms canned, <<$pcs_nickname>>, so we can store them. Can you please help me prepare them?"'
+
+	grandmaQW['chore_can_mushrooms'] = 1
+	act 'Tell her you will help her in a little while': gt 'gp_elene', 'talk'
+	gs 'gp_elene', 'set_help_can_mushrooms_act'
+end
+
+if $ARGS[0] = 'chore_can_berries':
+	'"It is time to can these berries, <<$pcs_nickname>>. Can you please help me? My fingers aren''t as spry as they used to be."'
+
+	grandmaQW['chore_can_berries'] = 1
+	act 'Tell her you will help her in a little while': gt 'gp_elene', 'talk'
+	gs 'gp_elene', 'set_help_can_berries_act'
+end
+
+if $ARGS[0] = 'chore_can_veggies':
+	'"We have had good luck with the garden this year, <<$pcs_nickname>>. But now we need to can these vegetables before they spoil. Can you help me, please?"'
+
+	grandmaQW['chore_can_veggies'] = 1
+	act 'Tell her you will help her in a little while': gt 'gp_elene', 'talk'
+	gs 'gp_elene', 'set_help_can_veggies_act'
+end
+
+if $ARGS[0] = 'chore_feedchickens':
+	'"Of course, <<$pcs_nickname>>. Would you be kind and feed the chickens?"'
+
+	grandmaQW['chore_feed_chickens'] = 1
+	act 'Tell her you will do it in a little while': gt 'gp_elene', 'talk'
+	act 'Agree and go to the yard (0:10)':
+		*clr & cla
+		minut += 10
+		gs'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_chickens.jpg"></center>'
+		'You take the grain mix for the chickens and walk to the yard.'
+
+		act 'Continue': gt 'gad_gpyard','chickens'
+	end
+end
+
+if $ARGS[0] = 'chore_checkplants':
+	'"<<$pcs_nickname>>, can you please go work in the garden?"'
+
+	grandmaQW['chore_work_in_garden'] = 1
+	act 'Tell her you will get to it later': gt 'gp_elene', 'talk'
+	act 'Agree and go to the garden (0:10)':
+		*clr & cla
+		minut += 10
+		gs'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		'You go to the garden.'
+
+		act 'Continue': gt 'gad_gpyard', 'garden'
+	end
+end
+
+if $ARGS[0] = 'chore_waterplants':
+	'"Dear <<$pcs_nickname>>, could you go and water the plants in the garden?"'
+
+	grandmaQW['chore_water_garden'] = 1
+	act 'Tell her you will do it after a while': gt 'gp_elene', 'talk'
+	act 'Agree and go to the garden (0:10)':
+		*clr & cla
+		minut += 10
+		gs'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		'You bring a watering can along with you to the garden.'
+
+		act 'Continue': gt 'gad_gpyard', 'garden'
+	end
+end
+
+if $ARGS[0] = 'chore_harvest':
+	if month = 7:
+		'"<<$pcs_nickname>> dear, the strawberries are ripe for picking. Could you go over to the plot and pick them today?"'
+
+		grandmaQW['chore_collect_strawberries'] = 1
+		act 'Tell her you will do it in a little bit': gt 'gp_elene', 'talk'
+		act 'Agree and go to the strawberry plot (0:10)':
+			*clr & cla
+			minut += 10
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+			'You bring a basket with you and walk to the strawberry plot in the garden.'
+
+			act 'Continue': gt 'gad_gpyard', 'strawberry'
+		end
+	elseif month = 8 or month = 9:
+		'"<<$pcs_nickname>> dear, the fruits are ripe, and it is time to start collecting them. Could you go and do it today?"'
+
+		grandmaQW['chore_collect_fruit'] = 1
+		act 'Tell her you will do it in a little bit': gt 'gp_elene', 'talk'
+		act 'Agree and go to the orchard (0:10)':
+			*clr & cla
+			minut += 10
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+			'You bring a basket with you and walk to the fruit garden.'
+
+			act 'Continue': gt 'gad_gpyard', 'fruit_garden'
+		end
+	elseif month = 6:
+		'"<<$pcs_nickname>> dear, could you go to the garden today? It''s time to collect the harvest."'
+
+		grandmaQW['chore_harvest_garden'] = 1
+		act 'Tell her you will do it in a little bit': gt 'gp_elene', 'talk'
+		act 'Agree and go to the garden (0:10)':
+			*clr & cla
+			minut += 10
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+			'You bring the harvest tools with you and go over to the garden.'
+
+			act 'Continue': gt 'gad_gpyard', 'garden'
+		end
+	end
+end
+
+if $ARGS[0] = 'chore_pickforest_mushrooms':
+	grandmaQW['chore_gather_mushrooms'] = 1
+	grandmaQW['chore_mushroom_quantity'] = rand(1,2)
+	'"<<$pcs_nickname>>, it''s mushroom season. Would you mind going into the forest to pick some for us?"'
+	'"How much do we need, Grandma?" you ask.'
+	'"Oh, I would say you should be able to find at least <<grandmaQW[''chore_mushroom_quantity'']>> kilos," Grandma replies.'
+
+	act 'Tell her you will go get some soon': gt 'gp_elene', 'talk'
+	act 'Agree and go to the forest (1:00)':
+		*clr & cla
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
+		end
+		'You decide that now is as good a time as any to do it. You grab a basket and head out, walking to the forest.'
+		minut += 60
+		act 'Continue': gt 'gad_forest', 'forest_edge'
+	end
+end
+
+if $ARGS[0] = 'chore_pickforest_berries':
+	grandmaQW['chore_gather_berries'] = 1
+	grandmaQW['chore_berry_quantity'] = rand(1,2)
+	'"<<$pcs_nickname>>, the wild berries are ripe for picking. We should gather them now while we can."'
+	'"How much do you want, Grandma?" you ask.'
+	'"<<grandmaQW[''chore_berry_quantity'']>> kilos will be a good start," Grandma replies.'
+
+	act 'Tell her you will go get some soon': gt 'gp_elene', 'talk'
+	act 'Agree and go to the forest (1:00)':
+		*clr & cla
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
+		end
+		'You decide now is as good a time as any to do it. So you grab a basket and head out, walking to the forest.'
+		minut += 60
+		act 'Continue': gt 'gad_forest', 'forest_edge'
+	end
+end
+
+if $ARGS[0] = 'chore_pickforest_both':
+	grandmaQW['chore_gather_both'] = 1
+	grandmaQW['chore_mushroom_quantity'] = rand(1,2)
+	grandmaQW['chore_berry_quantity'] = rand(1,2)
+	'"This is the time of year that the forest provides us with its gifts, <<$pcs_nickname>>. Can you go and harvest some mushrooms and berries for us?"'
+	'"How much of each should I get?" you ask.'
+	'"If you could, try to find <<grandmaQW[''chore_mushroom_quantity'']>> kilos of mushrooms and <<grandmaQW[''chore_berry_quantity'']>> kilos of berries," Grandma replies. "It is important to stock up while we can."'
+
+	act 'Tell her you will go get some soon': gt 'gp_elene', 'talk'
+	act 'Agree and go to the forest (1:00)':
+		*clr & cla
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
+		end
+		'You decide now is as good a time as any to do it. So you grab a basket and head out, walking to the forest.'
+		minut += 60
+		act 'Continue': gt 'gad_forest', 'forest_edge'
+	end
+end
+
+
+	!!-------------------- ASKING FOR CHORES END --------------------!!
+
+
+
+
+
+	!!-------------------- TURNING IN CHORES START --------------------!!
+
+if $ARGS[0] = 'set_help_can_mushrooms_act':
+	if grandmaQW['chore_can_mushrooms'] = 1:
+		act 'Help Grandma can mushrooms (2:00)':
+			*clr & cla
+			minut += 45
+			boletus_stored -= 5
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cleaning_mushrooms.jpg"></center>'
+			'You tell Grandma you are ready to help her can mushrooms now.'
+			'She smiles and gives you a basket of mushrooms. You spend a while cleaning them, washing them, and cutting them up in preparation for canning.'
+
+			act 'Continue':
+				*clr & cla
+				minut += 60
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canning.jpg"></center>'
+				'Once they are prepared, you help put them in glass jars. Once they are ready, Grandma places the jars in her canner and boils them for an hour.'
+				act 'Continue':
+					*clr & cla
+					minut += 15
+					gs 'stat'
+
+					grandmaQW['chore_can_mushrooms'] = 0
+					grandmaQW['help_amount'] += 2
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canned_mushrooms.jpg"></center>'
+					'Finally, you help Grandma take them out of the canner and set them aside to cool.'
+					'"Thank you, <<$pcs_nickname>>," she says. "It is important to save food up for the hard winter months. Sure, now you can walk to the store and get whatever you want, but it wasn''t always that way!"'
+
+					act 'Finish': gt $loc, $loc_arg
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'set_help_can_berries_act':
+	if grandmaQW['chore_can_berries'] = 1:
+		act 'Help Grandma can berries (2:00)':
+			*clr & cla
+			minut += 45
+			bilberry_stored -= 5
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cleaning_berries.jpg"></center>'
+			'Grandma gives you a basket of berries, and you spend a while cleaning them, removing stems, and picking out any shrivelled or bad ones.'
+			act 'Continue':
+				*clr & cla
+				minut += 60
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canning.jpg"></center>'
+				'Once they are prepared, you help pour them into glass jars. Once they are ready, Grandma places the jars in her canner and boils them for an hour.'
+				act 'Continue':
+					*clr & cla
+					minut += 15
+					grandmaQW['chore_can_berries'] = 0
+					grandmaQW['help_amount'] += 2
+					gs 'stat'
+
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canned_berries.jpg"></center>'
+					'Finally, you help Grandma take them out of the canner and set them aside to cool.'
+					'"There, now we will have berries for the winter," she says. "I think your grandfather could live off of these berries alone! He will be very grateful that you helped me."'
+
+					act 'Finish': gt $loc, $loc_arg
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'set_help_can_veggies_act':
+	if grandmaQW['chore_can_veggies'] = 1:
+		act 'Help Grandma can veggies (3:00)':
+			*clr & cla
+			minut += 75
+			gs'stat'
+
+			grandmaQW['chore_harvest_done'] = 0
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cleaning_veggies.jpg"></center>'
+			'You and Grandma spend some time sorting out all the vegetables from the garden. Once they are sorted, you begin cleaning them, cutting them up, removing stems and leaves, and preparing them for canning.'
+			act 'Continue':
+				*clr & cla
+				minut += 90
+				gs'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canning.jpg"></center>'
+				'It is a tedious process, but eventually, you finish and help Grandma put them all in jars. Then, you stand by while she boils the jars, helping her remove them from the canner when needed and replacing them with others.'
+				act 'Continue':
+					*clr & cla
+					minut += 15
+					gs'stat'
+
+					grandmaQW['chore_can_veggies'] = 0
+					grandmaQW['help_amount'] += 3
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canned_veggies.jpg"></center>'
+					'Finally, you help Grandma take the last jars out of the canner and set them aside to cool.'
+					'"You know, <<$pcs_nickname>>, if you know how to can your own food, you can survive years of poor harvests," she says.'
+					'"Your grandfather and I had many hard times when we were younger, but saving our crops when we could, kept us from starving to death in the bad times. You would do well to remember that, young lady!"'
+					act 'Finish': gt $loc, $loc_arg
+				end
+			end
+		end
+	end
+end
+
+
+
+
+
+if $ARGS[0] = 'set_report_chores_acts':
+	gs 'gp_elene', 'set_help_can_mushrooms_act'
+	gs 'gp_elene', 'set_help_can_berries_act'
+	gs 'gp_elene', 'set_help_can_veggies_act'
+
+	gs 'gp_elene', 'set_report_cleaned_floor_act'
+	gs 'gp_elene', 'set_report_washed_clothes_act'
+	gs 'gp_elene', 'set_report_milked_cow_act'
+	gs 'gp_elene', 'set_report_groceries_act'
+	gs 'gp_elene', 'set_report_fed_chickens_act'
+	gs 'gp_elene', 'set_report_worked_garden_act'
+	gs 'gp_elene', 'set_report_watered_garden_act'
+	gs 'gp_elene', 'set_report_collected_strawberries_act'
+	gs 'gp_elene', 'set_report_collected_fruit_act'
+	gs 'gp_elene', 'set_report_harvested_garden_act'
+	gs 'gp_elene', 'set_report_gathered_mushrooms_act'
+	gs 'gp_elene', 'set_report_gathered_berries_act'
+	gs 'gp_elene', 'set_report_gathered_both_act'
+end
+
+
+if $ARGS[0] = 'set_report_cleaned_floor_act':
+	if grandmaQW['chore_clean_floor'] = 2:
+		act 'Tell her you cleaned the floor':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_clean_floor'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'"Grandma, the floors are all clean!" you say proudly.'
+			'"Thank you, child," your grandmother says, "You have saved my hands and knees a great deal of aching."'
+			'You give her a warm smile and continue on with your day.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'set_report_washed_clothes_act':
+	if grandmaQW['chore_wash_clothes'] = 2:
+		act 'Tell her you washed the clothes':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_wash_clothes'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'"Grandma, I finished washing Grandpa''s dirty clothes," you tell her.'
+			'"Thank you, <<$pcs_nickname>>. I have no idea how that man gets so dirty!"'
+			'You and your grandmother share a laugh, and you give her a hug before moving on.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_milked_cow_act':
+	if grandmaQW['chore_milk_cow'] = 2:
+		act 'Tell her you milked the cow':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_milk_cow'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'"Grandma, I milked Dawn and put the milk away," you tell her.'
+			'"Thank you, <<$pcs_nickname>>. She''s such a sweet thing, isn''t she?" your grandmother asks fondly.'
+			'"Um, yes, she is very nice for a cow," you smile. "She''s the nicest cow I know."'
+			'Grandma nods sagely at that, and you grin and continue on with your day.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_groceries_act':
+	if grandmaQW['chore_groceries'] = 2:
+		act 'Give her the groceries':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_groceries'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'You show Grandma your sacks of groceries and tell her the grocer will be by later.'
+			'"Thank you, <<$pcs_nickname>>. He''s a nice young man. I''ve known him since he was a child, you know."'
+			'"Yes, he''s very nice," you say, "but where do you want me to put this stuff?"'
+			'"Oh yes, yes," she says as if she forgot you were standing there with arms full of groceries. "Just put them in the kitchen, little one. I will put them away in a minute."'
+			'You lug the bags into the kitchen and heft them on the table before returning to Grandma.'
+			'"Anything else you need, Grandma?" you ask.'
+			'"No, that is all, <<$pcs_nickname>>," she says and gives you a gentle pat on the back.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_fed_chickens_act':
+	if grandmaQW['chore_feed_chickens'] = 2:
+		act 'Tell her you fed the chickens':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_feed_chickens'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'"I fed the chickens, Grandma," you tell her.'
+			'"Good, thank you, <<$pcs_nickname>>," she says. "A fat chicken is a happy chicken, and happy chickens lay the best eggs."'
+			'She nods to herself as if she has said something sagacious.'
+			'"Um, well, I''m happy to help, Grandma," you say and hug her quickly.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_worked_garden_act':
+	if grandmaQW['chore_work_in_garden'] = 2:
+		act 'Tell her you worked in the garden':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 4
+			grandmaQW['chore_work_in_garden'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'"I finished working in the garden, Grandma."'
+			'"Good, thank you, <<$pcs_nickname>>," she says. "Did you pull out all the weeds?"'
+			'"Yes, I did," you say, "and I watered all the plants and checked for pests and everything."'
+			'"Good, good," she nods. "It is crucial to take care of your garden, <<$pcs_nickname>>. It is how we provide for ourselves when no one else will."'
+			'You nod at her advice, and she smiles.'
+			'"You know, you remind me very much of your mother," she says. "She and Luda always talked about the garden when they were your age."'
+			if npc_QW['A29'] < 2:
+				'"Really?" you ask, trying to picture your mother working in the old garden.'
+				'"Oh yes, yes," Grandma says. "Your mother especially. Natasha would say, ''Luda, Luda, I have to go to the garden,'' and Luda would say, ''But sister, you were just in the garden yesterday!"'
+				'She purses her lips and continues, "She wasn''t very good at gardening, I''m afraid. As much time as she seemed to spend there, I would still find weeds and pests all the time."'
+			else
+				'You struggle to contain your laughter. "Oh yeah, <<$npc_nickname[''A29'']>> has told me all about the ''garden'', Grandma. Like mother, like daughter, I guess!"'
+				'Grandma nods. "Yes, I suppose that is true. She wasn''t much of a gardener though - I always found weeds and pests, no matter how much time she spent there."'
+			end
+			'You grin, thinking of how <<$npc_nickname[''A29'']>> must have been at your age.'
+			'"Anyway," she continues, "thank you for doing that for me, <<$pcs_nickname>>. My old bones complain when I do it."'
+			'She gives you a peck on the cheek and sends you on your way.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_watered_garden_act':
+	if grandmaQW['chore_water_garden'] = 2:
+		act 'Tell her you watered the garden':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_water_garden'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'"I watered all the plants in the garden, Grandma," you tell her.'
+			'"Thank you, <<$pcs_nickname>>," she says. "A healthy plant is always thirsty. So you should have some water, too, if you want to be a healthy girl."'
+			'"Maybe I will. Is there anything else you need?"'
+			'"No, sweet child. That is enough for today," she says and gives you a gentle pat on the arm.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'set_report_collected_strawberries_act':
+	if grandmaQW['chore_collect_strawberries'] = 2:
+		act 'Give her the strawberries you picked':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_collect_strawberries'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'You walk up to Grandma and give her the basket of strawberries.'
+			'"I picked all the strawberries I could find, Grandma," you say.'
+			'"Oh, <<$pcs_nickname>>," she exclaims, "don''t these just look wonderful? They are plump and juicy this year."'
+			'You smile and say, "They taste pretty good too!"'
+			'Your grandmother gives you a rueful look and says, "I don''t remember asking you to eat the strawberries, child."'
+			'She cannot hold the charade, though, and breaks into a smile. "I never could resist eating a few fresh off the plant either."'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_collected_fruit_act':
+	if grandmaQW['chore_collect_fruit'] = 2:
+		act 'Give her the fruit you collected':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_collect_fruit'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'You walk up to Grandma and give her the basket of fruit.'
+			'"I gathered all the fruits I could reach," you say.'
+			'"Thank you, <<$pcs_nickname>>," she says. "I cannot reach or bend like I used to, so you have done me a great favor."'
+			'You smile and hug your grandmother and go on about your day.'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_harvested_garden_act':
+	if grandmaQW['chore_harvest_garden'] = 2:
+		act 'Give her the vegetables from the garden':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 2
+			grandmaQW['chore_harvest_garden'] = 0
+			grandmaQW['chore_harvest_done'] = 1
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'You bring the baskets of vegetables from the garden into the kitchen and set them on the table, then go back to your grandmother.'
+			'"I think I got everything I could out of the garden, Grandma," you tell her. "There was so much!"'
+			'"Yes, child," she says. "We have been blessed with a healthy garden this year. But, unfortunately, there were many times in the past we were not so lucky."'
+			'Your smile falters a bit, unsure of how to take that.'
+			'"Oh, don''t worry yourself, little <<$pcs_nickname>>," she says, cupping your cheek with her hand. "Forgive an old woman of her thoughtful ways. We are lucky to have such a kind granddaughter to help us bring in the harvest."'
+			'You place your youthful hand over her wizened old one and smile at her. "I am happy to help, Grandma. Is there anything else you need?"'
+			'"No, child, you have done more than your fair share today. Of course, soon, we will have to preserve these vegetables to keep them from spoiling, but for now, you can rest."'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_gathered_mushrooms_act':
+	if grandmaQW['chore_gather_mushrooms'] = 2 and boletus >= grandmaQW['chore_mushroom_quantity'] and hour >= 6 and hour < 20:
+		if grandmaQW['disappointment'] = 2:
+			act 'Give Grandma the mushrooms she asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 1
+				boletus -= grandmaQW['chore_mushroom_quantity']
+				boletus_stored += grandmaQW['chore_mushroom_quantity']
+				grandmaQW['chore_gather_mushrooms'] = 0
+				grandmaQW['chore_mushroom_quantity'] = 0
+				grandmaQW['disappointment'] = 0
+				minut += 5
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+				'You bring the basket of mushrooms to your grandmother and say, "Grandma, here are the mushrooms you wanted!"'
+				'She takes them from you. "Thank you, my sweet girl. Better late than never. I hope you were OK in the forest. They will have to go down in the root cellar until we are ready to can them."'
+				'"Do you think that will be enough?"'
+				'She laughs. "Oh, with your grandfather around, it is never enough!"'
+				'"I can get more if you want me to."'
+				'"No need for that, little one," she clucks. "You''ve done enough for now."'
+				'You give her a quick hug in response and carry on.'
+
+				act 'Continue': grandmaQW['chore_mushroom_quantity'] = 0 & gt 'gp_elene', 'talk'
+			end
+		else
+			act 'Give Grandma the mushrooms she asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 3
+				boletus -= grandmaQW['chore_mushroom_quantity']
+				boletus_stored += grandmaQW['chore_mushroom_quantity']
+				grandmaQW['chore_gather_mushrooms'] = 0
+				minut += 5
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+				'You bring the basket of mushrooms to your grandmother and say, "Grandma, here are the mushrooms you wanted!"'
+				'She smiles and takes them from you. "Thank you, my sweet girl. They will have to go down in the root cellar until we are ready to can them."'
+				'"Do you think that will be enough?"'
+				'She laughs. "Oh, with your grandfather around, it is never enough!"'
+				'"I can get more if you want me to."'
+				'"No need for that, little one," she clucks. "You''ve done enough for one day."'
+				'You give her a quick hug in response and carry on.'
+
+				act 'Continue': grandmaQW['chore_mushroom_quantity'] = 0 & gt 'gp_elene', 'talk'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_gathered_berries_act':
+	if grandmaQW['chore_gather_berries'] = 2 and bilberry >= grandmaQW['chore_berry_quantity'] and hour >= 6 and hour < 20:
+		if grandmaQW['disappointment'] = 2:
+			act 'Give Grandma the berries she asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 1
+				bilberry -= grandmaQW['chore_berry_quantity']
+				bilberry_stored += grandmaQW['chore_berry_quantity']
+				grandmaQW['chore_gather_berries'] = 0
+				grandmaQW['chore_berry_quantity'] = 0
+				grandmaQW['disappointment'] = 0
+				minut += 5
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+				'You walk over to Grandma and set the heavy basket of berries on the ground next to her.'
+				'"Grandma, I got all the berries!"'
+				'"Oh, thank you, <<$pcs_nickname>>," Grandma replied. "Those look fine if a little late. They will have to go down in the root cellar until we are ready to can them."'
+				'You heft the basket up and carry it into the kitchen. Then, walking back to Grandma, you ask, "Do you think that will be enough for the winter?"'
+				'"Oh no, dear," your Grandma says, "the winter is long and cold, and you must gather as much as you can while you can."'
+				'Seeing the dismayed look on your face, she adds, "But that is enough for today! I know it is harder work than it seems. You can rest now, child."'
+				'Relieved, you give your grandmother a peck on the cheek and move on.'
+
+				act 'Continue': grandmaQW['chore_berry_quantity'] = 0 & gt 'gp_elene', 'talk'
+			end
+		else
+			act 'Give Grandma the berries she asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 3
+				bilberry -= grandmaQW['chore_berry_quantity']
+				bilberry_stored += grandmaQW['chore_berry_quantity']
+				grandmaQW['chore_gather_berries'] = 0
+				minut += 5
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+				'You walk over to Grandma and set the heavy basket of berries on the ground next to her.'
+				'"Grandma, I got all the berries!"'
+				'"Oh, thank you, <<$pcs_nickname>>," Grandma replied. "Those look perfect. They will have to go down in the root cellar until we are ready to can them."'
+				'You heft the basket up and carry it into the kitchen. Then, walking back over to Grandma, you ask, "Do you think that will be enough for the winter?"'
+				'"Oh no, dear," your Grandma says, "the winter is long and cold, and you must gather as much as you can while you can."'
+				'Seeing the dismayed look on your face, she adds, "But that is enough for today! I know it is harder work than it seems. You can rest now, child."'
+				'Relieved, you give your grandmother a peck on the cheek and move on.'
+
+				act 'Continue': grandmaQW['chore_berry_quantity'] = 0 & gt 'gp_elene', 'talk'
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'set_report_gathered_both_act':
+	if grandmaQW['chore_gather_both'] = 2 and boletus >= grandmaQW['chore_mushroom_quantity'] and bilberry >= grandmaQW['chore_berry_quantity'] and hour >= 6 and hour < 20:
+		if grandmaQW['disappointment'] = 2:
+			act 'Give Grandma the mushrooms and berries she asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 1
+				boletus -= grandmaQW['chore_mushroom_quantity']
+				bilberry -= grandmaQW['chore_berry_quantity']
+				boletus_stored += grandmaQW['chore_mushroom_quantity']
+				bilberry_stored += grandmaQW['chore_berry_quantity']
+				grandmaQW['chore_gather_berries'] = 0
+				grandmaQW['chore_berry_quantity'] = 0
+				grandmaQW['chore_gather_mushrooms'] = 0
+				grandmaQW['chore_mushroom_quantity'] = 0
+				grandmaQW['disappointment'] = 0
+				minut += 5
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+				'You bring your basket, heavy with mushrooms and berries from the forest, over to your grandmother.'
+				'"Grandma, here are the mushrooms and berries, just like you asked!"'
+				'"Oh, thank you, <<$pcs_nickname>>. I was starting to think you had forgotten about me. They will have to go down in the root cellar until we are ready to can them," your Grandma replied.'
+				'"Do I need to go out on another run, or do you think that''s enough?"'
+				'"Well, little one," your Grandma says, "There is a difference between enough and enough for today."'
+				'"Oh..." you say, unsure what to make of her response.'
+				'She smiles gently and pats your head. "You''ve done enough for today, child."'
+				'You smile back awkwardly, still unsure, but give your Grandma a smooch on the cheek and go on with your day.'
+
+				act 'Continue': grandmaQW['chore_berry_quantity'] = 0 & gt 'gp_elene', 'talk'
+			end
+		else
+			act 'Give Grandma the mushrooms and berries she asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 3
+				boletus -= grandmaQW['chore_mushroom_quantity']
+				bilberry -= grandmaQW['chore_berry_quantity']
+				boletus_stored += grandmaQW['chore_mushroom_quantity']
+				bilberry_stored += grandmaQW['chore_berry_quantity']
+				minut += 5
+				grandmaQW['chore_gather_both'] = 0
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+				'You bring your basket, heavy with mushrooms and berries from the forest, over to your grandmother.'
+				'"Grandma, here are the mushrooms and berries, just like you asked!"'
+				'"Oh, thank you very much, <<$pcs_nickname>>. They will have to go down in the root cellar until we are ready to can them," your Grandma replied.'
+				'"Do I need to go out on another run, or do you think that''s enough?"'
+				'"Well, little one," your Grandma says, "There is a difference between enough and enough for today."'
+				'"Oh..." you say, unsure what to make of her response.'
+				'She smiles gently and pats your head. "You''ve done enough for today, child."'
+				'You smile back awkwardly, still unsure, but give your Grandma a smooch on the cheek and go on with your day.'
+
+				act 'Continue': grandmaQW['chore_mushroom_quantity'] = 0 & grandmaQW['chore_berry_quantity'] = 0 & gt 'gp_elene', 'talk'
+			end
+		end
+	end
+end
+
+	!!-------------------- TURNING IN CHORES END --------------------!!
+
+
+if $ARGS[0] = 'set_talk_acts':
+	if grandmaQW['talked_about_gadukino'] = 0:
+		act 'Ask about the village (0:10)':
+			*clr & cla
+			grandmaQW['talked_about_gadukino'] = 1
+			minut += 10
+			pcs_mood += 5
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'You sit next to grandma, eager to have her tell you more about the village.'
+			'"Don''t you remember Sveta? You''ve visited us many times," said grandma.'
+			'"The last time I visited here, I was really young. Of course, I remember some of the houses, but the clearest memory I have is going swimming with Mitka," you reply.'
+			'"And look how big you''ve become! Just look at you." grandma smiled.'
+			'She begins telling you about the village.'
+			'"The village is small, as you know. You''ll probably find Mitya by the river or the beach where you can go swimming and sunbathe. There are still some fishermen here in the village. If you want to go fishing, ask around after Stepan, he''ll lend you a fishing rod."'
+			'"Nothing is interesting in the village itself. Oh yes... I just remembered... recently, a new family moved in, a single parent with his daughter. Could you imagine someone new moving in? The girl is about your age. Her father works in the city, and from the rumors I''ve heard, he''s hardly here because his work forces him to stay in the city most of the time. You''ll probably meet her while you take a walk in the village."'
+			'"In the outskirts of the village is the field where the cattle graze and the forest beyond the field. You''ll usually find our local hunter Andrei in the forest. He often brings his friends to hunt, who often stay there for days. They say he built a hut somewhere in the forest. So, if you meet Andrei and his friends out there, don''t be afraid. If you want to go to the forest, ask grandfather first."'
+			'"If you like running, you can take a run on the road leading into the forest. Or you can take a ride on our old bike. I''m pretty sure the bike is in the shed. Make sure to look for it if you''re interested. And if you want to watch your figure, go to the garden, and have some fruit. It''s as healthy as the diet meals you''re eating, if not healthier."'
+			'"That''s about it, my dear granddaughter. Now run along, don''t bother me anymore. My soap opera "Santa Barbara" is about to begin. I don''t want to miss a second of it."'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+
+	if 24 * (daystart - grandmaQW['last_day_talked']) + (hour - grandmaQW['last_hour_talked']) >= 3:
+		act 'Chat with your grandmother (0:10)':
+			*clr & cla
+			grandmaQW['last_hour_talked'] = hour
+			grandmaQW['last_day_talked'] = daystart
+			minut += 10
+			pcs_mood += RAND(5, 10)
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
+			'You spend some time talking with your grandmother. She''s sometimes challenging to understand. Her nearly toothless mouth makes the pronunciation of words difficult for her. But most of what she says boils down to the same thing, life is much more fun when you''re young!'
+
+			act 'Continue': gt 'gp_elene', 'talk'
+		end
+	end
+
+	if grandmaQW['last_day_asked_for_story'] ! daystart:
+		act 'Ask her to tell you a story (0:20)':
+			*clr & cla
+			grandmaQW['last_day_asked_for_story'] = daystart
+			minut += 20
+			pcs_mood += rand(10,15)
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/babushka.jpg"></center>'
+			'She mumbles something when you ask your grandmother to tell you a story. Nevertheless, after a brief second or two, she decides on a story to share with you today and begins to talk slowly.'
+
+			temp = rand(0, 7)
+
+			if temp = 0:
+				'"There was this one time my parents allowed me to stay at my friend''s home for the night. During the night, a lot of snow fell... and we heard a soft knock on the door!" she says in an ominous voice.'
+				'"We listened more closely but could only hear the wind whistling through the trees... so we decided to go back to sleep. Then we heard the knocking again!"'
+				'""We dashed to the window but couldn''t see anything other than snow. Finally, the knocking became more persistent, and the voice of a small girl begged us to open the door! My friend and I moved to the middle of the room, tightly hugging one another... we were terrified!"'
+				'"The knocking continued into the morning, even when the blizzard stopped. It sounded like someone was panicking, but when we told her parents in the morning, they didn''t believe us. When we went outside... there were no tracks on the snow! As if it never happened!"'
+				'"We never heard the voice or the knocking again after that, but I still feel bad for not going downstairs to answer the door. What if some girl was actually there, begging for our help? I hope she''s okay..."'
+			elseif temp = 1:
+				'"I had a friend when I was younger," she says in an ominous voice. "Her husband died at her house. He was a drunken bastard. He got drunk one day and died of alcohol poisoning in the very same house."'
+				'"One day, she came home from work, and the floorboards suddenly started creaking! And through the glass panes in the hallway door, she could see the silhouette of a man. It looked remarkably like her late husband!"'
+				'"She was terrified! She quickly left her house and only returned when I promised to go with her... but of course, we found nothing. Do you believe in ghosts, <<$pcs_nickname>>? Because ever since then, I do..."'
+			elseif temp = 2:
+				'"I wasn''t born in Gadukino. I grew up in a different village", your grandmother begins. "This is a true story, by the way!"'
+				'"When I was still a little girl, one of our neighbours died. Then, less than two weeks later, one of his brothers died too! And as the legend goes, death comes in threes..."'
+				'"His one surviving sister was terrified. She was a friend, but her parents wouldn''t let her leave the house."'
+				'"It was well into the winter then, and people could only go to other towns by sleigh. So for forty days, they waited... just when they were about to accept that the legend might not be true, they found one of her relatives. Dead. Muzhik, I believe his name was, was found frozen solid, basically a block of ice! He''d tried to attend his cousin''s funeral, but it cost him his life!"'
+				'"Death is not to be trifled with, <<$pcs_nickname>>... her parents were smart to hide her. Otherwise, she might''ve died instead!"'
+			elseif temp = 3:
+				'"This really happened!" your grandmother reassures you. "When I was young, your age... it was just after the war. Then, no one believed in superstition or anything like that. Those were tough times. All anyone cared about was how to get their next meal on the table for their family."'
+				'"We all went to bed, but our cat kept meowing at me! It just wouldn''t let me sleep for hours and hours!"'
+				'"When I finally caught some sleep and woke up the next morning, my father was beside my bed. He said when he cleaned out the furnace of ashes, he found the remains of our dead cat in there!"'
+				'You see her eyes tear up. "No one knew how she got there... no one noticed anything! Except for me. To this day, I believe she was trying to warn me, asking for my help..."'
+				'Your grandmother shrugs, wiping a tear from her eye. You reassuringly put your hand on her knee but don''t know what to say to comfort her.'
+			!125s
+			elseif temp = 4:
+				'"I will tell you a story about an event in the village where I was brought up. One day a woman from a place far up in the northern Soviet Union moved to our village."'
+				'"The woman lived alone with this gorgeous dog. It was a white colour, quite large and quiet as a mouse. But, the dog died after a while, and the woman didn''t want to bury it."'
+				'"She always said it''s a shame to throw away the pelt since it was so furry. So she thought about what she could make of this pelt. After a while, she decided to make a fur collar of the pelt."'
+				'"It took about two months, and she got really sick... I, among others, visited her, and everything looked fine at first glance. But as soon as I closed the door, she started acting erratic and hallucinating. These were the characteristics of rabies. Unfortunately, since she was living alone, no one noticed it before it was too late to save her life..."'
+			elseif temp = 5:
+				'"One evening during the Christmas holidays in my younger days, I was hanging out with my girlfriends in the kitchen. But, of course, it was my school friends, so we were always up to some mischief."'
+				'"We were home alone, and one of my friends persuaded us to do a séance. She tells us that a fortune-teller had explained how one could summon a spirit. So we lit some candles and began chanting for the spirits to show themself."'
+				'"I managed to summon the profile of a male figure. He was holding something resembling a bouquet of flowers. My second friend summoned a kettle-looking object, while my last friend managed to summon an infant, which frightened us."'
+				'"Not being discouraged, we decided to try again, excited by what we would manage to summon this time. This time I summoned a large steamer. My second friend didn''t summon anything special, but my third friend summoned the same infant again. The difference this time was that the infant was in a stroller."'
+				'"We ended the séance and went back to doing ordinary stuff. Suddenly we heard a knock on the door, the young man from the séance. He pulled out a beautiful bouquet of roses and gave them to me. I asked him what the reason was, but he just answered that he felt he should deliver flowers to a girl in this village. After that, I got the chills because I remembered the man with a bouquet of flowers from the séance."'
+				'"The most interesting thing that happened was a few months after our séance, my friend that summoned the baby got pregnant. And by the end of the year, she had a baby by age 15. So beware, when you meet a fortune-teller, you never know what might happen..."'
+			elseif temp = 6:
+				'"I remember sitting down as we are right now," your grandma starts, but suddenly as if she remembered something, she sadly sighs. "There are no more matches..."'
+				'You look at her perplexed, questioning what she''s talking about. "We do have matches in the kitchen, or if you want, I can run over to the store to buy some."'
+				'"You don''t get it, <<$pcs_nickname>>. The matches today are not as good as those made long ago. I miss those matches we had during the Great Patriotic War before they had to move the factory to the far east... Those matches were magical, not like this crap we have now... Ugh..."'
+
+			!Keep the word brigade if you want to change the text. It''s what the people working on the kolkhoz were called.
+			elseif temp = 7:
+				'"One day, my mother, rest her soul, sent us four siblings out to the forest for berry gathering", your grandma begins. "We took our berry collectors and headed out. We reached the forest entrance quickly and decided that it would be best to split up to complete the task faster. Since we were familiar with the area, we all dispersed to our cherished spots and began gathering berries."'
+				'"My favourite spot was a plot surrounded by dense bushes, and in the middle of the plot, there was a huge stump. It was a great spot, and as I approached, I noticed a vast number of ripe strawberries. I rejoiced over the thought that I would gather more than my brothers, slowly gathering the berries and putting them in my berry collector. Then, suddenly, I hear some rustling behind the bushes. I turn towards the sound, but I''m met with silence. I didn''t notice anyone, but I still couldn''t get rid of the eerie feeling."'
+				'"I shook off the eerie feeling and returned to gathering strawberries again. All of a sudden, I get this strange feeling... I look up, and I see a person squatting on the stump. He''s completely still and just stares at me. I got terrified and ran away, screaming and crying towards my brothers. They tried to stop and calm me down, but I kept running. My brothers started running after me, trying to keep up. I could hear my oldest brother shouting to run towards the kolkhoz. You see <<$pcs_firstname>>, a long time ago we had central collective farms called kolkhoz."'
+				'"We were lucky that the farms were close to the forest and didn''t have to run through the woods for long. I kept looking back to see if this person was following us, but there was no sign of him. We knew we were safe when we saw the brigade''s farmers. My brothers and I ran to the foreman and explained what had happened. He immediately grabbed the phone and called someone. The other farmers reassured us that we were safe now. After we had calmed down, we got sent home. Our mother met us at home. She fed us and comforted me."'
+				'"The following day, we were informed that some people found dismantled railroad rails not far from the train station Ratomka. Apparently, it was done by the man I encountered in the forest. I didn''t know it then, but before the war, our area was prone to sabotage by infiltrators. Staying hidden was easy, as the territory is covered by forest, stretching to the border."'
+				'"Ever since that day, the fear I experienced never disappeared, as I''ve felt it throughout my life. I''ll carry on this fear for the remaining days of my life..."'
+			end
+			!125e
+			act 'Thank her for the story': gt 'gp_elene', 'talk'
+		end
+	end
+end
+
+
+
+--- gp_elene ---------------------------------------------

+ 157 - 40
locations/gp_elene_schedule.qsrc

@@ -5,54 +5,171 @@
 !!
 !! Sveta''s Grandmother in Gad npc id A31
 !!
-$locat['elene'] = ''
+
+	!locat['A31'] tells us where Elene is Located
+	!----------------------------------------------
+	!locat['A31'] = 100		Bedroom
+
+	!locat['A31'] = 110		Livingroom
+	!locat['A31'] = 111		Livingroom - Reading a book
+	!locat['A31'] = 112		Livingroom - Watching tv
+	!locat['A31'] = 113		Livingroom - Repearing some clothes
+	!locat['A31'] = 114		Livingroom - knitting
+
+	!locat['A31'] = 120		Kitchen - Cooking
+	!locat['A31'] = 121		Kitchen - Reading?
+
+	!locat['A31'] = 200		Garden - gardening
+
+	!locat['A31'] = 210		Sauna - Bathing
+
+	!locat['A31'] = 300		Village
+
+	!locat['A31'] = 310		Church
+
+
 
 !! scheduled weekday events.
 
-if week <= 7:
-    if (hour > 5 and hour < 7) or (hour = 12 or hour = 13) or hour = 18:
-        $locat['elene'] = 'kitchen'
-    end
-    if day ! 7 and hour = 13:
-        $locat['elene'] = 'sauna'
-    end
-    if (hour >= 14 and  hour <= 17) or (hour >= 19 and hour <= 20):
-        $locat['elene'] = 'lounge'
-    end
-    if hour >= 21 or hour  <= 5:
-        $locat['elene'] = 'bed'
-    end
+if $ARGS[0] = 'cikl':
+	locat['A31_rand'] = rand(0, 839)
+end
+
+if $ARGS[0] = '':
+	locat['A31_prev'] = locat['A31']
+	gs 'gs_elene_schedule', 'update_locat'
 end
-if day <= 3 and (hour >= 8 and hour <= 11):
-    loc_switch = rand(0,1)
-    if loc_switch = 0 and sunWeather = 1:
-        $locat['elene'] = 'garden'
-    else
-        $locat['elene'] = 'lounge'
-    end
-    killvar 'loc_switch'
+
+if $ARGS[0] = 'update_locat':
+	locat['A31'] = 0
+
+	gs 'gs_elene_schedule', 'get_base_schedule'
+
+	if SunWeather = 0:
+		if locat['A31'] = 200: locat['A31'] = 110
+	end
+
+	gs 'gp_elene_schedule', 'get_random_schedule'
 end
-if week = 6 or week = 7:
-    if day = 6 and (hour = 19 or hour = 20):
-        $locat['elene'] = 'church'
-    end
-    if  day = 7 and (hour >= 9 or hour <= 11):
-        $locat['elene'] = 'church'
-    end
-    if day =  7 and (hour  = 13 or hour = 14):
-        $locat['elene'] = 'kitchen'
-    end
+
+if $ARGS[0] = 'get_base_schedule':
+	if hour <= 5:
+		locat['A31'] = 100
+	elseif hour = 6:
+		locat['A31'] = 120
+	elseif hour = 7:
+		locat['A31'] = 110
+	elseif hour = 8:
+		if week <= 3:
+			locat['A31'] = 0
+		elseif week => 5:
+			locat['A31'] = 300
+		else
+			locat['A31'] = 110
+		end
+	elseif hour <= 11:
+		if week <= 3:
+			locat['A31'] = 0
+		elseif week = 5 or week = 6:
+			locat['A31'] = 300
+		elseif week = 7:
+			locat['A31'] = 310
+		else
+			locat['A31'] = 110
+		end
+	elseif hour = 12:
+		locat['A31'] = 120
+	elseif hour = 13:
+		if week = 7:
+			locat['A31'] = 120
+		else
+			locat['A31'] = 210
+		end
+	elseif hour = 14:
+		if week = 7:
+			locat['A31'] = 120
+		else
+			locat['A31'] = 110
+		end
+	elseif hour <= 17:
+		locat['A31'] = 110
+	elseif hour = 18:
+		locat['A31'] = 120
+	elseif hour <= 20:
+		if week = 6:
+			locat['A31'] = 310
+		else
+			locat['A31'] = 110
+		end
+	else
+		locat['A31'] = 100
+	end
 end
 
-if (day = 5 or day = 6) and (hour >= 8 or hour <= 11):
-    $locat['elene'] = 'village'
-elseif day = 7 and hour = 8:
-    $locat['elene'] = 'village'
+
+
+if $ARGS[0] = 'get_random_schedule':
+	if locat['A31'] = 0:
+		if hour / 2 mod 2 = 0:
+			if locat['A31_rand'] mod 2 = 0:
+				locat['A31'] = 110
+			else
+				locat['A31'] = 200
+			end
+		else
+			if locat['A31_rand'] / 2 mod 2 = 0:
+				locat['A31'] = 110
+			else
+				locat['A31'] = 200
+			end
+		end
+	end
+
+	if locat['A31'] = 110:
+		if hour <= 8:
+			temp_subloc = locat['A31_rand'] / 4 mod 4
+		elseif hour <= 10:
+			temp_subloc = locat['A31_rand'] / 16 mod 4
+		elseif hour <= 12:
+			temp_subloc = locat['A31_rand'] / 12 mod 4
+		elseif hour <= 14:
+			temp_subloc = locat['A31_rand'] / 48 mod 4
+		elseif hour <= 16:
+			temp_subloc = locat['A31_rand'] / 20 mod 4
+		elseif hour <= 18:
+			temp_subloc = locat['A31_rand'] / 80 mod 4
+		elseif hour <= 20:
+			temp_subloc = locat['A31_rand'] / 28 mod 4
+		end
+		locat['A31'] = 111 + temp_subloc
+		killvar 'temp_subloc'
+	end
 end
 
-!! Debug failsafe if npc has not been set a location.
 
-if $locat['elene'] = '':
-    $locat['elene'] = 'Unknown'
+if $ARGS[0] = 'getLocation':
+	gs 'gp_elene_schedule', 'update_locat'
+
+	if locat['A31'] / 10 = 10:
+		$npcLocation['A31'] = 'Your grandmother is in her bedroom'
+
+	elseif locat['A31'] / 10 = 11:
+		$npcLocation['A31'] = 'Your grandmother is in her livingroom'
+	elseif locat['A31'] / 10 = 12:
+		$npcLocation['A31'] = 'Your grandmother is in her kitcher'
+
+	elseif locat['A31'] / 10 = 20:
+		$npcLocation['A31'] = 'Your grandmother is in her garden'
+	elseif locat['A31'] / 10 = 21:
+		$npcLocation['A31'] = 'Your grandmother is bathing in her sauna'
+
+	elseif locat['A31'] / 10 = 30:
+		$npcLocation['A31'] = 'Your grandmother is out and about in Gadukino'
+	elseif locat['A31'] / 10 = 31:
+		$npcLocation['A31'] = 'Your grandmother is at her church'
+
+	end
 end
---- gp_elene_schedule ---------------------------------
+
+
+--- gp_elene_schedule ---------------------------------

+ 854 - 0
locations/gp_zlatek.qsrc

@@ -0,0 +1,854 @@
+# gp_zlatek
+
+
+
+if $ARGS[0] = 'talk':
+	*clr & cla
+	menu_off = 1
+	minut += 2
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa.jpg"></center>'
+	'Your grandfather is a grumpy old man who is always complaining about the village elders and how they have neglected the village to barely being fit to live in. He can walk but requires a cane. So he doesn''t leave the house anymore unless he really has to.'
+	if $clothingworntype = 'nude':
+		'Grandpa looks shocked, but it doesn''t stop him from having a good look at you.'
+		'"My God, <<$pcs_nickname>>! Are you trying to give me a heart attack? Go and put some clothes on!"'
+
+		act 'Maybe you should get dressed before talking to him': gt 'gad_gphouse', $locat['zlatek']
+		exit
+	end
+
+	act 'Leave him alone': gt $loc, $loc_arg
+
+	if grigory_flower > 0 and grigory_flower < 10: act 'Talk to him about the flowers': gt 'grigory', 'flower3'
+
+	if grandpaQW['chore_gather_mushrooms'] = 1:
+		'You promised to bring grandpa <<grandpaQW[''chore_mushroom_quantity'']>> kg of mushrooms.'
+	elseif grandpaQW['chore_gather_berries'] = 1:
+		'You promised to bring grandpa <<grandpaQW[''chore_berry_quantity'']>> kg of berries.'
+	elseif grandpaQW['chore_gather_both'] = 1:
+		'You promised to bring grandpa <<grandpaQW[''chore_mushroom_quantity'']>> kg mushrooms and <<grandpaQW[''chore_berry_quantity'']>> kg of berries.'
+	end
+
+
+	gs 'gp_zlatek', 'set_report_chores_acts'
+	gs 'gp_zlatek', 'get_random_chore_act'
+	gs 'gp_zlatek', 'set_talk_acts'
+end
+
+
+
+
+
+
+	!!===========================================================!!
+	!!                                                           !!
+	!!                          EVENTS                           !!
+	!!                                                           !!
+	!!===========================================================!!
+
+
+if $ARGS[0] = 'get_random_chore_act':
+	if grandpaQW['last_day_helped'] ! daystart:
+		act 'Offer to help':
+			menu_off = 1
+			grandpaQW['last_day_helped'] = daystart
+			frost = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'You walk up to your grandfather and ask if he needs any help. Grandpa thinks for a moment and says:'
+
+			if month <= 4 or month >= 10:
+				grandpaQW['chore_type'] = rand(0,5)
+			elseif month = 5:
+				grandpaQW['chore_type'] = rand(3,8)
+			elseif month >= 6 and month <= 9:
+				grandpaQW['chore_type'] = rand(3,14)
+			end
+
+			if grandpaQW['chore_type'] = 0:
+				gt 'gp_zlatek', 'chore_fetch_firewood'
+			elseif grandpaQW['chore_type'] = 1:
+				gt 'gp_zlatek', 'chore_feed_horse'
+			elseif grandpaQW['chore_type'] = 2:
+				gt 'gp_zlatek', 'chore_feed_cow'
+			elseif grandpaQW['chore_type'] = 3:
+				gt 'gp_zlatek', 'chore_clean_yard'
+			elseif grandpaQW['chore_type'] = 4:
+				gt 'gp_zlatek', 'chore_brush_horse'
+			elseif grandpaQW['chore_type'] = 5:
+				gt 'gp_zlatek', 'chore_feed_boar'
+			elseif grandpaQW['chore_type'] = 6 and hour >= 6 and hour < 9:
+				gt 'gp_zlatek', 'chore_lead_horse_to_field'
+			elseif grandpaQW['chore_type'] = 7 and hour >= 6 and hour < 9:
+				gt 'gp_zlatek', 'chore_lead_cow_to_field'
+			elseif grandpaQW['chore_type'] = 8 and hour >= 6 and hour < 9:
+				gt 'gp_zlatek', 'chore_herd_cattle'
+			elseif grandpaQW['chore_type'] = 9 and temper >= 15 and sunWeather = 1 and week > 5 and func('changingroom', 'count_swim_item') > 0:
+				gt 'gp_zlatek', 'chore_bathe_horse'
+			elseif grandpaQW['chore_type'] = 10 and boletus_stored <= 18:
+				gt 'gp_zlatek', 'chore_pickforest_mushrooms'
+			elseif grandpaQW['chore_type'] = 11 and bilberry_stored <= 18:
+				gt 'gp_zlatek', 'chore_pickforest_berries'
+			elseif grandpaQW['chore_type'] = 12 and ((boletus_stored + bilberry_stored) <= 16):
+				gt 'gp_zlatek', 'chore_pickforest_both'
+			elseif grandpaQW['chore_type'] = 13 and temper >= 15 and sunWeather = 1 and hour >= 6 and hour < 9:
+				gt 'gp_zlatek', 'chore_bale_hay'
+			end
+
+			if hour >= 9:
+				randmsg = rand(0, 5)
+				if randmsg = 0:
+					'"You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
+				elseif randmsg = 1:
+					'"You can rest today child, there is nothing to do."'
+				elseif randmsg = 2:
+					'"You can rest today <<$pcs_nickname>>, there is nothing to do."'
+				elseif randmsg = 3:
+					'"There''s no work today <<$pcs_nickname>>, go and rest up."'
+				elseif randmsg = 4:
+					'"You can rest today my dear granddaughter."'
+				else
+					'"You can take the day off to rest up."'
+				end
+			else
+				randmsg = rand(0, 1)
+				if randmsg = 0:
+					'"You don''t need to help out today, <<$pcs_nickname>>."'
+				else
+					'"You can take the day off."'
+				end
+			end
+			killvar 'randmsg'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'chore_fetch_firewood':
+	grandpaQW['chore_fetch_firewood'] = 1
+
+	'"<<$pcs_nickname>>, could you run out to the barn and bring firewood for the stove?"'
+	act 'Tell him you will go get some in just a bit': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to fetch firewood (0:20)':
+		*clr & cla
+		if month >= 4 and month <= 10:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood_winter.jpg"></center>'
+		end
+		'You put on warm clothes and run to the barn to collect firewood.'
+		'"I''ve brought some firewood, grandfather," you said to your grandfather.'
+		'"You are very quick, <<$pcs_nickname>>," he replies with a smile. "That''s today''s youth for ya. There is no more work today."'
+		grandpaQW['chore_fetch_firewood'] = 0
+		minut += 20
+		grandmaQW['help_amount'] += 1
+		gs 'stat'
+
+		act 'Continue': gt $loc, $loc_arg
+	end
+end
+
+if $ARGS[0] = 'chore_feed_horse':
+	grandpaQW['chore_feed_horse'] = 1
+
+	'"<<$pcs_nickname>>, I need you to go to the barn and feed Desperado."'
+	act 'Tell him that you will get to it in a little bit': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		if month >= 4 and month <= 10:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
+		end
+		'You walk over to the barn where Desperado is kept.'
+		minut += 10
+		gs'stat'
+
+		act 'Continue': gt 'gad_gpbarn', 'horse'
+	end
+end
+
+if $ARGS[0] = 'chore_feed_cow':
+	grandpaQW['chore_feed_cow'] = 1
+
+	'"<<$pcs_nickname>>, go to the barn and feed the cow."'
+	act 'Tell him that you will do it in a little while': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		if month >= 4 and month <= 10:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
+		end
+		'You walk over to the barn where the cows are kept.'
+		minut += 10
+		gs'stat'
+
+		act 'Continue': gt 'gad_gpbarn', 'cow'
+	end
+end
+
+if $ARGS[0] = 'chore_clean_yard':
+	grandpaQW['chore_clean_yard'] = 1
+
+	'"Of course, <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
+	act 'Tell him that you''ll do it in a minute': gt 'gp_zlatek', 'talk'
+	act 'Agree and go clean up the yard (1:00)':
+		*clr & cla
+		if month >= 4 and month <= 10:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
+			'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.'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
+			'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.'
+		end
+		minut += 60
+		grandpaQW['chore_clean_yard'] = 2
+		if month >= 4 and month <= 10:
+			fat -= rand(1,3)
+		else
+			gs 'exp_gain', 'stren', 1
+			fat -= rand(1,5)
+		end
+		gs'stat'
+
+		act 'Continue': gt 'gad_gpyard'
+		act 'Return back to your grandfather': minut += 1 & gt 'gp_zlatek', 'talk'
+	end
+end
+
+if $ARGS[0] = 'chore_feed_boar':
+	grandpaQW['chore_feed_boar'] = 1
+
+	'"<<$pcs_nickname>>, could you go to the barn and feed the hog?"'
+	act 'Tell him you will get to it soon':gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		if month >= 4 and month <= 10:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
+		end
+		'You walk over to the barn where the hogs are kept.'
+		minut += 10
+		gs'stat'
+
+		act 'Continue': gt 'gad_gpbarn', 'boar'
+	end
+end
+
+if $ARGS[0] = 'chore_bathe_horse':
+	grandpaQW['chore_bathe_horse'] = 1
+
+	'"It''s good weather today. Take Desperado to the river and give him a bath."'
+	act 'Tell him you will do it in a little while': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		'You walk over to the barn where Desperado is kept.'
+		minut += 10
+		gs'stat'
+
+		act 'Continue': gt 'gad_gpbarn', 'horse'
+	end
+end
+
+if $ARGS[0] = 'chore_brush_horse':
+	grandpaQW['chore_brush_horse'] = 1
+
+	'"Of course, <<$pcs_nickname>>, I need your help to groom Desperado."'
+	act 'Tell him you will do it in a bit': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		if month >= 4 and month <= 10:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
+		end
+		'You walk over to the barn where Desperado is kept.'
+		minut += 10
+		gs'stat'
+
+		act 'Continue': gt 'gad_gpbarn', 'horse'
+	end
+end
+
+if $ARGS[0] = 'chore_lead_horse_to_field':
+	grandpaQW['chore_lead_horse_to_field'] = 1
+
+	'"<<$pcs_nickname>>, take Desperado to the field. My legs hurt, so I need to rest for a bit. I''ll retrieve the horse in the evening."'
+	act 'Tell him you will do it soon': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		'You walk over to the barn where Desperado is kept.'
+		minut += 10
+		gs'stat'
+
+		act 'Continue': gt 'gad_gpbarn','horse'
+	end
+end
+
+if $ARGS[0] = 'chore_herd_cattle':
+	grandpaQW['chore_herd_cattle'] = 1
+
+	if grandpaQW['chore_herd_cattle_experience'] = 0:
+		'"<<$pcs_nickname>>, we need to let the cows graze on the field today. So grab something to eat and lead the herd to the field. I''ll meet you there."'
+	else
+		'"<<$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."'
+	end
+
+	act 'Tell him you will meet him there': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the field (0:40)':
+		*clr & cla
+		if grandpaQW['chore_herd_cattle_experience'] = 0:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+			'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.'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
+			'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.'
+		end
+		pcs_mood += 20
+		pcs_health += 10
+		minut += 40
+		if mc_inventory['food_water'] = 0: mc_inventory['food_water'] = 1
+		if mc_inventory['food_sandwich'] = 0: mc_inventory['food_sandwich'] = 1
+		gs 'stat'
+
+		act 'Continue': gt'gad_field', 'cow'
+	end
+end
+
+if $ARGS[0] = 'chore_lead_cow_to_field':
+	grandpaQW['chore_lead_cow_to_field'] = 1
+
+	'"I have sore feet today, <<$pcs_nickname>>. My dear granddaughter, could you lead the cow to the field and tell the herders to drive her home at the end of the day?"'
+	act 'Tell him you will soon': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the barn (0:10)':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+		'You walk over to the barn where the cows are kept.'
+		minut += 10
+		gs 'stat'
+
+		act 'Continue': gt 'gad_gpbarn', 'cow'
+	end
+end
+
+if $ARGS[0] = 'chore_pickforest_mushrooms':
+	grandpaQW['chore_gather_mushrooms'] = 1
+	grandpaQW['chore_mushroom_quantity'] = rand(1,2)
+
+	'"<<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
+	'"How much should I pick, grandpa?" you ask.'
+	'"<<grandpaQW[''chore_mushroom_quantity'']>> kilos will be enough," grandfather replies. "Be careful so you don''t get lost."'
+
+	act 'Tell him you will go get some soon': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the forest (1:00)':
+		*clr & cla
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
+		end
+		'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
+		minut += 60
+		act 'Continue': gt 'gad_forest', 'forest_edge'
+	end
+end
+
+if $ARGS[0] = 'chore_pickforest_berries':
+	grandpaQW['chore_gather_berries'] = 1
+	grandpaQW['chore_berry_quantity'] = rand(1,2)
+
+	'"<<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
+	'"How much should I pick, grandpa?" you ask.'
+	'"<<grandpaQW[''chore_berry_quantity'']>> kilos will be enough," grandfather replies. "Just be careful so you don''t get lost."'
+
+	act 'Tell him you will go get some soon': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the forest (1:00)':
+		*clr & cla
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
+		end
+		'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
+		minut += 60
+		act 'Continue': gt 'gad_forest', 'forest_edge'
+	end
+end
+
+if $ARGS[0] = 'chore_pickforest_both':
+	grandpaQW['chore_gather_both'] = 1
+	grandpaQW['chore_mushroom_quantity'] = rand(1,2)
+	grandpaQW['chore_berry_quantity'] = rand(1,2)
+
+	'"<<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and I am craving some fresh berries."'
+	'"How much should I pick, grandpa?"'
+	'"<<grandpaQW[''chore_mushroom_quantity'']>> kilos of mushrooms and <<grandpaQW[''chore_berry_quantity'']>> kilos of berries will be enough," grandfather replies. "Just don''t get lost."'
+
+	act 'Tell him you will go get some soon': gt 'gp_zlatek', 'talk'
+	act 'Agree and go to the forest (1:00)':
+		*clr & cla
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
+		end
+		'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
+		minut += 60
+		act 'Continue': gt 'gad_forest', 'forest_edge'
+	end
+end
+
+if $ARGS[0] = 'chore_bale_hay':
+	grandpaQW['chore_bale_hay'] = 1
+
+	'"<<$pcs_nickname>>, we need to help with baling hay today, so we have to go to the field to meet the others."'
+	'"Okay, grandfather," you replied.'
+	act 'Tell him you will head over there soon': gt 'gp_zlatek', 'talk'
+	act 'Grab a rake and head to the field (0:40)':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_gadfield.jpg"></center>'
+		'With the rake in your hand, you meet up with the other local residents at the field.'
+		minut += 40
+		gs 'stat'
+
+		act 'Continue': gt'gad_field', 'field'
+	end
+end
+
+
+
+	!!-------------------- TURNING IN CHORES START --------------------!!
+
+
+if $ARGS[0] = 'set_report_chores_acts':
+	gs 'gp_zlatek', 'set_report_fetched_firewood_act'
+	gs 'gp_zlatek', 'set_report_fed_horse_act'
+	gs 'gp_zlatek', 'set_report_fed_cow_act'
+	gs 'gp_zlatek', 'set_report_cleaned_yard_act'
+	gs 'gp_zlatek', 'set_report_brushed_horse_act'
+	gs 'gp_zlatek', 'set_report_fed_boar_act'
+	gs 'gp_zlatek', 'set_report_led_horse_field_act'
+	gs 'gp_zlatek', 'set_report_led_cow_field_act'
+	gs 'gp_zlatek', 'set_report_washed_horse_act'
+	gs 'gp_zlatek', 'set_report_gathered_mushrooms_act'
+	gs 'gp_zlatek', 'set_report_gathered_berries_act'
+	gs 'gp_zlatek', 'set_report_gathered_both_act'
+	gs 'gp_zlatek', 'set_report_baled_hay_act'
+end
+
+if $ARGS[0] = 'set_report_fetched_firewood_act':
+	if grandpaQW['chore_fetch_firewood'] = 2:
+		act 'Tell him you got the firewood':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_fetch_firewood'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"I''ve brought in some firewood, Grandpa," you say to your grandfather.'
+			'"Thank you very much, <<$pcs_nickname>>," he replies with a smile. "Just set it down over there."'
+			'You put down the heavy wood gratefully. "Is there anything else you need?"'
+			'"No, that is all I have for you today," he says.'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_fed_horse_act':
+	if grandpaQW['chore_feed_horse'] = 2:
+		act 'Tell him you fed Desperado':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_feed_horse'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"I fed the horse, Grandpa."'
+			'"Thank you, <<$pcs_nickname>>," he says. "It is imperative to make sure a horse is well fed. They are hard workers and deserve their meals."'
+			'You smile in agreement. "I am sure Desperado is a very hard worker."'
+			'"He may not be the young stallion he once was," your grandfather says, "but he is a trusted friend."'
+			'He obviously cares a great deal about his horse.'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_fed_cow_act':
+	if grandpaQW['chore_feed_cow'] = 2:
+		act 'Tell him you fed Dawn':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_feed_cow'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'You tell your grandfather, "I fed Dawn her hay, Grandpa."'
+			'"Excellent, <<$pcs_nickname>>," he says. "I presume she acted like we were starving her to death?"'
+			'"Well, she was definitely excited," you say with a laugh.'
+			'"She always is when it comes to eating," he says.'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_cleaned_yard_act':
+	if grandpaQW['chore_clean_yard'] = 2:
+		act 'Tell him you cleaned up the yard':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_clean_yard'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"I finished cleaning the yard, Grandpa," you say as you stretch your sore arms.'
+			'"Very good," he says. "It is more work than it seems, isn''t it?"'
+			'"Yes sir, it is," you agree. "Is there anything else you need me to do?"'
+			'"No, that is all for today, <<$pcs_nickname>>."'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_brushed_horse_act':
+	if grandpaQW['chore_brush_horse'] = 2:
+		act 'Tell him you finished grooming Desperado':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_brush_horse'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"I brushed the horse, Grandpa," you tell your grandfather.'
+			'"You scrubbed him down with the curry brush?" he asks.'
+			'"Yes sir, I did," you say.'
+			'"Even his belly?"'
+			'"Yes, even his belly."'
+			'"Did you wash his face and comb his mane and tail?"'
+			'"Ugh, yes, Grandpa, I did everything just like you showed me when I was a kid."'
+			'"Don''t sass me, <<$pcs_firstname>>," your grandfather says with a scowl. "Properly brushing a horse is very important for their health."'
+			'The rebuke stings a little. "Sorry, Grandpa."'
+			'His face softens when he sees he upset you. "...no, child, I''m sorry. You did me a favor, and here I am berating you for it. Thank you for brushing the horse, <<$pcs_nickname>>."'
+			'"It''s okay, Grandpa. I know Desperado is important to you," you say.'
+			'He smiles and rubs your shoulder. "Thank you again. You may rest now. There is nothing else to do today."'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_fed_boar_act':
+	if grandpaQW['chore_feed_boar'] = 2:
+		act 'Tell him you fed Nickle':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_feed_boar'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'You walk up to your grandfather and tell him, "I fed the pig, Grandpa."'
+			'"Thank you, <<$pcs_nickname>>," he says.'
+			'"You''re welcome! Is there anything else you need?"'
+			'"No, you can take the rest of the day off, granddaughter."'
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_led_horse_field_act':
+	if grandpaQW['chore_lead_horse_to_field'] = 2:
+		act 'Tell him you took Desperado to the field':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_lead_horse_to_field'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"Hey, Grandpa, I took Desperado out to the field."'
+			'"Good, good," he says. "Horses need the freedom to run."'
+			'You nod. "He seemed pretty happy to be able to run around."'
+			'Your grandfather smiles at that. "Thank you, <<$pcs_nickname>>. You can rest for now."'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_led_cow_field_act':
+	if grandpaQW['chore_lead_cow_to_field'] = 2:
+		act 'Tell him you took Dawn to the field':
+			*clr & cla
+			grandmaQW['help_amount'] += 1
+			minut += 5
+			grandpaQW['chore_lead_cow_to_field'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"Hi, Grandpa!" you say. "I took Dawn out to the field."'
+			'"Were the others there?" he asks.'
+			'You nod. "Yes, sir. I asked them to drive her home later - they seemed fine with that."'
+			'"Yes, here in the country, we all must help one another. Soon it will be our turn to watch the cattle."'
+			'"All of them? For the whole village? Just us?" you ask incredulously.'
+			'"No child, there will be a few others with us. But don''t look so surprised - it does not take many people to herd cows."'
+			'You think of the stories you have heard of a few herders driving thousands of cattle. "Hmm, I guess that''s true..."'
+			'Your grandfather smiles and ruffles your hair. "But that is not a problem for today. Go and take the rest of the day off."'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_washed_horse_act':
+	if grandpaQW['chore_bathe_horse'] = 2:
+		act 'Tell him you bathed Desperado':
+			*clr & cla
+			grandmaQW['help_amount'] += 2
+			minut += 5
+			grandpaQW['chore_bathe_horse'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'You walk up to your grandfather and tell him, "I gave Desperado a bath in the river, Grandpa."'
+			'"Thank you, <<$pcs_nickname>>," he says. "Grooming him is all well and good, but sometimes it''s not enough."'
+			'"You''re welcome! It was actually a lot of fun. Is there anything else you need?"'
+			'"No, you can take the rest of the day off, granddaughter."'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_gathered_mushrooms_act':
+	if grandpaQW['chore_gather_mushrooms'] = 2 and boletus >= grandpaQW['chore_mushroom_quantity'] and hour >= 6 and hour < 20:
+		if grandpaQW['disappointment'] = 2:
+			act 'Give him the mushrooms he asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 1
+				boletus -= grandpaQW['chore_mushroom_quantity']
+				boletus_stored += grandpaQW['chore_mushroom_quantity']
+				grandpaQW['disappointment'] = 0
+				minut += 5
+				grandpaQW['chore_mushroom_quantity'] = 0
+				grandpaQW['chore_gather_mushrooms'] = 0
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+				'You walk up to Grandpa with your basket.'
+				'"Grandpa, here are the mushrooms!"'
+				'"Thank you, <<$pcs_nickname>>, you''ve made an old man happy," your grandfather replies with a smile. "The mushrooms are in a part of the forest that is difficult to reach, so no wonder it took you so long."'
+				'"I can still go and gather more mushrooms if you want?"'
+				'"There''s no need <<$pcs_nickname>>," said your grandfather. "But if I need some help, I''ll let you know. They will have to go down in the root cellar until your grandmother is ready to can them."'
+				'You kiss your grandfather on the cheek and get on with your day.'
+
+				act 'Continue': grandpaQW['chore_mushroom_quantity'] = 0 & gt $loc, $loc_arg
+			end
+		else
+			act 'Give him the mushrooms he asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 3
+				boletus -= grandpaQW['chore_mushroom_quantity']
+				boletus_stored += grandpaQW['chore_mushroom_quantity']
+				minut += 5
+				grandpaQW['chore_gather_mushrooms'] = 0
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+				'You walk up to Grandpa with your basket.'
+				'"Grandpa, here are the mushrooms!"'
+				'"Thank you, <<$pcs_nickname>>, you''ve made an old man very happy," your grandfather replies with a smile. "The mushrooms are in a part of the forest that is difficult to reach."'
+				'"I can still go and gather more mushrooms if you want?"'
+				'"There''s no need, <<$pcs_nickname>>," said your grandfather. "But if I need some help, I''ll let you know. They will have to go down in the root cellar until your grandmother is ready to can them."'
+				'You kiss your grandfather on the cheek and get on with your day.'
+
+				act 'Continue': grandpaQW['chore_mushroom_quantity'] = 0 & gt $loc, $loc_arg
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_gathered_berries_act':
+	if grandpaQW['chore_gather_berries'] = 2 and bilberry >= grandpaQW['chore_berry_quantity'] and hour >= 6 and hour < 20:
+		if grandpaQW['disappointment'] = 2:
+			act 'Give him the berries he asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 1
+				bilberry -= grandpaQW['chore_berry_quantity']
+				bilberry_stored += grandpaQW['chore_berry_quantity']
+				grandpaQW['disappointment'] = 0
+				minut += 5
+				grandpaQW['chore_berry_quantity'] = 0
+				grandpaQW['chore_gather_berries'] = 0
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+				'You walk up to Grandpa with your basket.'
+				'"Grandpa, here are the berries!"'
+				'"Oh, thank you, I thought I asked for these yesterday," Grandpa replied. "It''s hard to keep track of things as you get older, just as it is for your grandmother to gather the berries, and she needs them so she can make jam for the winter."'
+				'"If you need some more berries, I''ll be glad to go out and gather more."'
+				'There''s no need, <<$pcs_nickname>>," your grandfather said. "But if your grandma needs some more berries, I''ll let you know. They will have to go down in the root cellar until your grandmother is ready to can them."'
+				'You kiss your grandfather on the cheek and go on with your business.'
+
+				act 'Continue': grandpaQW['chore_berry_quantity'] = 0 & gt $loc, $loc_arg
+			end
+		else
+			act 'Give him the berries he asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 3
+				bilberry -= grandpaQW['chore_berry_quantity']
+				bilberry_stored += grandpaQW['chore_berry_quantity']
+				minut += 5
+				grandpaQW['chore_gather_berries'] = 0
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+				'You walk up to Grandpa with your basket.'
+				'"Grandpa, here are the berries!"'
+				'"Oh, thank you, nicely done," Grandpa replied. "It''s hard for your grandmother to gather the berries, and she needs them so she can make jam for the winter."'
+				'"If you need some more berries, I''ll be glad to go out and gather more."'
+				'"There''s no need <<$pcs_nickname>>," your grandfather said. "But if your grandma needs some more berries, I''ll let you know. They will have to go down in the root cellar until your grandmother is ready to can them."'
+				'You kiss your grandfather on the cheek and go on with your business.'
+
+				act 'Continue': grandpaQW['chore_berry_quantity'] = 0 & gt $loc, $loc_arg
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_gathered_both_act':
+	if grandpaQW['chore_gather_both'] = 2 and boletus >= grandpaQW['chore_mushroom_quantity'] and bilberry >= grandpaQW['chore_berry_quantity'] and hour >= 6 and hour < 20:
+		if grandpaQW['disappointment'] = 2:
+			act 'Give him the mushrooms and berries he asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 3
+				boletus -= grandpaQW['chore_mushroom_quantity']
+				bilberry -= grandpaQW['chore_berry_quantity']
+				boletus_stored += grandpaQW['chore_mushroom_quantity']
+				bilberry_stored += grandpaQW['chore_berry_quantity']
+				grandpaQW['disappointment'] = 0
+				minut += 5
+				grandpaQW['chore_berry_quantity'] = 0
+				grandpaQW['chore_mushroom_quantity'] = 0
+				grandpaQW['chore_gather_both'] = 0
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+				'You walk up to Grandpa with your basket.'
+				'"Grandpa, here are the mushrooms and berries!"'
+				'"Oh, thank you, <<$pcs_nickname>>, better late than never," your grandfather replied.'
+				'"If you want, I can go out for another run."'
+				'"You don''t need to do that, <<$pcs_nickname>>," your grandfather said. "But I''ll let you know if something comes up. They will have to go down in the root cellar until your grandmother is ready to can them."'
+				'You give him a smooch on the cheek and go on with your day.'
+
+				act 'Continue': grandpaQW['chore_mushroom_quantity'] = 0 & grandpaQW['chore_berry_quantity'] = 0 & gt $loc, $loc_arg
+			end
+		else
+			act 'Give him the mushrooms and berries he asked for':
+				*clr & cla
+				grandmaQW['help_amount'] += 3
+				boletus -= grandpaQW['chore_mushroom_quantity']
+				bilberry -= grandpaQW['chore_berry_quantity']
+				boletus_stored += grandpaQW['chore_mushroom_quantity']
+				bilberry_stored += grandpaQW['chore_berry_quantity']
+				minut += 5
+				grandpaQW['chore_gather_both'] = 0
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+				'You walk up to Grandpa with your basket.'
+				'"Grandpa, here are the mushrooms and berries!"'
+				'"Oh, thank you, <<$pcs_nickname>>," your grandfather replied.'
+				'"If you want, I can go out for another run."'
+				'"You don''t need to do that, <<$pcs_nickname>>," your grandfather said. "But I''ll let you know if something comes up. They will have to go down in the root cellar until your grandmother is ready to can them."'
+				'You give him a smooch on the cheek and go on with your day.'
+
+				act 'Continue': grandpaQW['chore_mushroom_quantity'] = 0 & grandpaQW['chore_berry_quantity'] = 0 & gt $loc, $loc_arg
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'set_report_baled_hay_act':
+	if grandpaQW['chore_bale_hay'] = 2:
+		act 'Tell him you helped the townspeople bale hay':
+			*clr & cla
+			grandmaQW['help_amount'] += 3
+			minut += 5
+			grandpaQW['chore_bale_hay'] = 0
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"I spent all day helping with the hay, Grandpa," you tell him, stretching your sore muscles.'
+			'He smiles proudly at you and says, "Yes, I was there too, <<$pcs_nickname>>. I saw you working hard."'
+			'"That was a lot of work!" you exclaim. "I''m completely exhausted."'
+			'"Yes, yes it is," he says. "I have worn myself out. I won''t be able to do it much longer, but you are still young and strong. I am very proud that my granddaughter is such a hard worker."'
+			'Maybe it''s just the exhaustion, but your eyes tear up slightly at that. Your grandfather is usually pretty sparing with his praise.'
+			'"Thank you, Grandpa," you say, giving him a tight hug, which he returns with surprising strength for his age.'
+			'After a few moments, he lets go and tells you, "Go and get some rest, child. You have earned it."'
+
+			act 'Continue': gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+	!!-------------------- TURNING IN CHORES END --------------------!!
+
+
+if $ARGS[0] = 'set_talk_acts':
+	if grandpaQW['talked_about_forest'] = 0:
+		act 'Ask about the forest (0:10)':
+			*clr & cla
+			grandpaQW['talked_about_forest'] = 1
+			minut += 10
+			pcs_mood += 5
+			goforest += 1
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'"Listen carefully, <<$pcs_nickname>>. You want to explore the forest, and that''s great. But be sure of your surroundings. Without having any knowledge of the forest, you may easily get lost. Don''t explore too deep in the forest because mushrooms and berries can be found at the forest''s edge. If you choose to explore the forest, you''ll find a swamp in the middle of the forest. You can find mushrooms and berries there too... Going into the forest at night is not recommended. Wild boars may attack, and you might end up really hurt."'
+			'"If you manage to get lost and can''t find your way out of the forest before it gets dark, then light a fire and sit still until morning. The beasts in the forest are afraid of the fire, so they won''t approach you."'
+			'"There''s one more thing... While you''re in the woods, avoid dressing yourself up in fancy clothes. You might damage them. It''s better to dress in more comfortable clothes instead..."'
+			'"Well, I think that''s everything, <<$pcs_nickname>>, run along now and remember what I''ve told you."'
+
+			act 'Continue':gt 'gp_zlatek', 'talk'
+		end
+	end
+
+	if 24 * (daystart - grandpaQW['last_day_talked']) + (hour - grandpaQW['last_hour_talked']) >= 3:
+		act 'Chat with your grandfather (0:10)':
+			*clr & cla
+			grandpaQW['last_hour_talked'] = hour
+			grandpaQW['last_day_talked'] = daystart
+			minut += 10
+			pcs_mood += RAND(5,10)
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
+			'Your grandfather stops complaining and smiles at you. He loves telling stories. He has lived a rich and eventful life, and you enjoy listening to his stories and talking to him. He mostly reminisces about his past and reflects on his earlier life.'
+
+			act 'Continue':gt 'gp_zlatek', 'talk'
+		end
+	end
+end
+
+
+
+
+--- gp_zlatek ---------------------------------------------

+ 209 - 47
locations/gp_zlatek_schedule.qsrc

@@ -5,58 +5,220 @@
 !!
 !! Sveta''s Grandfather in Gad npc id A32
 !!
-$locat['zlatek'] = ''
-
-!! scheduled weekday events.
-
-if week <= 7:
-    if (hour > 5 and hour < 7) or (hour = 12 or hour = 13) or hour = 18:
-        $locat['zlatek'] = 'kitchen'
-    end
-    if day ! 7 and hour = 13:
-        $locat['zlatek'] = 'sauna'
-    end
-    if (hour >= 14 and  hour <= 17) or (hour >= 19 and hour <= 20):
-        $locat['zlatek'] = 'lounge'
-    end
-    if hour >= 21 or hour  <= 5:
-        $locat['zlatek'] = 'bed'
-    end
+
+	!locat['A32'] tells us where Zlatek is Located
+	!----------------------------------------------
+	!locat['A32'] = 100		Bedroom
+
+	!locat['A32'] = 110		Livingroom
+	!locat['A32'] = 111		Livingroom - Reading a book
+	!locat['A32'] = 112		Livingroom - Watching tv
+
+	!locat['A32'] = 120		Kitchen - Reading
+
+	!locat['A32'] = 200		Garden - gardening
+
+	!locat['A32'] = 210		Sauna - Bathing
+
+	!locat['A32'] = 220		Stables
+
+
+	!locat['A32'] = 300		Village
+
+	!locat['A32'] = 310		Church
+
+	!locat['A32'] = 320		River - Fishing
+
+	!locat['A32'] = 330		Fields
+
+if $ARGS[0] = 'cikl':
+	locat['A32_rand'] = rand(0, 239)
 end
-if day <= 3 and (hour >= 8 and hour <= 11):
-    loc_switch = rand(0,3)
-    if loc_switch = 0 and sunWeather = 1:
-        $locat['zlatek'] = 'garden'
-    elseif loc_switch = 1 and sunWeather = 1:
-        $locat['zlatek'] = 'fishing'
-    elseif loc_switch = 2:
-        $locat['zlatek'] = 'stables'
-    else
-        $locat['zlatek'] = 'lounge'
-    end
-    killvar 'loc_switch'
+
+if $ARGS[0] = '':
+	locat['A32_prev'] = locat['A32']
+	gs 'gp_zlatek_schedule', 'update_locat'
 end
-if week = 6 or week = 7:
-    if day = 6 and (hour = 19 or hour = 20):
-        $locat['zlatek'] = 'church'
-    end
-    if  day = 7 and (hour >= 9 or hour <= 11):
-        $locat['zlatek'] = 'church'
-    end
-    if day =  7 and (hour  = 13 or hour = 14):
-        $locat['zlatek'] = 'kitchen'
-    end
+
+
+if $ARGS[0] = 'update_locat':
+	!! scheduled weekday events.
+	locat['A32'] = 0
+
+	gs 'gp_zlatek_schedule', 'get_base_schedule'
+
+	if SunWeather = 0:
+		if locat['A32'] = 200 or locat['A32'] = 320 or locat['A32'] = 330: locat['A32'] = 110
+	end
+
+	gs 'gp_zlatek_schedule', 'get_random_schedule'
+end
+
+if $ARGS[0] = 'get_base_schedule':
+	if hour <= 5:
+		locat['A32'] = 100
+	elseif hour = 6:
+		locat['A32'] = 120
+	elseif hour = 7:
+		locat['A32'] = 110
+	elseif hour = 8:
+		if day <= 3:
+			locat['A32'] = 0
+		elseif day => 5:
+			locat['A32'] = 330
+		else
+			locat['A32'] = 110
+		end
+	elseif hour = 9:
+		if day <= 3:
+			locat['A32'] = 0
+		elseif day = 5 or day = 6:
+			locat['A32'] = 330
+		elseif day = 7:
+			locat['A32'] = 310
+		else
+			locat['A32'] = 110
+		end
+	elseif hour = 10:
+		if day <= 3:
+			locat['A32'] = 0
+		elseif day = 5 or day = 6:
+			locat['A32'] = 330
+		elseif day = 7:
+			locat['A32'] = 310
+		else
+			locat['A32'] = 110
+		end
+	elseif hour = 11:
+		if day <= 3:
+			locat['A32'] = 0
+		elseif day = 5 or day = 6:
+			locat['A32'] = 330
+		elseif day = 7:
+			locat['A32'] = 310
+		else
+			locat['A32'] = 110
+		end
+	elseif hour = 12:
+		locat['A32'] = 120
+	elseif hour = 13:
+		if day ! 7:
+			locat['A32'] = 210
+		else
+			locat['A32'] = 120
+		end
+	elseif hour = 14:
+		if day ! 7:
+			locat['A32'] = 110
+		else
+			locat['A32'] = 120
+		end
+	elseif hour = 15:
+		locat['A32'] = 110
+	elseif hour = 16:
+		locat['A32'] = 110
+	elseif hour = 17:
+		locat['A32'] = 110
+	elseif hour = 18:
+		locat['A32'] = 120
+	elseif hour = 19:
+		if day = 6:
+			locat['A32'] = 310
+		else
+			locat['A32'] = 110
+		end
+	elseif hour = 20:
+		if day = 6:
+			locat['A32'] = 310
+		else
+			locat['A32'] = 110
+		end
+	else
+		locat['A32'] = 100
+	end
 end
 
-if (day = 5 or day = 6) and (hour >= 8 or hour <= 11):
-    $locat['zlatek'] = 'fields'
-elseif day = 7 and hour = 8:
-    $locat['zlatek'] = 'fields'
+
+if $ARGS[0] = 'get_random_schedule':
+	if locat['A32'] = 0:
+		if hour / 2 mod 2 = 0:
+			if locat['A32_rand'] mod 4 = 0:
+				locat['A32'] = 110
+			elseif locat['A32_rand'] mod 4 = 1:
+				locat['A32'] = 200
+			elseif locat['A32_rand'] mod 4 = 2:
+				locat['A32'] = 220
+			else
+				locat['A32'] = 320
+			end
+		else
+			if locat['A32_rand'] / 4 mod 4 = 0:
+				locat['A32'] = 110
+			elseif locat['A32_rand'] / 4 mod 4 = 1:
+				locat['A32'] = 200
+			elseif locat['A32_rand'] / 4 mod 4 = 2:
+				locat['A32'] = 220
+			else
+				locat['A32'] = 320
+			end
+		end
+	end
+
+	if locat['A32'] = 110:
+		if hour <= 8:
+			temp_subloc = locat['A32_rand'] / 16 mod 2
+		elseif hour <= 10:
+			temp_subloc = locat['A32_rand'] / 32 mod 2
+		elseif hour <= 12:
+			temp_subloc = locat['A32_rand'] / 64 mod 2
+		elseif hour <= 14:
+			temp_subloc = locat['A32_rand'] / 128 mod 2
+		elseif hour <= 16:
+			temp_subloc = locat['A32_rand'] / 48 mod 2
+		elseif hour <= 18:
+			temp_subloc = locat['A32_rand'] / 96 mod 2
+		elseif hour <= 20:
+			temp_subloc = locat['A32_rand'] / 80 mod 2
+		end
+		locat['A32'] = 111 + temp_subloc
+		killvar 'temp_subloc'
+	end
 end
 
-!! Debug failsafe if npc has not been set a location.
 
-if $locat['zlatek'] = '':
-    $locat['zlatek'] = 'Unknown'
+
+if $ARGS[0] = 'getLocation':
+	gs 'gp_zlatek_schedule', 'update_locat'
+
+	if locat['A32'] / 10 = 10:
+		$npcLocation['A32'] = 'Your grandfather is in his bedroom'
+
+	elseif locat['A32'] / 10 = 11:
+		$npcLocation['A32'] = 'Your grandfather is in his livingroom'
+	elseif locat['A32'] / 10 = 12:
+		$npcLocation['A32'] = 'Your grandfather is in his kitcher'
+
+	elseif locat['A31'] / 10 = 20:
+		$npcLocation['A31'] = 'Your grandfather is in his garden'
+	elseif locat['A31'] / 10 = 21:
+		$npcLocation['A31'] = 'Your grandfather is bathing in his sauna'
+	elseif locat['A31'] / 10 = 22:
+		$npcLocation['A31'] = 'Your grandfather is at his stables'
+
+	elseif locat['A31'] / 10 = 30:
+		$npcLocation['A31'] = 'Your grandfather is out and about in Gadukino'
+	elseif locat['A31'] / 10 = 31:
+		$npcLocation['A31'] = 'Your grandfather is at his church'
+	elseif locat['A31'] / 10 = 32:
+		$npcLocation['A31'] = 'Your grandfather is fishing at the river'
+	elseif locat['A31'] / 10 = 33:
+		$npcLocation['A31'] = 'Your grandfather is at the field'
+
+	end
 end
---- gp_zlatek_schedule ---------------------------------
+
+
+
+
+
+--- gp_zlatek_schedule ---------------------------------

+ 0 - 411
locations/grandmahelp.qsrc

@@ -1,411 +0,0 @@
-# grandmahelp
-
-menu_off = 1
-gs 'stat'
-
-frost = 0
-
-'<center><img <<$set_imgh>> src="images/locations/gadukino/village/grandmahelp.jpg"></center>'
-
-'You ask your grandmother if there is anything you could help out with. Your grandmother turns to you and says:'
-
-if $ARGS[0] = 'start':
-	if month <= 4 or month >= 10:
-		grandmaQW['chore_type'] = rand(0,6)
-	elseif month = 5:
-		grandmaQW['chore_type'] = rand(0,9)
-	elseif month >= 6 and month <= 9:
-		grandmaQW['chore_type'] = rand(0,14)
-	end
-
-	if grandmaQW['chore_type'] = 0:
-		gt 'grandmahelp', 'cleanfloor'
-	elseif grandmaQW['chore_type'] = 1:
-		gt 'grandmahelp', 'washclothes'
-	elseif grandmaQW['chore_type'] = 2 and hour < 9 and hour > 20:
-		gt 'grandmahelp', 'milkcows'
-	elseif grandmaQW['chore_type'] = 3:
-		gt 'grandmahelp', 'groceries'
-	elseif grandmaQW['chore_type'] = 4 and boletus_stored >= 5:
-		gt 'grandmahelp', 'can_mushrooms'
-	elseif grandmaQW['chore_type'] = 5 and bilberry_stored >= 5:
-		gt 'grandmahelp', 'can_berries'
-	elseif grandmaQW['chore_type'] = 6 and grandmaQW['chore_harvest_done'] = 1:
-		gt 'grandmahelp', 'can_veggies'
-	elseif grandmaQW['chore_type'] = 7:
-		gt 'grandmahelp', 'feedchickens'
-	elseif grandmaQW['chore_type'] = 8 and sunWeather = 1:
-		gt 'grandmahelp', 'checkplants'
-	elseif grandmaQW['chore_type'] = 9 and sunWeather = 1:
-		gt 'grandmahelp', 'waterplants'
-	elseif grandmaQW['chore_type'] = 10 and sunWeather = 1 and month >= 6 and month <= 9:
-		gt 'grandmahelp', 'harvest'
-	elseif grandmaQW['chore_type'] = 11 and boletus_stored <= 18:
-		gt 'grandmahelp', 'pickforest_mushrooms'
-	elseif grandmaQW['chore_type'] = 12 and bilberry_stored <= 18:
-		gt 'grandmahelp', 'pickforest_berries'
-	elseif grandmaQW['chore_type'] = 13 and ((boletus_stored + bilberry_stored) <= 16):
-		gt 'grandmahelp', 'pickforest_both'
-	else
-		'"There is nothing to do today, <<$pcs_nickname>>. take the day off.'
-		act 'Continue': gt 'gad_gphouse', 'grandma'
-	end
-end
-
-if $ARGS[0] = 'cleanfloor':
-	'"There is always something to do, <<$pcs_nickname>>. I''ve gotten quite old, and my strength is not what it used to be. Could you help me out by cleaning the floor?"'
-
-	grandmaQW['chore_clean_floor'] = 1
-	act 'Tell her you will do it soon': gt 'gad_gphouse', 'grandma'
-	act 'Agree and start cleaning (1:00)':
-		*clr & cla
-		minut += 60
-		grandmaQW['chore_clean_floor'] = 2
-		grandmaQW['help_amount'] += 1
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washfloor.jpg"></center>'
-		'You grab a bucket and a rag, get down on your knees and begin scrubbing the floor. Within the hour, the floor shines, and you are satisfied with your work. You put the cleaning supplies into a corner and continue your day.'
-
-		act 'Continue': gt 'gad_gphouse', 'start'
-		act 'Return back to your grandmother': minut += 1 & gt 'gad_gphouse', 'grandma'
-	end
-end
-
-if $ARGS[0] = 'washclothes':
-	'"Of course, <<$pcs_nickname>>, you can help me wash your grandfather''s dirty clothes?"'
-
-	grandmaQW['chore_wash_clothes'] = 1
-	act 'Tell her you will wash them in a little bit': gt 'gad_gphouse', 'grandma'
-	act 'Agree and start washing (1:00)':
-		*clr & cla
-		minut += 60
-		grandmaQW['chore_wash_clothes'] = 2
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
-		'You pick up grandfather''s dirty clothes and take them with you outside, where you soak them in the metal basin for an hour.'
-
-		act 'Hang the Laundry':
-		    *clr & cla
-		    minut += 10
-		    gs'stat'
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes2.jpg"></center>'
-		    'Once done with the washing, you walk to the clothesline, where you carefully hang the clothes to dry.'
-
-		    act 'Continue': gt 'gad_gpyard', 'start'
-			act 'Return back to your grandmother': minut += 1 & gt 'gad_gphouse', 'grandma'
-		end
-	end
-end
-
-if $ARGS[0] = 'milkcows':
-	'"<<$pcs_nickname>>, go to the barn and milk the cows."'
-
-	grandmaQW['chore_milk_cow'] = 1
-	act 'Tell her you will do it in a bit': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the barn (0:10)':
-		*clr & cla
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You walk over to the barn where the cows are kept.'
-
-		act 'Continue': gt 'gad_gpbarn', 'cow'
-	end
-end
-
-if $ARGS[0] = 'groceries':
-	'"Oh yes, <<$pcs_nickname>>. I was going to go down to the store today to buy some groceries, but my knees are aching. Do you think you could go down there and get them for me? I have a list of what we need, and the grocer will come by later to collect the money."'
-
-	grandmaQW['chore_groceries'] = 1
-	act 'Tell her you will go to the store later': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the store (0:15)':
-		*clr & cla
-		minut += 15
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/izba.jpg"></center>'
-		'Your grandmother shuffles around, looking for her list for a few minutes, finally finding it and giving it to you. You grab a basket and set out for the store.'
-		act 'Continue': gt 'gad_store'
-	end
-end
-
-if $ARGS[0] = 'can_mushrooms':
-	'"I need to get some of these mushrooms canned, <<$pcs_nickname>>, so we can store them. Can you please help me prepare them?"'
-
-	grandmaQW['chore_can_mushrooms'] = 1
-	act 'Tell her you will help her in a little while': gt 'gad_gphouse', 'grandma'
-	act 'Agree to help her right now (2:00)':
-		*clr & cla
-		minut += 45
-		gs'stat'
-
-		boletus_stored -= 5
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cleaning_mushrooms.jpg"></center>'
-		'Grandma gives you a basket of mushrooms, and you spend a while cleaning them, washing them, and cutting them up in preparation for canning.'
-		act 'Continue':
-			*clr & cla
-			minut += 60
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canning.jpg"></center>'
-			'Once they are prepared, you help put them in glass jars. Once they are ready, Grandma places the jars in her canner and boils them for an hour.'
-			act 'Continue':
-				*clr & cla
-				minut += 15
-				gs'stat'
-
-				grandmaQW['chore_can_mushrooms'] = 0
-				grandmaQW['help_amount'] += 2
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canned_mushrooms.jpg"></center>'
-				'Finally, you help Grandma take them out of the canner and set them aside to cool.'
-				'"Thank you, <<$pcs_nickname>>," she says. "It is important to save food up for the hard winter months. Sure, now you can walk to the store and get whatever you want, but it wasn''t always that way!"'
-				act 'Finish': gt 'gad_gphouse','start'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'can_berries':
-	'"It is time to can these berries, <<$pcs_nickname>>. Can you please help me? My fingers aren''t as spry as they used to be."'
-
-	grandmaQW['chore_can_berries'] = 1
-	act 'Tell her you will help her in a little while': gt 'gad_gphouse', 'grandma'
-	act 'Agree to help her right now (2:00)':
-		*clr & cla
-		minut += 45
-		gs'stat'
-
-		bilberry_stored -= 5
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cleaning_berries.jpg"></center>'
-		'Grandma gives you a basket of berries, and you spend a while cleaning them, removing stems, and picking out any shrivelled or bad ones.'
-		act 'Continue':
-			*clr & cla
-			minut += 60
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canning.jpg"></center>'
-			'Once they are prepared, you help pour them into glass jars. Once they are ready, Grandma places the jars in her canner and boils them for an hour.'
-			act 'Continue':
-				*clr & cla
-				minut += 15
-				gs'stat'
-
-				grandmaQW['chore_can_berries'] = 0
-				grandmaQW['help_amount'] += 2
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canned_berries.jpg"></center>'
-				'Finally, you help Grandma take them out of the canner and set them aside to cool.'
-				'"There, now we will have berries for the winter," she says. "I think your grandfather could live off of these berries alone! He will be very grateful that you helped me."'
-				act 'Finish': gt 'gad_gphouse','start'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'can_veggies':
-	'"We have had good luck with the garden this year, <<$pcs_nickname>>. But now we need to can these vegetables before they spoil. Can you help me, please?"'
-
-	grandmaQW['chore_can_veggies'] = 1
-	act 'Tell her you will help her in a little while': gt 'gad_gphouse', 'grandma'
-	act 'Agree to help her right now (3:00)':
-		*clr & cla
-		minut += 75
-		gs'stat'
-
-		grandmaQW['chore_harvest_done'] = 0
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cleaning_veggies.jpg"></center>'
-		'You and Grandma spend some time sorting out all the vegetables from the garden. Once they are sorted, you begin cleaning them, cutting them up, removing stems and leaves, and preparing them for canning.'
-		act 'Continue':
-			*clr & cla
-			minut += 90
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canning.jpg"></center>'
-			'It is a tedious process, but eventually, you finish and help Grandma put them all in jars. Then, you stand by while she boils the jars, helping her remove them from the canner when needed and replacing them with others.'
-			act 'Continue':
-				*clr & cla
-				minut += 15
-				gs'stat'
-
-				grandmaQW['chore_can_veggies'] = 0
-				grandmaQW['help_amount'] += 3
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/canned_veggies.jpg"></center>'
-				'Finally, you help Grandma take the last jars out of the canner and set them aside to cool.'
-				'"You know <<$pcs_nickname>>, if you know how to can your own food, you can survive years of poor harvests," she says.'
-				'"Your grandfather and I had many hard times when we were younger, but saving our crops during the good times kept us from starving to death in the bad times. You would do well to remember that, young lady!"'
-				act 'Finish': gt 'gad_gphouse','start'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'feedchickens':
-	'"Of course, <<$pcs_nickname>>. Would you be kind and feed the chickens?"'
-
-	grandmaQW['chore_feed_chickens'] = 1
-	act 'Tell her you will do it in a little while': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the yard (0:10)':
-		*clr & cla
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_chickens.jpg"></center>'
-		'You take the grain mix for the chickens and walk to the yard.'
-
-		act 'Continue': gt 'gad_gpyard','chickens'
-
-	end
-end
-
-if $ARGS[0] = 'checkplants':
-	'"<<$pcs_nickname>>, can you please go work in the garden?"'
-
-	grandmaQW['chore_work_in_garden'] = 1
-	act 'Tell her you will get to it later': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the garden (0:10)':
-		*clr & cla
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You go to the garden.'
-
-		act 'Continue': gt 'gad_gpyard', 'garden'
-	end
-end
-
-if $ARGS[0] = 'waterplants':
-	'"Dear <<$pcs_nickname>>, could you go and water the plants in the garden?"'
-
-	grandmaQW['chore_water_garden'] = 1
-	act 'Tell her you will do it after a while': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the garden (0:10)':
-		*clr & cla
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You bring a watering can along with you to the garden.'
-
-		act 'Continue': gt 'gad_gpyard', 'garden'
-	end
-end
-
-if $ARGS[0] = 'harvest':
-	if month = 7:
-		'"<<$pcs_nickname>> dear, the strawberries are ripe for picking. Could you go over to the plot and pick them today?"'
-
-		grandmaQW['chore_collect_strawberries'] = 1
-		act 'Tell her you will do it in a little bit': gt 'gad_gphouse', 'grandma'
-		act 'Agree and go to the strawberry plot (0:10)':
-			*clr & cla
-			minut += 10
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			'You bring a basket with you and walk to the strawberry plot in the garden.'
-
-			act 'Continue': gt 'gad_gpyard', 'strawberry'
-		end
-	elseif month = 8 or month = 9:
-		'"<<$pcs_nickname>> dear, the fruits are ripe, and it is time to start collecting them. Could you go and do it today?"'
-
-		grandmaQW['chore_collect_fruit'] = 1
-		act 'Tell her you will do it in a little bit': gt 'gad_gphouse', 'grandma'
-		act 'Agree and go to the orchard (0:10)':
-			*clr & cla
-			minut += 10
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			'You bring a basket with you and walk to the fruit garden.'
-
-			act 'Continue': gt 'gad_gpyard', 'fruit_garden'
-		end
-	elseif month = 6:
-		'"<<$pcs_nickname>> dear, could you go to the garden today? It''s time to collect the harvest."'
-
-		grandmaQW['chore_harvest_garden'] = 1
-		act 'Tell her you will do it in a little bit': gt 'gad_gphouse', 'grandma'
-		act 'Agree and go to the garden (0:10)':
-			*clr & cla
-			minut += 10
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			'You bring the harvest tools with you and go over to the garden.'
-
-			act 'Continue': gt 'gad_gpyard', 'garden'
-		end
-	end
-end
-
-if $ARGS[0] = 'pickforest_mushrooms':
-	grandmaQW['chore_gather_mushrooms'] = 1
-	grandmaQW['chore_mushroom_quantity'] = rand(1,2)
-	'"<<$pcs_nickname>>, it''s mushroom season. Would you mind going into the forest to pick some for us?"'
-	'"How much do we need, Grandma?" you ask.'
-	'"Oh, I would say you should be able to find at least <<grandmaQW[''chore_mushroom_quantity'']>> kilos," Grandma replies.'
-
-	act 'Tell her you will go get some soon': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the forest (1:00)':
-		*clr & cla
-		if hour >= 6 and hour < 22:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
-		end
-		'You decide that now is as good a time as any to do it. You grab a basket and head out, walking to the forest.'
-		minut += 60
-		act 'Continue': gt 'gad_forest', 'forest_edge'
-	end
-end
-
-if $ARGS[0] = 'pickforest_berries':
-	grandmaQW['chore_gather_berries'] = 1
-	grandmaQW['chore_berry_quantity'] = rand(1,2)
-	'"<<$pcs_nickname>>, the wild berries are ripe for picking. We should gather them now while we can."'
-	'"How much do you want, Grandma?" you ask.'
-	'"<<grandmaQW[''chore_berry_quantity'']>> kilos will be a good start," Grandma replies.'
-
-	act 'Tell her you will go get some soon': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the forest (1:00)':
-		*clr & cla
-		if hour >= 6 and hour < 22:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
-		end
-		'You decide now is as good a time as any to do it. So you grab a basket and head out, walking to the forest.'
-		minut += 60
-		act 'Continue': gt 'gad_forest', 'forest_edge'
-	end
-end
-
-if $ARGS[0] = 'pickforest_both':
-	grandmaQW['chore_gather_both'] = 1
-	grandmaQW['chore_mushroom_quantity'] = rand(1,2)
-	grandmaQW['chore_berry_quantity'] = rand(1,2)
-	'"This is the time of year that the forest provides us with its gifts, <<$pcs_nickname>>. Can you go and harvest some mushrooms and berries for us?"'
-	'"How much of each should I get?" you ask.'
-	'"If you could, try to find <<grandmaQW[''chore_mushroom_quantity'']>> kilos of mushrooms and <<grandmaQW[''chore_berry_quantity'']>> kilos of berries," Grandma replies. "It is important to stock up while we can."'
-
-	act 'Tell her you will go get some soon': gt 'gad_gphouse', 'grandma'
-	act 'Agree and go to the forest (1:00)':
-		*clr & cla
-		if hour >= 6 and hour < 22:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
-		end
-		'You decide now is as good a time as any to do it. So you grab a basket and head out, walking to the forest.'
-		minut += 60
-		act 'Continue': gt 'gad_forest', 'forest_edge'
-	end
-end
-
-
---- grandmahelp ---------------------------------
-

+ 0 - 352
locations/grandpahelp.qsrc

@@ -1,352 +0,0 @@
-# grandpahelp
-
-killvar '$locclass'
-menu_off = 1
-*clr & cla
-gs'stat'
-'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
-'You walk up to your grandfather and ask if he needs any help. Grandpa thinks for a moment and says:'
-
-if $ARGS[0] = 'start':
-	if month <= 4 or month >= 10:
-		grandpaQW['chore_type'] = rand(0,5)
-	elseif month = 5:
-		grandpaQW['chore_type'] = rand(3,8)
-	elseif month >= 6 and month <= 9:
-		grandpaQW['chore_type'] = rand(3,14)
-	end
-
-	if grandpaQW['chore_type'] = 0:
-		'"<<$pcs_nickname>>, could you run out to the barn and bring firewood for the stove?"'
-
-		grandpaQW['chore_fetch_firewood'] = 1
-		act 'Tell him you will go get some in just a bit': gt 'gad_gphouse', 'grandpa'
-		act 'Agree and go to fetch firewood (0:20)':
-			*clr & cla
-			if month >= 4 and month <= 10:
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood_winter.jpg"></center>'
-			end
-			'You put on warm clothes and run to the barn to collect firewood.'
-			'"I''ve brought some firewood, grandfather," you said to your grandfather.'
-			'"You are very quick, <<$pcs_nickname>>," he replies with a smile. "That''s today''s youth for ya. There is no more work today."'
-			grandpaQW['chore_fetch_firewood'] = 0
-			minut += 20
-			grandmaQW['help_amount'] += 1
-			gs'stat'
-
-			act 'Continue': gt 'gad_gphouse', 'start'
-		end
-	elseif grandpaQW['chore_type'] = 1:
-		'"<<$pcs_nickname>>, I need you to go to the barn and feed Desperado."'
-
-		grandpaQW['chore_feed_horse'] = 1
-		act 'Tell him that you will get to it in a little bit': gt 'gad_gphouse', 'grandpa'
-		act 'Agree and go to the barn (0:10)':
-			*clr & cla
-			if month >= 4 and month <= 10:
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-			end
-			'You walk over to the barn where Desperado is kept.'
-			minut += 10
-			gs'stat'
-
-			act 'Continue': gt 'gad_gpbarn', 'horse'
-		end
-	elseif grandpaQW['chore_type'] = 2:
-		'"<<$pcs_nickname>>, go to the barn and feed the cow."'
-
-		grandpaQW['chore_feed_cow'] = 1
-		act 'Tell him that you will do it in a little while': gt 'gad_gphouse', 'grandpa'
-		act 'Agree and go to the barn (0:10)':
-			*clr & cla
-			if month >= 4 and month <= 10:
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-			end
-			'You walk over to the barn where the cows are kept.'
-			minut += 10
-			gs'stat'
-
-			act 'Continue': gt 'gad_gpbarn', 'cow'
-		end
-	elseif grandpaQW['chore_type'] = 3:
-		gt 'grandpahelp', 'cleanyard'
-	elseif grandpaQW['chore_type'] = 4:
-		gt 'grandpahelp', 'groomhorse'
-	elseif grandpaQW['chore_type'] = 5:
-		gt 'grandpahelp', 'feedhogs'
-	elseif grandpaQW['chore_type'] = 6 and hour >= 6 and hour < 9:
-		gt 'grandpahelp', 'grazehorse'
-	elseif grandpaQW['chore_type'] = 7 and hour >= 6 and hour < 9:
-		gt 'grandpahelp', 'leadcows'
-	elseif grandpaQW['chore_type'] = 8 and hour >= 6 and hour < 9:
-		gt 'grandpahelp', 'grazecows'
-	elseif grandpaQW['chore_type'] = 9 and temper >= 15 and sunWeather = 1 and week > 5 and func('changingroom','count_swim_item') > 0:
-		gt 'grandpahelp', 'washhorse'
-	elseif grandpaQW['chore_type'] = 10 and boletus_stored <= 18:
-		gt 'grandpahelp', 'pickforest_mushrooms'
-	elseif grandpaQW['chore_type'] = 11 and bilberry_stored <= 18:
-		gt 'grandpahelp', 'pickforest_berries'
-	elseif grandpaQW['chore_type'] = 12 and ((boletus_stored + bilberry_stored) <= 16):
-		gt 'grandpahelp', 'pickforest_both'
-	elseif grandpaQW['chore_type'] = 13 and temper >= 15 and sunWeather = 1 and hour >= 6 and hour < 9:
-		'"<<$pcs_nickname>>, we need to help with baling hay today, so we have to go to the field to meet the others."'
-		'"Okay, grandfather," you replied.'
-
-		grandpaQW['chore_bale_hay'] = 1
-		act 'Tell him you will head over there soon': gt 'gad_gphouse', 'grandpa'
-		act 'Grab a rake and head to the field (0:40)':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_gadfield.jpg"></center>'
-			'With the rake in your hand, you meet up with the other local residents at the field.'
-			minut += 40
-			gs'stat'
-
-			act 'Continue': gt'gad_field', 'field'
-		end
-	else
-		if hour >= 9:
-			randmsg = rand(0,5)
-			if randmsg = 0:
-				'"You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
-			elseif randmsg = 1:
-				'"You can rest today child, there is nothing to do."'
-			elseif randmsg = 2:
-				'"You can rest today <<$pcs_nickname>>, there is nothing to do."'
-			elseif randmsg = 3:
-				'"There''s no work today <<$pcs_nickname>>, go and rest up."'
-			elseif randmsg = 4:
-				'"You can rest today my dear granddaughter."'
-			else
-				'"You can take the day off to rest up."'
-			end
-		else
-			randmsg = rand(0,1)
-			if randmsg = 0:
-				'"You don''t need to help out today, <<$pcs_nickname>>."'
-			else
-				'"You can take the day off."'
-			end
-		end
-		act 'Continue': gt 'gad_gphouse', 'grandpa'
-	end
-end
-
-if $ARGS[0] = 'cleanyard':
-	'"Of course, <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
-
-	grandpaQW['chore_clean_yard'] = 1
-	act 'Tell him that you''ll do it in a minute': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go clean up the yard (1:00)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
-			'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.'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
-			'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.'
-		end
-		minut += 60
-		grandpaQW['chore_clean_yard'] = 2
-		if month >= 4 and month <= 10:
-			fat -= rand(1,3)
-		else
-			gs 'exp_gain', 'stren', 1
-			fat -= rand(1,5)
-		end
-		gs'stat'
-
-		act 'Continue': gt 'gad_gpyard'
-		act 'Return back to your grandfather': minut += 1 & gt 'gad_gphouse', 'grandpa'
-	end
-end
-
-if $ARGS[0] = 'feedhogs':
-	'"<<$pcs_nickname>>, could you go to the barn and feed the hog?"'
-
-	grandpaQW['chore_feed_boar'] = 1
-	act 'Tell him you will get to it soon':gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the barn (0:10)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-		end
-		'You walk over to the barn where the hogs are kept.'
-		minut += 10
-		gs'stat'
-
-		act 'Continue': gt 'gad_gpbarn', 'boar'
-	end
-end
-
-if $ARGS[0] = 'washhorse':
-	'"It''s good weather today. Take Desperado to the river and give him a bath."'
-
-	grandpaQW['chore_bathe_horse'] = 1
-	act 'Tell him you will do it in a little while': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the barn (0:10)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You walk over to the barn where Desperado is kept.'
-		minut += 10
-		gs'stat'
-
-		act 'Continue': gt 'gad_gpbarn', 'horse'
-	end
-end
-
-if $ARGS[0] = 'groomhorse':
-	'"Of course, <<$pcs_nickname>>, I need your help to groom Desperado."'
-
-	grandpaQW['chore_brush_horse'] = 1
-	act 'Tell him you will do it in a bit': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the barn (0:10)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-		end
-		'You walk over to the barn where Desperado is kept.'
-		minut += 10
-		gs'stat'
-
-		act 'Continue': gt 'gad_gpbarn', 'horse'
-	end
-end
-
-if $ARGS[0] = 'grazehorse':
-	'"<<$pcs_nickname>>, take Desperado to the field. My legs hurt, so I need to rest for a bit. I''ll retrieve the horse in the evening."'
-
-	grandpaQW['chore_lead_horse_to_field'] = 1
-	act 'Tell him you will do it soon': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the barn (0:10)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You walk over to the barn where Desperado is kept.'
-		minut += 10
-		gs'stat'
-
-		act 'Continue': gt 'gad_gpbarn','horse'
-	end
-end
-
-if $ARGS[0] = 'grazecows':
-	if grandpaQW['chore_herd_cattle_experience'] = 0:
-		'"<<$pcs_nickname>>, we need to let the cows graze on the field today. So grab something to eat and lead the herd to the field. I''ll meet you there."'
-	else
-		'"<<$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."'
-	end
-
-	grandpaQW['chore_herd_cattle'] = 1
-	act 'Tell him you will meet him there': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the field (0:40)':
-		*clr & cla
-		if grandpaQW['chore_herd_cattle_experience'] = 0:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			'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.'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
-			'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.'
-		end
-		pcs_mood += 20
-		pcs_health += 10
-		minut += 40
-		if mc_inventory['food_water'] = 0: mc_inventory['food_water'] = 1
-		if mc_inventory['food_sandwich'] = 0: mc_inventory['food_sandwich'] = 1
-		gs'stat'
-
-		act 'Continue': gt'gad_field', 'cow'
-	end
-end
-
-if $ARGS[0] = 'leadcows':
-	'"I have sore feet today, <<$pcs_nickname>>. My dear granddaughter, could you lead the cow to the field and tell the herders to drive her home at the end of the day?"'
-
-	grandpaQW['chore_lead_cow_to_field'] = 1
-	act 'Tell him you will soon': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the barn (0:10)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You walk over to the barn where the cows are kept.'
-		minut += 10
-		gs'stat'
-
-		act 'Continue': gt 'gad_gpbarn', 'cow'
-	end
-end
-
-if $ARGS[0] = 'pickforest_mushrooms':
-	grandpaQW['chore_gather_mushrooms'] = 1
-	grandpaQW['chore_mushroom_quantity'] = rand(1,2)
-	'"<<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
-	'"How much should I pick, grandpa?" you ask.'
-	'"<<grandpaQW[''chore_mushroom_quantity'']>> kilos will be enough," grandfather replies. "Be careful so you don''t get lost."'
-
-	act 'Tell him you will go get some soon': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the forest (1:00)':
-		*clr & cla
-		if hour >= 6 and hour < 22:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
-		end
-		'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
-		minut += 60
-		act 'Continue': gt 'gad_forest', 'forest_edge'
-	end
-end
-
-if $ARGS[0] = 'pickforest_berries':
-	grandpaQW['chore_gather_berries'] = 1
-	grandpaQW['chore_berry_quantity'] = rand(1,2)
-	'"<<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
-	'"How much should I pick, grandpa?" you ask.'
-	'"<<grandpaQW[''chore_berry_quantity'']>> kilos will be enough," grandfather replies. "Just be careful so you don''t get lost."'
-
-	act 'Tell him you will go get some soon': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the forest (1:00)':
-		*clr & cla
-		if hour >= 6 and hour < 22:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
-		end
-		'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
-		minut += 60
-		act 'Continue': gt 'gad_forest', 'forest_edge'
-	end
-end
-
-if $ARGS[0] = 'pickforest_both':
-	grandpaQW['chore_gather_both'] = 1
-	grandpaQW['chore_mushroom_quantity'] = rand(1,2)
-	grandpaQW['chore_berry_quantity'] = rand(1,2)
-	'"<<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and I am craving some fresh berries."'
-	'"How much should I pick, grandpa?"'
-	'"<<grandpaQW[''chore_mushroom_quantity'']>> kilos of mushrooms and <<grandpaQW[''chore_berry_quantity'']>> kilos of berries will be enough," grandfather replies. "Just don''t get lost."'
-
-	act 'Tell him you will go get some soon': gt 'gad_gphouse', 'grandpa'
-	act 'Agree and go to the forest (1:00)':
-		*clr & cla
-		if hour >= 6 and hour < 22:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
-		end
-		'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
-		minut += 60
-		act 'Continue': gt 'gad_forest', 'forest_edge'
-	end
-end
-
-
---- grandpahelp ---------------------------------
-

+ 8 - 8
locations/miroslava.qsrc

@@ -205,7 +205,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 					if ($clothingworntype ! 'nude' and PCloswimwear = 0):
 						minut += 15
 						npc_rel['A60'] += 1
-						gt 'gad_gphouse', 'start'
+						gt 'gad_gphouse', 'entry'
 					else
 						npc_rel['A60'] += 1
 						if npc_rel['A60'] < 30: npc_rel['A60'] += 1
@@ -216,7 +216,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/dressbch.jpg"></center>'
 						'You change into your clothes and go home with Mira.'
 
-						act 'Continue': gt 'gad_gphouse', 'start'
+						act 'Continue': gt 'gad_gphouse', 'entry'
 					end
 				end
 
@@ -251,7 +251,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 					'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mira_tv'+rand(1,12)+'.jpg"></center>'
 					'You watch TV with Mira for an hour.'
 
-					act 'Continue': gt 'gad_gphouse', 'start'
+					act 'Continue': gt 'gad_gphouse', 'entry'
 				end
 
 				act 'Refuse':
@@ -839,7 +839,7 @@ if $ARGS[0] = 'guest_acts':
 
 			act 'Go home':
 				if ($clothingworntype ! 'nude' and PCloswimwear = 0):
-					minut += 15 & gt 'gad_gphouse', 'start'
+					minut += 15 & gt 'gad_gphouse', 'entry'
 				else
 					*clr & cla
 					minut += 5
@@ -849,7 +849,7 @@ if $ARGS[0] = 'guest_acts':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/dressbch.jpg"></center>'
 					'You changed into your regular clothes and went home with Mira.'
 
-					act 'Continue': minut += 15 & gt 'gad_gphouse', 'start'
+					act 'Continue': minut += 15 & gt 'gad_gphouse', 'entry'
 				end
 			end
 		end
@@ -865,7 +865,7 @@ if $ARGS[0] = 'guest_acts':
 			'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mira_tv'+rand(1, 12)+'.jpg"></center>'
 			'You and Mira watch TV for an hour.'
 
-			act 'Continue': gt 'gad_gphouse', 'start'
+			act 'Continue': gt 'gad_gphouse', 'entry'
 		end
 
 		if hour >= 18:
@@ -899,7 +899,7 @@ if $ARGS[0] = 'guest_acts':
 			MiraVars['follow_time'] = 0
 			MiraVars['follower'] = 0
 			if MiraVars['guestday'] <= daystart: MiraVars['guestday'] = daystart + 1
-			act 'Walk back home': gt 'gad_gphouse', 'start'
+			act 'Walk back home': gt 'gad_gphouse', 'entry'
 		end
 	end
 end
@@ -1226,7 +1226,7 @@ if $ARGS[0] = 'leave':
 	elseif locat['A60'] = 60:
 		gt 'gad_forest', 'forest_edge'
 	elseif locat['A60'] = 21:
-		gt 'gad_gphouse', 'start'
+		gt 'gad_gphouse', 'entry'
 	elseif locat['A60'] = 20:
 		gt 'gad_gpyard', 'start'
 	else

+ 10 - 48
locations/miroslava_schedule.qsrc

@@ -91,8 +91,8 @@ if $ARGS[0] = 'get_locat_from_loc':
 end
 
 if $ARGS[0] = 'cikl':
-	MiraVars['sched'] = rand(0, 5)
-	MiraVars['prost_today'] = (rand(0, 2) > 0)
+	locat['A60_rand'] = rand(0, 5)
+	locat['A60_prost'] = (rand(0, 2) > 0)
 end
 
 if $ARGS[0] = 'force_change':
@@ -174,7 +174,7 @@ if $ARGS[0] = 'update_locat':
 		end
 	else
 		if npc_known['A60'] = 0 and locat['A60'] ! 10 and locat['A60'] ! 30:				locat['A60'] = 30		& ! Sveta and Mira aren''t friends yet.
-		if MiraVars['QW'] > 15 and MiraVars['prost_today'] and hour >= 16 and hour < 20:	locat['A60'] = 80		& ! Prostitution
+		if MiraVars['QW'] > 15 and locat['A60_prost'] and hour >= 16 and hour < 20:			locat['A60'] = 80		& ! Prostitution
 		if locat['A60'] = 61 and (MiraVars['meadow'] = 2 or MiraVars['meadow'] = 5):		locat['A60'] = 60		& ! If meadow not unlocked -> Forest edge
 		if locat['A60'] = 51 and (sunweather = 0 or temper < 15 or month < 5 or month > 9):	locat['A60'] = 10		& ! Winter = No Beach
 		if locat['A60'] = 42 and (MiraVars['QW'] = 0 or npc_drunk['A60'] > 0):				locat['A60'] = 10		& ! drunk or doesn''t know the guys
@@ -192,7 +192,7 @@ if $ARGS[0] = 'get_base_schedule':
 
 
 	!{
-	elseif MiraVars['sched'] = 10:
+	elseif locat['A60_rand'] = 10:
 		!!				0-8,	8-10,	10-12,	12-14,	14-16,	16-18,	18-20,	20-22,	22-00
 		!! Sched0:		Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home
 		if hour < 8:
@@ -218,7 +218,7 @@ if $ARGS[0] = 'get_base_schedule':
 
 
 
-	if MiraVars['sched'] = 0:
+	if locat['A60_rand'] = 0:
 		!!				0-8,	8-10,	10-14,	14-16,	16-18,	18-20,	20-00
 		!! Sched0:		Home,	Forest,	Beach,	Gad,	Meadow,	Gad,	gopn
 		if hour <= 7:
@@ -237,7 +237,7 @@ if $ARGS[0] = 'get_base_schedule':
 			locat['A60'] = 42
 		end
 
-	elseif MiraVars['sched'] = 1:
+	elseif locat['A60_rand'] = 1:
 		!!				0-10,	10-16,	16-20,	20-00
 		!! Sched1:		Home,	Beach	grandp,	home
 		if hour <= 9:
@@ -250,7 +250,7 @@ if $ARGS[0] = 'get_base_schedule':
 			locat['A60'] = 10
 		end
 
-	elseif MiraVars['sched'] = 2:
+	elseif locat['A60_rand'] = 2:
 		!!				0-8,	8-10,	10-14,	14-16,	16-18,	18-20,	20-00
 		!! Sched2:		Home,	Forest,	Meadow,	Beach,	Meadow,	Forest,	gopn
 		if hour <= 7:
@@ -269,7 +269,7 @@ if $ARGS[0] = 'get_base_schedule':
 			locat['A60'] = 42
 		end
 
-	elseif MiraVars['sched'] = 3:
+	elseif locat['A60_rand'] = 3:
 		!!				0-8,	8-10,	10-12,	12-14,	14-16,	16-18,	18-20,	20-22,	22-00
 		!! Sched3:		Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home
 		if hour < 8:
@@ -282,7 +282,7 @@ if $ARGS[0] = 'get_base_schedule':
 			locat['A60'] = 10
 		end
 
-	elseif MiraVars['sched'] = 4:
+	elseif locat['A60_rand'] = 4:
 		!!				0-8,	8-10,	10-12,	12-14,	14-16,	16-18,	18-20,	20-22,	22-00
 		!! Sched4:		Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home
 		if hour < 8:
@@ -297,7 +297,7 @@ if $ARGS[0] = 'get_base_schedule':
 			locat['A60'] = 10
 		end
 
-	elseif MiraVars['sched'] = 5:
+	elseif locat['A60_rand'] = 5:
 		!!				0-8,	8-10,	10-12,	12-14,	14-16,	16-18,	18-20,	20-22,	22-00
 		!! Sched5:		Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home,	Home
 		if hour < 8:
@@ -324,7 +324,6 @@ end
 
 
 
-!New
 if $ARGS[0] = 'getLocation':
 	gs 'miroslava_schedule', 'update_locat'
 
@@ -374,45 +373,8 @@ if $ARGS[0] = 'getLocation':
 	elseif locat['A60'] = 82:
 		$npcLocation['A60'] = 'Mira is at the lorry'
 
-	!{
-	elseif locat['A60'] = 90:
-		$npcLocation['A60'] = 'Mira is with you'
-	}
-
 	end
 end
 
 
-!{!OLD
-if $ARGS[0] = 'getLocation':
-	if locat['A60'] = 0:
-		$npcLocation['A60'] = 'Mira is at home'
-	elseif locat['A60'] = 1:
-		$npcLocation['A60'] = 'Mira is at river'
-	elseif locat['A60'] = 2:
-		$npcLocation['A60'] = 'Mira is at meadow'
-	elseif locat['A60'] = 3:
-		$npcLocation['A60'] = 'Mira is at forest'
-	elseif locat['A60'] = 4:
-		$npcLocation['A60'] = 'Mira is at field'
-	elseif locat['A60'] = 41:
-		$npcLocation['A60'] = 'Mira is at field'
-	elseif locat['A60'] = 42:
-		$npcLocation['A60'] = 'Mira is at field'
-	elseif locat['A60'] = 43:
-		$npcLocation['A60'] = 'Mira is at field'
-	elseif locat['A60'] = 5:
-		$npcLocation['A60'] = 'Mira is at gop'
-	elseif locat['A60'] = 6:
-		$npcLocation['A60'] = 'Mira is at gad_gphouse'
-	elseif locat['A60'] = 7:
-		$npcLocation['A60'] = 'Mira is at gad_gpyard'
-	elseif locat['A60'] = 8:
-		$npcLocation['A60'] = 'Mira is at the highway'
-	elseif locat['A60'] = 9:
-		$npcLocation['A60'] = 'Mira is with you'
-	end
-end
-}
-
 --- miroslava_schedule ---------------------------------

+ 1 - 1
locations/stat_display.qsrc

@@ -2193,7 +2193,7 @@ if npc_QW['A113'] = 1: $stat_msg += '<br>You owe Vadim Bely <<belgangpay>> <b><b
 !!------------------ Things without an icon (End) -------------------
 
 !!------------------ Gadukino chores and such -------------------
-if display_bb = 1:
+if $region = 'gad':
 	if boletus + boletus_cooked + bilberry > 0:
 		$stat_msg += '<br> '
 		if boletus + boletus_cooked + bilberry >= 5: