gl_bestmod/locations/mod_bestmod_petdog.qsrc

# mod_bestmod_petdog
menu_off = 1

!! Set a default large volume of sperm for pet dog
sexvolume = rand(100, 200)

if $ARGS[0] = 'start':
	cls
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog2.jpg"></center>'

	if zoo >= 6 and bm_dog_once_day ! daystart: bm_dog_once_day = daystart & gt 'mod_bestmod_petdog', 'hardcoredog'
	if pcs_horny >= 50 and pcs_vag > 0 and husband = 0:act 'Play with <<$namesob>>':gt 'mod_bestmod_petdog', 'gamedog'
	if husband > 0 and week < 6 and hour < 17 and hour > 7:act 'Play with <<$namesob>>':gt 'mod_bestmod_petdog', 'gamedog'

	if bm_rex_setup ! 1: bm_rex_setup = 1 & gs 'mod_bestmod_petdog', 'rex_setup'

	act 'Walk <<$namesob>>':
		cls
		minut += 30
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog_walk.jpg"></center>'
		'<center><b>You take <<$namesob>> for a walk.</b></center>'

		act 'Go back home':gt $loc, $metka

		if pcs_horny >= 70 and zoo > 0 and streetdogday ! daystart:act 'Coitus':gt 'mod_bestmod_petdog', 'polactdog'
	end

	act 'Leave':gt $loc, $metka

	act 'Have <<$namesob>> put down':
		cls
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog2.jpg"></center>'
		'<<$namesob>> puts on his saddest face and whimpers'

		act 'Aww... I can''t do it': gt $loc, $metka

		act 'Do it':
			sobaka = 0
			zoo = 0
			minut += 60
			'You take your dog to the vet, who puts him down.'
			gt $loc, $metka
		end
	end
end

