gl_bestmod/locations/mod_bestmod_kuhr.qsrc

# mod_bestmod_kuhr
if zoo >= 6 and sobaka ! 0:
	if husband > 0 and husbandrink ! 10:
		if hour = 7 and hour = 17:
			act 'Call <<$namesob>>':
				cla
				*clr
				minut += 30
				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z1.jpg"></center>'
				'You call your dog and he runs to you. He pushes his wet nose between your legs and starts licking.'

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

				if harakHusb = 0:
					husband -= 1
					'"OH MY GOD, what is he doing?", your husband yells.'
					'"Help me!", you scream, "He won''t let go!"'
					'<<$husName>> tries to shoo the dog away, but <<$namesob>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
					'"Think of something." you tell him, already moaning slightly with pleasure. <<$husName>> tries to intimidate the dog, continuously yelling at him, but to no avail. Suddenly your dog jumps on top of you.'
					'"Fuck, what is he going to do now?" <<$husName>> screams.'
					'"Isn''t it obvious? He wants to fuck me!" you yell.'
					'"Please, try to free yourself", your husband pleads.'

					act 'Try':
						cla
						*clr
						gs 'cum_call', '', $namesob, 1, 0, -1, 60
						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z2.jpg"></center>'
						'You try to push your dog away and get away from his clutches, but it has the opposite affect of what you''ve intended. <<$namesob>> is now leaning on you and you can feel his dick on your thigh, trying to find its way to your pussy.'
						if izvratH = 0:
							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs dick found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'

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

						elseif izvratH = 1:
							'"Get off of her!" Shouts <<$husName>> at the dog, but your dog doesn''t leave you alone. Meanwhile, your dog''s dick finds its way to your pussy and enters it. You moan, but your husband interprets your movement as an attempt to try to free yourself. "That''s it <<$pcs_nickname>>, you almost freed yourself!"'
							'It doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shock, as your dog''s cum flows out of your pussy...'
							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'

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

						end

						act 'Let him put your dog to sleep':
							sobaka = 0
							zoo = 0
							gt $loc
						end


						act 'It''s just his instincts':
							cla
							'"No dear, it''s not his fault, it''s his instincts, just let him do what he''s supposed to do, he''ll eventually stop", you say.'
							'"Well, whatever you say."'

							act 'Finish':gt $loc
						end
					end
				elseif harakHusb = 1:
					'"Your dog is absolutely crazy, couldn''t you go out on the streets and find him some bitch to hump?", <<$husName>> asks.'
					'"Help me, he won''t stop", you reply.'

					if izvratH = 0:
						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'

						act 'Let him put your dog to sleep':
							sobaka = 0
							zoo = 0
							gt $loc
						end

						act 'It''s just his instincts':
							cla
							'"No dear, it''s not his fault, it''s his instincts, just let him do what he''s supposed to do, he''ll eventually stop", you say.'
							'"Well, whatever you say."'
							act 'Finish':gt $loc
						end
					elseif izvratH = 1:
						swallow += 1
						'"I''m not going to", <<$husName>> chuckles. He leans back into the chair with a sly grin on his face.'
						'"He''s not going to stop" you reply and push your legs apart. <<$husName>> looks on, enjoying your soft moans. Then he suddenly gets up, pulls out his dick, and tells you to suck it.'

						act 'Blowjob':
							cla
							*clr
							gs 'cum_call', 'mouth', $husName
							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z3.jpg"></center>'
							'You grab his cock and take it into your mouth. You suck on his cock for a good two to three minutes, until <<$husName>> ends up cumming in your mouth. You swallow his sperm and clean up his cock. As your husband moves away, your dog stops licking your cunt and positions his dick above your face.'
							'"Woah, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$namesob>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'

							gs 'boyStat', $husID
							gs 'arousal', 'bj', 3, 'sub'
							gs 'arousal', 'vaginal', 3, 'beast'
							minut -= 3
							gs 'arousal', 'end'
							gs 'stat'

							act 'Put your dog to sleep':
								sobaka = 0
								zoo = 0
								gt $loc
							end

							act 'It''s just his instincts!':
								cla
								'"No dear, it''s not his fault, it''s his instincts, just let him do what he''s supposed to do, he''ll eventually stop", you say.'
								'"Well, whatever you say."'
								act 'Jerk your dog off':
									cla
									*clr
									husband -= 1
									gs 'cum_call', 'hands', $namesob, 1, 0, -1, 60
									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z6.jpg"></center>'
									'You take the dogs dick in your hand and begin to stroke it, after a few minutes your dog cums on your hands.'

									act 'Finish':gt $loc
								end

								act 'Suck dog':
									cla
									*clr
									swallow += 1
									husband -= 40
									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z7.jpg"></center>'
									'You order your dog to rollover onto his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust as you suck off <<$namesob>>. After a few minutes you feel your dog''s cock throbbing as he cums in your mouth.'
									'"My god. What kind of pervert are you?" <<$husName>> asks, with obvious disgust.'

									gs 'arousal', 'bj', 5, 'beast'
									gs 'arousal', 'end'
									gs 'stat'

									act 'Finish':gt $loc
								end

								act 'Finish':gt $loc
							end
						end
					end
				elseif harakHusb = 2:
					'"Your dog is absolutely crazy, couldn''t you go out on the streets and find him some bitch to hump?", <<$husName>> asks.'
					'"Help me! He''s not stopping!" you reply.'

					if izvratH = 0:
						pcs_mood -= 15
						pcs_willpwr -= 15
						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$namesob>> growls angrily. Then <<$husName>> kicks your dog in the ribs. <<$namesob>> whimpers and your husband continues to kick him over and over again.'
						'"I better never see you doing something like this ever again.", <<$husName>> says. As you open your eyes you see your dog lying dead on the floor in a pool of his own blood.'
						'"I''m going to take this little shit outside and throw it away", your husband says as he wraps the dog into an old sheet. "Now clean these blood stains up. I don''t want to buy a new carpet," <<$husName>> orders you, as he makes his way out to the garbage cans.'

						act 'Finish':
							sobaka = 0
							zoo = 0
							gt $loc
						end
					elseif izvratH = 1:
						swallow += 1
						spafinloc = 12
						gs 'cum_manage'
						'"What do you mean ''you can''t stop him''? Do you like the way he licks you?" <<$husName>> shouts.'
						'"No, of course not!", you try to explain.'
						'"And yet I see you here with your legs spread apart and your juices gushing out of your cunt like a bitch, while your shitty dog licks your pussy." he says. "Well, you know what, why don''t you show me how much of a bitch you are. Go on, suck his cock."'

						act 'Suck <<$namesob>> cock':
							cla
							*clr
							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z4.jpg"></center>'
							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$namesob>> cock is just above your face. You take his cock into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitch mouth.'
							'It seems like just being part of the audience doesn''t quite satisfy him, so he orders you to spread your legs.'

							gs 'arousal', 'bj', 5, 'beast', 'sub'
							gs 'stat'

							act 'Spread your legs':
								cla
								*clr
								suprdolg += 1
								gs 'cum_call', '', $HusID
								'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z5.jpg"></center>'
								'You obediently spreads your legs apart and your husband pushes his cock into your pussy. The first few times he moves slowly, but he soon starts to get very rough. He doesn''t need long before he cums deep inside your pussy.'
								'He looks at the dog, "Seems like that shit isn''t done yet. Let''s try something else. Turn around, bitch," he orders. "Let''s see if he likes your asshole more than your mouth."'

								gs 'boyStat', $HusID
								gs 'arousal', 'vaginal', 5, 'sub', 'rough'
								gs 'arousal', 'anal', 5, 'beast'
								minut -= 5
								gs 'stat'

								act 'Anal Sex':
									cla
									*clr
									analorgasm += 1
									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z8.jpg"></center>'
									'You turn around and position yourself on all fours. <<$namesob>> immediately jumps on you. You spread your buttocks apart with one hand and he start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch," your husband comments and leaves the room. Your dog increases his speed, pumping his knot in and out of your ass and, you have to admit, it starts to feel really good. For several minutes <<$namesob>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'

									$orgasm_or = 'yes'
									gs 'arousal', 'end'
									gs 'stat'

									act 'Finish':gt $loc
								end
							end
						end
					end
				end
			end
		else
			act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof27'
		end
	elseif husband = 0 or husbandrink = 10:
		act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof27'
	end
end
--- mod_bestmod_kuhr ---------------------------------