WLife/locations/mod_wlife_rex.qsrc

# mod_wlife_rex

if $ARGS[0] = 'gadukino':
	*clr & cla
	minut += 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/animals/rex_gadukino_'+iif(month > 3 and month < 11, 'summer', 'winter')+'.jpg"></center>'
	'Rex is running around '+iif(month > 3 and month < 11, 'sniffing everything', 'playing in the snow')+'. Your grandmother loves to take care of him, that''s why you don''t have to worry about him while you''re in Gadukino.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'start':
	*clr & cla
	minut += 1
	menu_off = 1
	$location_type = 'privat'
	gs 'stat'

	if objects['chew'] > 0 and rand(1,10) > 5 and rex['chew_day'] ! daystart:
		rex['relationship'] += 1
		objects['chew'] -= 1
		rex['chew_day'] = daystart
		'<center><img <<$set_imgh>> src="mod/wlife/images/animals/rex_chew.jpg"></center>'
	elseif rex['love'] > 40 and rand (1,10) > 5 and rex['kiss_day_inside'] ! daystart and $wl_fetish['bestiality'] = 'active' and rex['status'] > 2:
		rex['temp'] = 1
		rex['love'] += 1
		rex['kiss_day_inside'] = daystart
		'<center><img <<$set_imgh>> src="mod/wlife/images/activities/kiss_inside.jpg"></center>'
	elseif rand(1,100) < min(rex['love'], 50) and rex['status'] < 2 and $wl_fetish['bestiality'] = 'active':
		gt 'mod_wlife_rex', 'sniff', 'inside'
	else
		'<center><img <<$set_imgh>> src="mod/wlife/images/animals/rex.jpg"></center>'
	end
	'Your dog''s name is <<$rex[''name'']>> and taking care of him is your responsibility. He needs to be fed and walked two times per day and bathed once per week.'+iif((rex['count_walk'] + rex['count_feed'] + rex['count_bath']) = 0, ' You have done all necessary chores.', '')

	*nl

	if (rex['count_walk'] + rex['count_feed'] + rex['count_bath']) > 0:
		'<b>Chores:</b>'
		if rex['count_walk'] > 0: '- You have to walk him <<rex[''count_walk'']>>x today.'
		if rex['count_feed'] > 0: '- You have to feed him <<rex[''count_feed'']>>x today.'
		if rex['count_bath'] > 0: '- You have to bath him <<rex[''count_bath'']>>x this week.'
		*nl
	end

	if rex['temp'] = 1:
		rex['temp'] = 0
		'<<$rex[''name'']>> jumps up and'+iif(rex['relationship'] > 80, ' happily ', ' ')+'wags his tail, when you approach him. He gives you a wet doggy kiss with his tongue, when you squat down next to him. "Oh, I love you too buddy," you say, softly put your hands on his face and return the kiss.'
	elseif rex['relationship'] < 10:
		'<<$rex[''name'']>> ignores you, when you approach him. '+iif(objects['chew'] = 0, 'His old chew toy next to him looks horrible. Maybe it''s time to buy him a new one?', '')
	elseif rex['relationship'] < 30:
		'<<$rex[''name'']>> looks up, when you approach him. '+iif(objects['chew'] = 0, 'His old chew toy next to him looks horrible. Maybe it''s time to buy him a new one?', '')
	elseif rex['relationship'] < 60:
		'<<$rex[''name'']>> looks up and wags his tail'+iif(rex['relationship'] > 45, ',', ' a bit,')+' when you approach him. '+iif(objects['chew'] = 0, 'His old chew toy next to him looks horrible. Maybe it''s time to buy him a new one?', '')
	else
		'<<$rex[''name'']>> jumps up and'+iif(rex['relationship'] > 80, ' happily ', ' ')+'wags his tail, when you approach him. '+iif(objects['chew'] = 0, 'His old chew toy next to him looks horrible. Maybe it''s time to buy him a new one?', '')
	end

	act 'Leave': gt 'mod_wlife_rex', 'end'

	if rex['status'] < 3:
		gs 'mod_wlife_rex', 'activities_normal'
	elseif wl_status['apartment_empty'] = 1 or ($loc ! 'korrPar' and $loc ! 'mod_BroMod_korrPar'):
		act 'Choose a normal activity':
			cla
			act 'Go back': gt 'mod_wlife_rex', 'start'
			gs 'mod_wlife_rex', 'activities_normal'
		end
		act 'Have sex with him':
			cla
			act 'Go back': gt 'mod_wlife_rex', 'start'
			gs 'mod_wlife_rex', 'activities_sexual'
		end
	else
		'<br>You can only ''play'' with your dog, when everybody else is away.'
		gs 'mod_wlife_rex', 'activities_normal'
	end