if $ARGS[0] = 'polactdog':
	cls
	streetdogday = daystart

	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/first.jpg"></center>'
	'After looking around and making sure that no one is around you take off your clothes.'
	'The dog''s slick but rough tongue begins licking your pussy. The rhythmic action of the dog''s tongue sends waves of excitement through your body, causing an involuntary moan to escape your lips.'
	'A few minutes later, the dog stops licking and starts attempting to capture his bitch. To help him, you kneel on all fours. The dog mounts you, sliding his throbbing member against your snatch.'

	gs 'arousal', 'cuni', 10, 'beast'
	gs 'stat'

	act 'Put his member in your vagina':
		cls
		pcs_vag += 3
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/vag.jpg"></center>'
		'You reach back to him and begin to massage his sack, where his throbbing member protrudes from. You start to masturbate him. His dick grows before your eyes, turning into a formidable penis in your hand. You guide him a little and he enters you. He does the rest himself, abruptly pushing his member hungrily into your pussy. You groan with the first blow, and after three strokes, you are fully strung on his member. <<$namesob>> began to thrust with long, strong strokes, each time pushing his member to the hilt. The dog pulls his member almost completely out, leaving only 2 cm inside. Then he abruptly pushes it to its full length with a powerful thrust. The champ goes deep into your vagina, your sex lips tightly wrapping around it in pleasure. Several orgasms follow one another, in surging waves. The dog gains pace, gripping you with his paws, pounding his cock into the depths of your vagina.'

		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal', 10, 'beast', 'rough'
		gs 'stat'

		act '....':
			cls
			gs 'cum_call', '', $petID, 1, 0, -1, 60
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/vag2.jpg"></center>'
			'You push your ass higher and rest his paws on the ground, making it more comfortable for the male''s dick. Your pussy greedily swallows every centimeter of his member, milking him, squeezing along the entire length. Your pussy burns and drips with love juice, some of it trickling down his thighs and dripping to the ground. The thrusts of the dog become stronger and more violent. Soon he begins to growl and you push your ass against his penis, trying to swallow more of it. Your pussy walls squeeze as his cock grows inside, and he drives his cock to the balls. His knot expands in your pussy, pushing against your walls, tightly binding you together. The dog tries to escape, but his member is firmly stuck in your pussy. You squeeze it tight at the base, determined not to be released until it pumps his bitch full of sperm. You scream when the sperm finally hits, filling your throbbing pussy completely. His thick, hot sperm feels warm inside you.'
			'His member is spent, throbbing in your depths. Your pussy milks him of his semen, sucking in every last drop. Cum begins to flow down your legs, trickling down your thighs. You are completely filled with his sperm. The dog struggles and moves around, but you stay tied together for a few minutes with his knot in his prize. Eventually, his knot loosens and you are released from him. You fall to the ground, the dogs thick spunk flowing out of your pussy and pooling around you on the ground.'

			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 10, 'beast', 'rough'
			gs 'arousal', 'end'
			gs 'stat'

			if QWdogReiq > 0:act 'Leave':gt $loc, $metka
			if QWdogReiq = 0:act 'Leave':gt 'mod_bestmod_petdog', 'dogreiqdi'
		end
	end

	act 'Put his dick in your ass':
		cls
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/anal.jpg"></center>'
		'Kneeling in an excited state, the member of the Dog slips into your ass. your anus was spread because of the uncomfortable position and with your strongly relaxed muscles he cock slipped inside very easily. Sharp rhythmic movements caused both pain and pleasure, orgasm followed orgasm. But then with a sharp movement he thrusts deep inside, his knot swelling inside your sphincter which tightly wraps around it, thereby sealing your anus completely.'

		$orgasm_or = 'yes'
		gs 'arousal', 'anal', 10, 'beast', 'rough'
		gs 'stat'

		act '....':
			cls
			gs 'cum_call', 'anus', $petID, 1, 0, -1, 60
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/anal2.jpg"></center>'
			'You feel it as he starts spewing his liquid inside your ass. You''ve held in the position for a few minutes, but the knot at the base of his penis hasn''t decreased, and the bored dog begins to pull out of your anus, growling. In pain you start yelling, feeling like his huge cock will rip your anus in two. There is a distinctive "schlpop!" sound as his cock pops out of your ass, which gushes sperm mixed with secretions from your anus down your belly.'

			$orgasm_or = 'yes'
			gs 'arousal', 'anal', 10, 'beast', 'rough'
			gs 'arousal', 'end'
			gs 'stat'

			if QWdogReiq > 0:act 'Leave':gt $loc, $metka
			if QWdogReiq = 0:act 'Leave':gt 'mod_bestmod_petdog', 'dogreiqdi'
			end
	end
end

if $ARGS[0] = 'dogreiqdi':
	cls
	QWdogReiq = 1
	QWdogreiqTimer = 7
	minut += 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/girl.jpg"></center>'
	'Once you calm down and adjust yourself, you kiss <<$namesob>> and decide to head home. Recovering after intercourse, you struggle to your feet. While adjusting your clothes, you notice a girl. She watches with curiosity and excitement explicitly looking for all your shows. The girl opens her mouth and wants to say something, but stops and runs away. You watch in a mild surprise, but also the fact that you were watched getting filled. You call <<$namesob>> and go home.'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'gamedog':
	cla
	*clr
	pcs_horny += 30
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/1.jpg"></center>'
	'You call <<$namesob>> to your bed, so that you can play with him. You kiss him, play with legs and stroke his neck and stomach.'
	'Suddenly, your pussy starts to itch. You can''t understand why, but you strongly want sex. Then, seeing <<$namesob>> penis poking out of its sheeth, you have a crazy idea.'
	'You could have some fun playing with his member.'

	act 'Leave':pcs_dom += 5 & gt $loc, $metka

	act 'Get licked':
		cla
		*clr
		zoo += 1
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/2.jpg"></center>'
		'You lean back against the wall and spread your legs. Using your hand, you guide <<$namesob>> to your hole.'
		'Your pooch understands, and begins to lick your pussy with his tongue. It''s strange and pleasant.'
		'His tongue licks all of your pussy at the same time. It is very unusual, but you decide to change position.'

		gs 'arousal', 'cuni', 10, 'beast'
		gs 'stat'

		act 'Change position':
			cla
			*clr
			os += 10
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/4.jpg"></center>'
			'He licks your flower with his huge, rough tongue. For a fuller experience, you spread your delicate petals, further increasing the sensation.'

			gs 'arousal', 'cuni', 10, 'beast'
			gs 'stat'

			act 'More actions':gt 'mod_bestmod_petdog', 'gamedog'
		end
	end

	act 'Suck it':
		cla
		*clr
		zoo += 1
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/3.jpg"></center>'
		'You push your dog onto the floor, and lie on your back. With one hand you hold his balls. Then, closing your eyes, touch his penis with your tongue.'
		'It feels very different to a human penis against your tongue, but it''s not so scary. You suck this dick until it''s swollen and his veins start to protrude.'
		'When it reaches the desired size, you start to wonder if you could have sex with <<$namesob>>.'

		gs 'arousal', 'bj', 10, 'beast'
		gs 'stat'

		act 'More actions':gt 'mod_bestmod_petdog', 'gamedog'
	end

	if zoo > 6:
		act 'Have sex with your dog':
			cla
			*clr
			pcs_vag += 3
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/5.jpg"></center>'
			$bm_soba_virgin_react = iif(pcs_vag = 0, 'You feel <<$namesob>>''s cock pushing against your hymen. Finally, you feel a sharp pain as it gives way to his eager prodding. You have lost your virginity to a dog.', 'Vaginal sex with a pet is very unusual.')
			'Realizing <<$namesob>> is now hungry for sex, you excitedly guide him into your wet cunt. <<$bm_soba_virgin_react>>'
			'Your dog fucks you in powerful spurts. He thrusts deep into your crotch, and an animal brings you to a shuddering orgasm.'
			'Not wanting a bow-wow-creampie you use your feet to push <<$namesob>> away and his cock comes free. It became clear what will happen next.'
			'You very quickly bring your face to his member, so as not to miss the chance to taste your pet''s cum.'

			gs 'arousal', 'vaginal', 10, 'beast', 'rough'
			gs 'stat'

			act 'Take it':
				cla
				*clr
				gs 'cum_call', 'face', $petID, 1, 0, -1, 60
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/9.jpg"></center>'
				'Your sexy dog completes with a powerful ejaculation, which blasts all over your face, getting a few drops in your mouth.'
				'It tastes the same as human sperm, and you love it.'

				$orgasm_or = 'yes'
				gs 'arousal', 'bj', 5, 'beast'
				gs 'arousal', 'end'
				gs 'stat'

				if REXQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'

				act 'Release <<$namesob>> and go':gt $loc, $metka
			end
		end
	end
end