end

!!--- Activities: Actions ---

if $ARGS[0] = 'activities_normal':
	if rex['count_feed'] > 0 and hour > (rex['timer_feed'] + 3) and (curr_home = 2 or (curr_home ! 2 and objects['dog_food'] > 0)):
		act 'Feed him (0:03)': gt 'mod_wlife_rex', 'feed'
	elseif rex['count_feed'] > 0 and hour > (rex['timer_feed'] + 3) and curr_home ! 2 and objects['dog_food'] <= 0:
		'<br>You don''t have dog food to feed him.'
	end

	if objects['treats'] > 0 and rex['timer_treat'] ! daystart:
		act 'Give him a treat (0:01)': gt 'mod_wlife_rex', 'treat'
	elseif objects['treats'] = 0 and rex['timer_treat'] ! daystart:
		'<br>You don''t have any treats to give him.'
	end

	if $clothingworntype = 'nude':
		'<br>You should put on some clothes if you want to go for a walk with <<$rex[''name'']>>.'
	else
		if rex['count_walk'] > 0 and hour > (rex['timer_walk'] + 3):
			act 'Go for a walk with him '+iif(daystage = 5 or sunWeather = 0, '(0:10)', '(0:15)')+' ': gt 'mod_wlife_rex', 'exercise', 'walk'
			if rex['count_run'] = 0 and $clothingworntype = 'danilovich' and $shoeworntype = 'danilovich' and daystage ! 5:
				act 'Go for a run with him (1:00)': gt 'mod_wlife_rex', 'exercise', 'run'
			elseif rex['count_run'] = 0 and $clothingworntype = 'exercise' and $shoeworntype = 'trainers' and hour > 6 and hour < 22:
				'<br>It''s too '+iif(hour < 7, 'early', 'late')+' to go for a run with him.'
			end
		end
	end

	if rex['count_bath'] > 0: act 'Bath <<$rex[''name'']>> (0:25)': gt 'mod_wlife_rex', 'bath'

	if rex['play_inside'] ! daystart and hour < 23 and objects['toys'] = 1: act 'Play with him inside (0:20)': gt 'mod_wlife_rex', 'play_inside'
end

if $ARGS[0] = 'activities_sexual':
	*nl
	if rex['train_lick'] = 0 and rex['timer_lick'] ! daystart:
		act 'Teach him to lick you': gt 'mod_wlife_rex_sex', 'lick'
	elseif rex['train_lick'] > 0 and rex['train_lick'] < 7 and rex['timer_lick'] ! daystart:
		if objects['peanut_butter'] = 1:
			act 'Get your peanut butter and teach him to lick you': gt 'mod_wlife_rex_sex', 'lick'
		else
			'<br>You need something to train him. Maybe you should buy peanut butter.'
		end
	elseif rex['train_lick'] >= 7 and rex['timer_lick'] ! daystart:
		act 'Let him lick you': gt 'mod_wlife_rex_sex', 'lick'
	elseif rex['timer_lick'] = daystart:
		'<<$rex[''name'']>> already licked your pussy today.'
	end
	if rex['bj'] > 2 and rex['timer_bj'] ! daystart:
		act 'Blow your dog': gt 'mod_wlife_rex_sex', 'bj'
	elseif rex['bj'] > 2 and rex['timer_bj'] = daystart:
		'You have blown your dog today.'
	end
	if rex['pussy'] > 0 and rex['timer_pussy'] ! daystart:
		act 'Let him mount you': gt 'mod_wlife_rex_sex', 'pussy_1'
	elseif rex['pussy'] > 0 and rex['timer_pussy'] = daystart:
		'He has already mounted you today.'
	end
end

!!--- Activities ---

if $ARGS[0] = 'feed':
	*clr & cla
	minut += 3
	rex['relationship'] += 1
	rex['timer_feed'] = hour
	rex['count_feed'] -= 1
	if curr_home ! 2: objects['dog_food'] -= 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/activities/feeding_'+rand(0,1)+'.jpg"></center>'
	'"Come '+iif(rand(0,1) = 0, 'boy', '<<$rex[''name'']>>')+' let''s get you something to eat," you say and go into the kitchen. He '+iif(rand(0,1) = 0, 'follows you and watches you fill his bowl with big thankful eyes,', 'runs into the kitchen the second he hears you filling his bowl,')+' before he eagerly digs in.'
	*nl
	if curr_home ! 2: 'You have enough dog food for <<objects[''dog_food'']>> meals.'

	act 'Let him eat': gt 'mod_wlife_rex', 'end'