if $ARGS[0] = 'hardcoredog':
	cla
	*clr
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof.jpg"></center>'
	'You go to <<$namesob>>, who''s in a playful mood. He begins to wag his tail and his nose pokes between your legs.'

	act 'Kiss <<$namesob>>':
		cla
		*clr
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof1.jpg"></center>'
		'You kneel in front of <<$namesob>> face to face, and kiss him.'

		act 'Take <<$namesob>> to the bedroom':
			cla
			*clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa.jpg"></center>'
			'You undress and lie down on the bed putting <<$namesob>>''s mouth to your honeypot. He begins to carefully lick your pussy'
			'You start to feel the warmth as your arousal builds.'

			$orgasm_or = 'no'
			gs 'arousal', 'cuni', 5, 'beast'
			gs 'stat'

			act 'Wank the dog':
				cla
				*clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/sog.jpg"></center>'
				'You stroke and caress <<$namesob>>''s cock.'
				'Your juices start to flow.'

				gs 'arousal', 'hj', 5, 'beast'
				gs 'stat'

				act 'Blow <<$namesob>>':
					cla
					*clr
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa1.jpg"></center>'
					'You lick <<$namesob>>''s dick and choke it down.'
					'You are going crazy with excitement'

					gs 'arousal', 'bj', 10, 'beast'
					gs 'stat'

					act 'Doggy doggy':
						cla
						*clr
						pcs_vag += 3
						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa2.jpg"></center>'
						'<<$namesob>> jumps on you and starts to rub his cock against your vagina'
						'You are shaking with the need for release and must have something inside you'

						gs 'arousal', 'vaginal', 5, 'beast'
						gs 'stat'

						act 'Missionary <<$namesob>>':
							cla
							*clr
							gs 'stat'
							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa3.jpg"></center>'
							'You lie down on your back and your dog pushes his dick into your hole, then pumps forcefully.'

							gs 'arousal', 'vaginal', 5, 'beast'
							gs 'stat'

							act 'Wrap legs':
								cla
								*clr
								gs 'stat'
								'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa4.jpg"></center>'
								'You wrap your legs around <<$namesob>> and fuck with him'
								'Your orgasm is upon you, but you manage to surpress it for now.'

								gs 'arousal', 'vaginal', 5, 'beast'
								gs 'stat'

								act 'Cowboy dog':
									cla
									*clr
									gs 'stat'
									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa5.jpg"></center>'
									'You roll over and straddling your dog are able to set your own pace.'
									'Your sexual desire has taken full control of your body as your mind drifts.'

									gs 'arousal', 'vaginal', 5, 'beast'
									gs 'stat'

									act 'Take me doggie':
										cla
										*clr
										gs 'stat'
										'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa6.jpg"></center>'
										'Your dog starts pawing at you so you jump off and get onto all fours, yeilding control.'
										'<<$namesob>> jumps onto you and rams his cock into your well worked pussy.'
										'This is too much for you and you can''t hold on any longer.'

										gs 'arousal', 'vaginal', 5, 'beast'
										gs 'stat'

										act 'Take me to Nirvana, <<$namesob>>':
											cla
											*clr
											gs 'cum_call', '', $petID, 1, 0, -1, 60
											gs 'stat'
											'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa7.jpg"></center>'
											'You cling to the dog as he starts cumming inside you.'

											gs 'arousal', 'vaginal', 5, 'beast'
											$orgasm_or = 'custom'
											$orgasm_txt = 'Screaming <<$namesob>>''s name, your dam breaks and you orgasm so hard you forget your own name.'

											'Sometime later, having calmed down, you slowly regain your senses.'

											gs 'arousal', 'end'
											gs 'stat'

											act 'Get out of bed':gt $loc, $metka

											if REXQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'
										end
									end
								end
							end
						end
					end
				end
			end
		end

		act 'Take <<$namesob>> to the living room':
			cla
			*clr
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof3.jpg"></center>'
			'You go into the hall, undress and sit on the sofa. <<$namesob>> is very excited and jumps on you'

			act 'Push <<$namesob>> off you':
				cla
				*clr
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof4.jpg"></center>'
				'You try to push your dog off you, but <<$namesob>> no longer seems interested in obeying you.'

				act 'Continue resisting':
					cla
					*clr
					pcs_vag += 3
					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof5.jpg"></center>'
					'Your struggle with <<$namesob>> fails.	<<$namesob>> puts his paws on your shoulders and, pushing you down, enters your pussy.'
					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof6.jpg"></center>'

					gs 'arousal', 'vaginal', 5, 'beast'
					gs 'stat'

					act 'Lift your legs':
						cla
						*clr
						gs 'stat'
						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof7.jpg"></center>'
						'You have no choice so you embrace the passion with doggie.'
						'You are close to orgasm.'

						gs 'arousal', 'vaginal', 5, 'beast'
						gs 'stat'

						act 'Only your mouth for doggie':gt 'mod_bestmod_petdog', 'cumshot1'
						act 'Let him finish inside':gt 'mod_bestmod_petdog', 'cumshot2'
					end
				end
			end

			act 'Offer your ass':
				cla
				*clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof10.jpg"></center>'
				'You turn your back and get on all fours.'
				'With your help <<$namesob>> finds your ass with his cock and rides you like you''re his bitch.'
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof9.jpg"></center>'

				gs 'arousal', 'anal', 5, 'beast'
				gs 'stat'

				act 'Take his load in your mouth':gt 'mod_bestmod_petdog', 'cumshot1'
				act 'Let him finish inside':gt 'mod_bestmod_petdog', 'cumshot2'
			end
		end

		act 'Leave':gt $loc, $metka
	end

	act 'Walk <<$namesob>>':
		cla
		*clr
		minut += 20
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog_walk.jpg"></center>'
		'<center><b>You walk <<$namesob>> and see that he is very excited.</center></b>'
		act 'Go home':gt $loc, $metka

		act 'Find somewhere private':
			cla
			*clr
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl1.jpg"></center>'
			'You take <<$namesob>> into the woods behind your house, grab his dick, and start masturbating him.'

			act 'Take off underwear and bend':
				cla
				*clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl2.jpg"></center>'
				'You bend down before <<$namesob>> and he begins to lick your pussy.'
				'You are starting to get wet between the legs.'

				gs 'arousal', 'cuni', 5, 'beast'
				gs 'stat'

				act 'Suck <<$namesob>>':
					cla
					*clr
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl3.jpg"></center>'
					'You greedily suck <<$namesob>>''s dick.'
					'This is even more exciting and you want sex.'

					gs 'arousal', 'bj', 10, 'beast'
					gs 'stat'

					act 'Missionary':gt 'mod_bestmod_petdog', 'zoof14'
					act 'Doggy-Style':gt 'mod_bestmod_petdog', 'zoof15'
				end
			end
		end
	end
end

if $ARGS[0] = 'cumshot2':
	cla
	*clr
	gs 'cum_call', '', $petID, 1, 0, -1, 60
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof8.jpg"></center>'
	'<<$namesob>> discharges into your vagina. You stick together with the dog passionately'

	$orgasm_or = 'custom'
	$orgasm_txt = 'You orgasm.'
	gs 'arousal', 'vaginal', 5, 'beast'

	gs 'arousal', 'end'
	gs 'stat'

	if REXQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'cumshot1':
	cla
	*clr
	swallow += 1
	gs 'cum_call', 'mouth', $petID, 1, 0, -1, 60
	gs 'stat'

	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof11.jpg"></center>'
	'You take <<$namesob>>''s penis into your mouth just as he cums.'

	$orgasm_or = 'custom'
	$orgasm_txt = 'The sensation is enough for you to enjoy a small, but powerful orgasm.'
	gs 'arousal', 'bj', 5, 'beast'

	gs 'arousal', 'end'
	gs 'stat'

	if REXQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'zoof14':
	cla
	*clr
	gs 'cum_call', '', $petID, 1, 0, -1, 60
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl4.jpg"></center>'
	'You take the hold of <<$namesob>>''s cock and start to fuck yourself with it.'

	$orgasm_or = 'custom'
	$orgasm_txt = 'Your dog cums as you bring yourself to orgasm.'
	gs 'arousal', 'vaginal', 5, 'beast'

	gs 'arousal', 'end'
	gs 'stat'

	if REXQW = 0:act 'Look around':gt 'mod_bestmod_petdog', 'zoof16'

	act 'Go home':gt $loc, $metka
end

if $ARGS[0] = 'zoof15':
	cla
	*clr
	gs 'cum_call', '', $petID, 1, 0, -1, 60
	pcs_vag += 3
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl5.jpg"></center>'
	'You turn your back on <<$namesob>>. He jumps on you and starts to fuck you.'

	$orgasm_or = 'custom'
	$orgasm_txt = 'He blows his load inside you, fueling your orgasm.'
	gs 'arousal', 'vaginal', 5, 'beast'

	gs 'arousal', 'end'
	gs 'stat'

	if REXQW =0:act 'Look around':gt 'mod_bestmod_petdog', 'zoof16'

	act 'Go home':gt $loc, $metka
end

if $ARGS[0] = 'zoof16':
	cla
	*clr
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl6.jpg"></center>'
	'You notice a woman in the bushes, naked from the waist down and watching keenly.'

	act 'Talk':
		cla
		*clr
		minut += 5
		REXQW = 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl6.jpg"></center>'
		'You go up to her, wondering what to say.'
		'"I see you really love your doggie." She suddenly blurts out.'
		'"YES!" You call back.'
		'"Come see me, I would like to talk about your wonderful hobby." She says, throwing you a business card as she leaves.'

		act 'Go home': gt $bm_oldloc
	end
end