end

if $ARGS[0] = 'treat':
	*clr & cla
	minut += 1
	rex['relationship'] += 2
	objects['treats'] -= 1
	rex['timer_treat'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/activities/treat.jpg"></center>'
	'"Who is a good boy?" you ask him with a smile and pull one of his favorite treats out of your pocket. He sniffs and his tail wags back and forth. "Who is a good boy?" you ask again. He barks. "Yes you are," you agree and hold out the treat. He snatches it right out of your hand and happily goes back to his dog basked chewing enthusiastically.'

	act 'Continue': gt 'mod_wlife_rex', 'start'
end

if $ARGS[0] = 'exercise':
	*clr & cla
	rex['count_walk'] -= 1
	$location_type = 'public_outside'

	if $ARGS[1] = 'walk':
		rex['timer_walk'] = hour
		rex['relationship'] += 1
		minut += iif(daystage = 5 or sunWeather = 0, 10, 15)

		act 'Return home': gt 'mod_wlife_rex', 'end', 'check'

		if daystage = 5:
			'<center><img <<$set_imgh>> src="mod/wlife/images/activities/walk_night_'+rand(0,2)+'.jpg"></center>'
			'It''s too '+iif(hour < 9, 'early', 'late')+' to go for a long walk or play with him. You only take him around the neighborhood until he has finished his business.'
		elseif sunWeather = 0:
			'<center><img <<$set_imgh>> src="mod/wlife/images/activities/walk_rain.jpg"></center>'
			'The weather is horrible and a long walk is out of the question. You only walk with him around the neighborhood until he has finished his business.'
		else
			'<center><img <<$set_imgh>> src="mod/wlife/images/activities/walk_day_'+rand(0,4)+'.jpg"></center>'
			'He stops every few meters to sniff something interesting, happily greet another dog or mark his territory. Sometimes you stay and chat with another dog owner for a minute or two before you finally reach the park. You untie his leash, when you reach the area marked for dogs, and let him roam free for a while.'

			act 'Play with him (0:10)':
				*clr & cla
				minut += 10
				pcs_mood += 10
				rex['relationship'] += iif(objects['toys'] = 1, 2, 1)
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/wlife/images/activities/play_outside_'+rand(0,3)+'.jpg"></center>'
				'You '+iif(objects['toys'] = 1, 'pull out one of your balls', 'pick up a branch')+'. He wags his tail happily knowing what''s going to happen next. "Catch," you say and throw the '+iif(objects['toys'] = 1, 'balls', 'branch')+' as far as you can. He barks and runs after it, picking it up from the ground and proudly returns it to you. '+iif(objects['toys'] = 1, 'He seems to enjoy playing fetch even more with his toy balls. ', '')+'You continue this for ten minutes before you finally...'

				act '... return home': gt 'mod_wlife_rex', 'end', 'check'
			end
		end
	else
		rex['timer_walk'] = hour
		rex['relationship'] += 3
		pcs_mood += 20
		sunWeather = 1
		gs 'sweat', 'add', 20
		gs 'exercise', 'tier1', 60, 'run_exp'
		fat -= rand(1,3)
		'<center><img <<$set_imgh>> src="mod/wlife/images/activities/run_'+iif(daystage = 1 or daystage = 3 or daystage = 4 or daystage = 6, 'sunset', rand(0,1))+'.jpg"></center>'
		'<<$rex[''name'']>> runs around you excitingly as you put on your running shoes. He really loves to go on a run with you. "Yes," you say with a smile. "We''re going for a run. Are you ready?" He wags his tail. "Alright, let''s go <<$rex[''name'']>>."'
		'You head out and start your run. Most of the time <<$rex[''name'']>> follows obediently, sometimes he stops to sniff or mark his territory, but he always returns to your side, when you''re too far away.'
		'An hour later you return home exhausted and sweaty.'

		act 'Continue': gt 'mod_wlife_rex', 'end', 'check'
	end

	gs 'stat'
end

if $ARGS[0] = 'play_inside':
	*clr & cla
	minut += 20
	pcs_mood += 20
	rex['relationship'] += 2
	rex['play_inside'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/activities/play_inside_'+rand(0,3)+'.jpg"></center>'
	'You cavort with <<$rex[''name'']>> in '+iif($loc = 'mod_wlife_hotelroom', 'your hotel room', 'the apartment')+' and lavish him with all the attention a good boy like him deserves. You get one of his toy balls and roll it around the apartment playing a safe version of indoor catch. He still loves it or to be more accurate he loves the attention he gets. At the end you two cuddle up on the couch and you spend the last few minutes casually stroking his soft fur.'

	act 'Stop playing': gt 'mod_wlife_rex', 'end'
end

if $ARGS[0] = 'bath':
	*clr & cla
	minut += 25
	rex['count_bath'] -= 1
	rex['relationship'] += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/activities/bath.jpg"></center>'
	'"Come <<$rex[''name'']>>, time to take a bath," you say and open the door to the bathroom. <<$rex[''name'']>> looks a bit confused. "Come on boy," you say clicking your fingers and he finally follows you inside.'
	'The first step is brushing his fur, because matted hair holds water which could result in irritated skin. Afterwards you try to get him inside the '+iif($loc = 'mod_wlife_hotelroom', 'shower.', 'tub.')+' It takes a few tries to convince him, but he follows you inside after you have taken of your '+iif(CloSkirtShortness > 0, 'skirt.', 'pants.')
	'"Stay," you say in a calm and reassuring voice and only use lukewarm water and a gentle dog shampoo.'

	act 'Continue': gt 'mod_wlife_rex', 'end'
end

if $ARGS[0] = 'sniff':
	*clr & cla
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/animals/rex_sniff_'+iif($ARGS[1] = 'inside', 'inside', 'outside')+'.jpg"></center>'
	'He suddenly pushes his nose between your legs rubbing it against your crotch. "<<$rex[''name'']>>...," you stammer surprised. "What are you doing?"'

	act 'Push him away (Blocks all sexual content)':
		*clr & cla
		minut += 1
		rex['relationship'] -= 5
		rex['status'] = 2
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/animals/rex_sniff_stop.jpg"></center>'
		'"Stop it," you hiss and push his nose away from your private parts. "Bad dog," you add in a stern voice. He looks at you with his big eyes, but you stand firm and keep his nose away with your hand. "No, don''t do that."'

		act 'Continue': gt 'mod_wlife_rex', 'end'
	end

	act 'Encourage him (Unlocks sexual content)':
		cla & *nl
		minut += 2
		pcs_horny += 10
		rex['relationship'] += 10
		rex['love'] += 2
		rex['status'] = 3
		gs 'stat'
		'"Like how I smell?" you ask him as his nose pushes into your private parts and the initial shock has passed. He wags his tail and your pussy tingles pleasantly as you remember the porn video you have seen at Alexei''s apartment. You know that you should stop this behavior, but you can''t get the woman and her dog out of your head. "Yes, sniff it. Sniff my pussy." For him it''s not sexual, just normal behavior. They explore the world with their noses. It''s the same as humans looking at things with their eyes, but for you it''s completely different.'

		act 'Continue': gt 'mod_wlife_rex', 'end'
	end
end

!!--- Name ---

if $ARGS[0] = 'name':
	*clr & cla
	menu_off = 1
	rex['status'] = 1
	rex['count_walk_base'] = 2
	rex['count_feed_base'] = 2
	rex['count_bath_base'] = 1
	rex['count_walk'] = rex['count_walk_base']
	rex['count_feed'] = rex['count_feed_base']
	rex['count_bath'] = rex['count_bath_base']
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/animals/rex.jpg"></center>'
	$rex['name'] = input("What is the name of your dog? (Leave blank for Rex)")
	if $rex['name'] = '': $rex['name'] = 'Rex'

	act 'Continue': $status['dog'] = 'active' & gt 'mod_wlife_rex', 'end'
	act 'Remove the dog (can be restored later in the cheatmenu)': $status['dog'] = 'blocked' & gt 'mod_wlife_rex', 'end'
end

!!--- End ---

if $ARGS[0] = 'end':
	if $ARGS[1] = 'check':
		if rand(1,100) < min(rex['love'], 50) and rex['status'] < 2 and $wl_fetish['bestiality'] = 'active':
			gt 'mod_wlife_rex', 'sniff', 'outside'
		elseif rex['love'] > 40 and rand (1,10) > 5 and rex['kiss_day_outside'] ! daystart and $wl_fetish['bestiality'] = 'active' and rex['status'] > 2:
			*clr & cla
			minut += 2
			rex['love'] += 1
			rex['kiss_day_outside'] = daystart
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/activities/kiss_outside.jpg"></center>'
			'"Wait a second," you tell <<$rex[''name'']>> and squat down next to him. You stick out your tongue and he immediately jumps at the opportunity to lick it. Your tongues dance around each other for a few moments before you get back up and ...'

			act '... return home': gt 'mod_wlife_rex', 'end'
		else
			gt 'mod_wlife_rex', 'end'
		end
	else
		gt $loc, $loc_arg
	end
end

--- mod_wlife_rex ---------------------------------