if $ARGS[0] = 'zoof27':
	cla
	*clr
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh2.jpg"></center>'
	'You called <<$namesob>>'
	'He runs to the kitchen wagging his tail'

	act 'Undress and lick your dog':
		cla
		*clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh1.jpg"></center>'
		'You get naked and sit down. You then try to get <<$namesob>> to lick your pussy. He willingly obliges.'
		'He keeps going until you orgasm and push him away.'

		gs 'arousal', 'cuni', 5, 'beast'
		$orgasm_or = 'yes'
		gs 'arousal', 'end'
		gs 'stat'

		if REXQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'

		act 'Get up and get dressed':gt $loc, $metka
	end

	act 'Undress and play lady dog':
		cla
		*clr
		gs 'cum_call', '', $petID, 1, 0, -1, 60
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh.jpg"></center>'
		'You assume the position. Your doggy ​​jumps on you and starts fucking.'
		'It doesn''t take long for <<$namesob>> to cum inside you.'

		gs 'arousal', 'vaginal', 15, 'beast'
		$orgasm_or = 'yes'
		gs 'arousal', 'end'
		gs 'stat'

		if REXQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'

		act 'Get up and get dressed':gt $loc, $metka
	end
end

if $ARGS[0] = 'zoof30':
	cla
	*clr
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh2.jpg"></center>'
	'You undress and called <<$namesob>>.'
	'He runs into the hall as happy as a monkey with a peanut machine.'

	act 'Lie on sofa and spread your legs':
		cla
		*clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal1.jpg"></center>'
		'Your dog runs up to you and starts licking between your legs.'
		'You start to feel the warmth as your arousal builds.'

		gs 'arousal', 'cuni', 10, 'beast'
		gs 'stat'

		act 'Lie on floor and spread your legs':
			cla
			*clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal4.jpg"></center>'
			'Your dog stands over you and you rub his member.'
			'Your juices start to flow.'

			gs 'arousal', 'hj', 10, 'beast'
			gs 'stat'

			act 'Doggy doggy':gt 'mod_bestmod_petdog', 'dogcancerstyle'
			act 'Face to face fuck':gt 'mod_bestmod_petdog', 'dogmissionarystyle'
		end
	end

	act 'Get on all fours and offer pussy':
		cla
		*clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal.jpg"></center>'
		'<<$namesob>> runs up to you and starts licking between your legs.'
		'You start to feel the warmth as your arousal builds.'

		gs 'arousal', 'cuni', 10, 'beast'
		gs 'stat'

		act 'Lie on floor and spread your legs':
			cla
			*clr
			pcs_horny += 10
			minut += 10
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal4.jpg"></center>'
			'Your dog stands over you and you rub his member.'
			'Your juices start to flow.'

			gs 'arousal', 'hj', 10, 'beast'
			gs 'stat'

			act 'Doggy doggy':gt 'mod_bestmod_petdog', 'dogcancerstyle'
			act 'Face to face fuck':gt 'mod_bestmod_petdog', 'dogmissionarystyle'
		end
	end
end

if $ARGS[0] = 'dogcancerstyle':
	cla
	*clr
	gs 'cum_call', '', $petID, 1, 0, -1, 60
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal3.jpg"></center>'
	'You get on all fours and your dog ​​jumps you and starts fucking your pussy.'
	'It doesn''t take long for <<$namesob>> to cum inside you.'

	$orgasm_or = 'yes'
	gs 'arousal', 'vaginal', 15, 'beast'
	gs 'arousal', 'end'
	gs 'stat'

	if REXQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'

	act 'Get up and get dressed':gt $loc, $metka
end


if $ARGS[0] = 'dogmissionarystyle':
	cla
	*clr
	gs 'cum_call', '', $petID, 1, 0, -1, 60
	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal2.jpg"></center>'
	'You push yourself up on to your feet. From this better angle <<$namesob>> easily finds his way into your pussy.'
	'It doesn''t take long for <<$namesob>> to cum inside you.'

	gs 'arousal', 'vaginal', 15, 'beast'
	$orgasm_or = 'yes'
	gs 'arousal', 'end'
	gs 'stat'

	if REXQW = 1:act 'Call Sonia':xgt 'mod_bestmod_petdog', 'dzoof1'

	act 'Get up and get dressed':gt $loc, $metka
end

if $ARGS[0] = 'dzoof1':
	cla
	*clr
	'Your boy is worn out, what a shame. But you know what to do'

	act 'Find Sonia':
		cla
		'"Hi, it''s me, <<$pcs_nickname>>"'
		'"<<$pcs_nickname>>... <<$pcs_nickname>>? Oh yeah! The girl who really loves dogs?" asks Sonia.'
		'"Yes, that''s me," you respond without even thinking that it''s an odd thing to admit to.'
		'"I''ll meet you in the park in about 20 minutes," Sonia says before hanging up.'

		act 'Run to the park':
			cla
			*clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof1.jpg"></center>'
			'You see Sonia in the park sitting on a bench. You sit beside her.'

			act 'Greet Sonia':
				cla
				*clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof1.jpg"></center>'
				'"Hey"'
				'"Hi." Sonia responds, "Meet, my friend, his name is Rex"'

				act 'Meet Rex':
					cla
					*clr
					minut += 3
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof2.jpg"></center>'
					'You go to the dog and start to play with him.'
					'"Show him your pussy," says Sonia'

					act 'Show him your pussy':
						cla
						*clr
						gs 'stat'
						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof4.jpg"></center>'
						'You undress and begin to play with Sonias dog.'
						'Your pussy moistens and your head is filled with erotic thoughts.'
						'You notice that the dog is excited too.'
						'"I see you have provoked him, you have to calm him down now", says Sonia.'
						'"How?" You ask'
						'"Are you a little slow? Use your lips." says Sonia.'

						gs 'arousal', 'voyeur', 3
						gs 'stat'

						act 'Soothe Rex':
							cla
							*clr
							gs 'cum_call', 'hands', 'A801', 1, 0, -1, 60
							gs 'stat'
							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof3.jpg"></center>'
							'You kneel down and begin to suck Rex, he quickly cums in your mouth.'
							'Sonia smiles and says, "Oh, you slut, seducing my boy. Come here. You will need to be punished."'

							gs 'arousal', 'bj', 3, 'beast'
							gs 'stat'

							act 'Go to Sonia':
								cla
								*clr
								minut += 10
								gs 'stat'
								'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof16.jpg"></center>'
								'Sonia takes your hand and you walk to her apartment, she turns to you and playfully says,'
								'Well? Are you ready for your punishment?'

								act 'You''re ready':
									cla
									*clr
									minut += 5
									gs 'stat'
									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof6.jpg"></center>'
									'"Now it''s my turn to have fun, if you know what I mean" says Sonia'

									act 'Lick it':
										cla
										*clr
										gs 'stat'
										'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof7.jpg"></center>'
										'You are trapped between the Sonias legs, and begin licking her enthusiastically. She begins to get wet.'
										'Rex runs up and pushes you jealously from Sonia.'
										'"Are you feeling left out boy?" Sonia says and begins to play with Rex.'

										gs 'arousal', 'give_cuni', 5, 'sub'
										gs 'stat'

										act 'Watch Sonya and Rex':
											cla
											*clr
											gs 'stat'
											'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof8.jpg"></center>'
											'You watch as Sonia flirts with Rex, dirty thoughts race around your head and you start to get excited.'
											'"Calm and caress him," commands Sonia.'

											gs 'arousal', 'voyeur', 5
											gs 'stat'

											act 'Caress Rex':
												cla
												*clr
												gs 'stat'
												'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof9.jpg"></center>'
												'You began to stroke and caress Rex, noticing that he has gotten quite excited.'

												gs 'arousal', 'hj', 5, 'beast'
												gs 'stat'

												act 'Caress Rexs'' cock':
													cla
													*clr
													gs 'stat'
													'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof17.jpg"></center>'
													'You take the dogs penis in your hands and start to caress it.'
													'Seeing this Sonia takes off her panties and sits on the sofa, her legs spread.'

													gs 'arousal', 'hj', 3, 'beast'
													gs 'stat'

													act 'Watch':
														cla
														*clr
														gs 'stat'
														'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof10.jpg"></center>'
														'Rex runs over to Sonia and starts licking her breasts.'

														gs 'arousal', 'voyeur', 3
														gs 'stat'

														act 'Caress yourself':
															cla
															*clr
															gs 'stat'
															'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof11.jpg"></center>'
															'You remove your panties and begin to stroke your pussy.'
															'Rex notices, and wagging his tail, he runs to you and buries his mouth between your legs.'
															'"Looks like I have competition," Sonia says with a grin, and she gets on all fours.'

															gs 'arousal', 'masturbate', 2
															gs 'arousal', 'cuni', 2, 'beast'
															minut -= 2
															gs 'stat'

															act 'Watch':
																cla
																*clr
																gs 'stat'
																'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof13.jpg"></center>'
																'Rex runs back to Sonia, jumps onto her, and plants his cock in her.'
																'You also take a doggy position and begin to swing your ass invitingly, hoping to win Rex''s attention.'
																'"You want it bitch?" Says Sonia.'

																gs 'arousal', 'voyeur', 3
																gs 'stat'

																act 'Yes, you want it':
																	cla
																	*clr
																	pcs_vag += 3
																	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof14.jpg"></center>'
																	'Sonia takes Rex and puts him in you, his cock quickly entering your pussy.'
																	'"Now lick me!" orders Sonia.'

																	gs 'arousal', 'vaginal', 3, 'beast'
																	gs 'stat'

																	act 'Lick Sonia':
																		cla
																		*clr
																		gs 'cum_call', '', 'A801', 1, 0, -1, 60
																		money += RAND(30,60)
																		gs 'stat'
																		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dzoof15.jpg"></center>'
																		'You greedily lick Sonia''s vagina, making sure to pay special attention to her clit, while behind you Rex keeps thrusting.'
																		'Rex finishes inside you, and Sonia grabs your head moaning as she orgasms. This is enough to push you over the edge.'
																		'After you have come down from your orgasms, Sonia shows you the door and throws you a few bills.'

																		gs 'arousal', 'give_cuni', 20, 'sub'
																		$orgasm_or = 'yes'
																		gs 'arousal', 'vaginal', 20, 'beast'
																		minut -= 20
																		gs 'arousal', 'end'
																		gs 'stat'

																		act 'Leave':gt 'park', 'start'
																	end
																end
															end
														end
													end
												end
											end
										end
									end
								end
							end
						end
					end

					act 'Decline':gt 'park', 'start'
				end
			end

			act 'Change Your Mind':gt 'park', 'start'
		end
	end
end

if $ARGS[0] = 'rex_setup':
	npctemp = 801
	gs 'npcstaticdefaults', 'defaults'
	$npc_dna['A<<npctemp>>'] = '3081104871 3359076800 3939413889 3911496040 3098487725 3546780075 3860974284'
	$npc_firstname['A<<npctemp>>'] = 'Rex'
	$npc_nickname['A<<npctemp>>'] = 'Rex'
	$npc_lastname['A<<npctemp>>'] = 'The Dog'
	$npc_usedname['A<<npctemp>>'] = 'Rex, Sonia''s dog'
	$npc_notes['A<<npctemp>>'] = 'Sonia''s dog'
	npc_cyc['A<<npctemp>>'] = -1
	npc_fert['A<<npctemp>>'] = -1
	$npc_firstpart['A<<npctemp>>'] = 'U'
	$npc_lastpart['A<<npctemp>>'] = 'U'
	$npc_kidpater['A<<npctemp>>'] = 'N'
	npc_gender['A<<npctemp>>'] = 0
	$npc_thdick['A<<npctemp>>'] = 'knotted'
	npc_dick['A<<npctemp>>'] = 30
	npc_spermpot['A<<npctemp>>'] = iif(bm_pc_dog_fert and bm_enable_preg, 20000, -1)
	npc_vag['A<<npctemp>>'] = -1
	npc_hymen['A<<npctemp>>'] = -1
	npc_nips['A<<npctemp>>'] = 1
	$bm_npc_species['A<<npctemp>>'] = 'dog'
end

--- mod_bestmod_petdog ---------------------------------