# bed1

if $ARGS[0] = 'sogn':
	cla
	*clr
	dogday = daystart
	'<center><img <<$set_imgh>> src="images/beast/zoo/2.jpg"></center>'
	'You undress and lie down on the bed <<$namesob>> brazenly jump onto the bed and starts licking your pussy'
	gs 'arousal', 'cuni', 10, 'beast'
	gs 'stat'
	act 'Succumb to the desire':gt 'bed1', 'sog2'
	act 'Kick the dog out':gt 'bed', 'start'
end

if $ARGS[0] = 'sog1':
	if zoo >= 6 and sobaka ! 0:
		if husband > 0 and husbandrink ! 10:
			if hour > 22 or hour < 7:
				cla
				*clr
				gs 'boyStat', $petID
				'<center><img <<$set_imgh>> src="images/beast/zoo/z1.jpg"></center>'
				'You undress and lie down on the bed <<$namesob>> brazenly jumps onto your bed and starts licking your pussy.'
				gs 'arousal', 'cuni', 30, 'sub', 'beast'
				gs 'stat'
					
				if harakHusb = 0:
					'"What''s he doing dear, stop him." cries your husband'
					'"I can''t, I''m trying." you reply.'
					husband -= 1
					'<<$husName>> trys to shove the dog, but he growls and snarls. "I can''t get it off you, what should I do dear?" he asks.'
					'"Think of something." you reply, already slightly moaning with pleasure. <<$husName>> starts to rummage through the room.'
					'Periodically, he tries to shoo the dog, but he''s growled off. With <<$husName>> pacing the room dog begins trying to jump you.'
					'"Oh my God, what is he going to do?" shrieked <<$husName>>, Seeing the dogs attempts to jump you.'
					'"Somehow you still haven''t realised that he wants to fuck me" you shout.'
					'"Dear, pleaase try to stop him" pleads your husband.'

					act 'Try':
						cla
						*clr
						gs 'cum_call', '', $namesob, 1, 0, -1, 60
						'<center><img <<$set_imgh>> src="images/beast/zoo/z2.jpg"></center>'
						'You reluctantly start trying to push the dog and off you, but as you push him backwards, <<$namesob>> leans on you with all his weight. You feel his penis rubs against your thighs searching for your hole.'

						if izvratH = 0:
							'"Oh my God, I can''t watch this," cries your husband slamming the door and running. Meanwhile, the dogs member has found a hole and he starts fucking you.'
							'You moan as the arousal becomes too much, soon you orgasm. A few seconds later <<$namesob>> cums inside you, pulls away and runs out into the corridor.'
							dynamic $dogpot
							spafinloc = 0
							sexpartkno = 1
							$orgasm_or = 'yes'
							gs 'arousal', 'vaginal', 10, 'beast'
							gs 'arousal', 'end'
							gs 'stat'
							gs 'Cum_Manage'
							'Your husband comes back, you are still on all fours with dog sperm flowing from your pussy.'
							'"I''ll take him and have him put down," says <<$husName>>'
						elseif izvratH = 1:
							'"Get the fuck off of her!" shouts <<$husName>> at the dog, to little effect. Meanwhile, the dogs member has found a hole and he starts fucking you.'
							'You moan as the arousal becomes too much and your husband deciding that your movement is an attempt to escape, shouts, "Yes <<$pcs_nickname>> wiggle more, I think you''re loosening his grip."'
							'Soon you orgasm. A few seconds later <<$namesob>> cums inside you, then pulls away and runs out into the corridor.'
							dynamic $dogpot
							spafinloc = 0
							sexpartkno = 1
							$orgasm_or = 'yes'
							gs 'arousal', 'vaginal', 10, 'beast'
							gs 'arousal', 'end'
							gs 'stat'
							gs 'Cum_Manage'
							'Your husband looks at you on all fours, ass in the air, canine semen flowing out of your pussy.'
							'"I''ll take him and have him put down," says <<$husName>>'
						end

						act 'Allow':
							sobaka = 0
							killvar '$petID'
							zoo = 0
							gt 'bedr'
						end

						act 'Stop him':
							cla
							'"No dear, he is not guilty, he has instincts, I''ll take it for mating and he will calm down," you say.'
							'"Fine dear, whatever you say."'
							act 'Finish':gt 'bedr'
						end
					end
				elseif harakHusb = 1:
					'"Your dog is completely out of control, take it out onto the street, bitch, and then kill it." your husband says.'
					'"I can not do that myself." you reply.'

					if izvratH = 0:
						'<<$husName>> tries picking the dog up but he growls and bares his teeth. So he goes to the bathroom and comes back with some old sheets.'
						'Throwing them over the dog and picking up the corners is able to pick up <<$namesob>> in his improvised bag.'
						'"I''ll have him put down." says <<$husName>>'

						act 'Allow':
							sobaka = 0
							killvar '$petID'
							zoo = 0
							gt 'sitr'
						end

						act 'Stop him':
							cla
							'"No dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down." you said.'
							'"Okay, whatever, it''s your dog."'
							act 'Finish':gt 'bedr'
						end
					elseif izvratH = 1:
						'"Can not or don''t want to." says <<$husName>> smiling and continues to sit and watch as the dog licks you.'
						'"Does not want to, I guess" you reply and deliberately push your legs apart. <<$husName>> looks as you moan while the dog licks you.'
						'Suddenly he gets up pulls out his dick brings to your mouth.'
						gs 'arousal', 'cuni', 10, 'beast'
						gs 'stat'
						act 'Suck husband':
							cla
							*clr
							gs 'cum_call', 'mouth', $husName
							gs 'boyStat', $husID
							'<center><img <<$set_imgh>> src="images/beast/zoo/z3.jpg"></center>'
							'You grab his cock and take it on your mouth, soon begins your pleasure center lights up and your whole body is racked by your orgasm.'
							'Seconds later <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his fading dick. Encouraged the dog begins trying to climb onto you, looking for a more.'

							gs 'boyStat', $husID
							gs 'arousal', 'bj', 3, 'sub'
							gs 'arousal', 'vaginal', 3, 'beast'
							minut -= 3
							gs 'arousal', 'end'
							'"This is too much" says <<$husName>> and tried to shoo your dog out, but he growls and bares his teeth.'
							'<<$husName>> goes to the bathroom and comes back with some old sheets.'
							'Throwing them over the dog and picking up the corners is able to pick up <<$namesob>> in his improvised bag.'
							'"I''ll have him put down." says <<$husName>>'

							act 'Allow':
								sobaka = 0
								killvar '$petID'
								zoo = 0
								gt 'sitr'
							end

							act 'Stop him':
								cla
								'"No dear, he is not guilty, he has instincts, besides he tried very hard." you said.'
								'"Well, if he was trying so hard, maybe you should thank him" your husband suggests.'

								act 'Jerk the dog':
									cla
									*clr
									husband -= 1
									gs 'cum_call', 'hands', $namesob, 1, 0, -1, 60
									'<center><img <<$set_imgh>> src="images/beast/zoo/z6.jpg"></center>'
									'You take the dogs dick in your hand and begin to masturbate, after a few minutes you dog cums in your hand.'
									gs 'arousal', 'hj', 10, 'beast'
									gs 'arousal', 'end'
									gs 'stat'
									act 'Finish':gt 'bedr'
								end

								act 'Suck the dog':
									cla
									*clr
									swallow += 1
									husband -= 40
									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
									'<center><img <<$set_imgh>> src="images/beast/zoo/z7.jpg"></center>'
									'You lay the dog on the floor and take his cock in my mouth, your husband looks at you with disgust as you suck the dogs cock.'
									'In a couple of minutes the dog cums in your mouth and you swallow his sperm.'
									'"Well, you''re a pervert, " your husband says with obvious distaste.'
									gs 'arousal', 'bj', 10, 'beast'
									gs 'arousal', 'end'
									gs 'stat'
									
									act 'Finish':gt 'bedr'
								end

								act 'Finish':gt 'bedr'
							end
						end
					end
				elseif harakHusb = 2:
					'"Your dog is completely out of control, take it out onto the street, bitch, and then kill it." your husband says.'
					'"I can not do it myself." you reply.'

					if izvratH = 0:
						pcs_mood -= 15
						pcs_willpwr -= 15
						'<<$husName>> tries shooing your dog away, but it growls and bares his teeth, so he kicks the <<$namesob>> with all his might.'
						'Your dogs ribs are shattered and screeching he crawls into a corner, your husband follows and kicks it even harder.'
						'Seeing his condition, goto your dog and cradle his head and close your eyes. A few minutes later your dog is dead.'
						'"There''s nothing you can do for your freak dog now." says <<$husName>>. Opening your eyes you see a dead dog in a pool of blood.'
						'"Well, I don''t know about you, but there''s not much point keep a dead dog. I''ll get rid of him." he takes the dog, wraps it in a sheet and goes out.'
						'While he is gone you have some time to scour the blood from the floor.'

						act 'Finish':
							sobaka = 0
							killvar '$petID'
							zoo = 0
							gt 'bedr'
						end
					elseif izvratH = 1:
						'"What do you mean I can not? Do you like the way he licks you?!" shouts <<$husName>>.'
						'"No, of course not," you begin to make excuses.'
						'"I can see you dirty whore, your pussy all wet, you think I don''t see? It would be polite to thank him, " he says.'
						'Seeing your lack of comprehension continues, "Well, go on suck his dick."'

						act 'Suck dogs dick':
							cla
							*clr
							'<center><img <<$set_imgh>> src="images/beast/zoo/z4.jpg"></center>'
							'<<$husName>> grabs the dog by the collar, pushes you to the floor and guides the dog on top of you.'
							'With the dogs ersct penis right in front of your mouth, you realise you have no choice and start sucking.'
							'Your husband, watching you and cheers saying that the dog loves your mouth. Soon he is bored just watching, he dropped his pants says "Spread your legs."'
							gs 'arousal', 'bj', 10, 'beast', 'sub'
							gs 'stat'

							act 'Spread your legs':
								cls
								suprdolg += 1
								gs 'cum_call', '', $HusID
								'<center><img <<$set_imgh>> src="images/beast/zoo/z5.jpg"></center>'
								'You obediently spread your legs and your husband enters your pussy, he makes you keep sucking the dog.'
								'You are not gaining any pleasure from this. Soon your husband cums and says "<<$namesob>> hasn''t finished yet, are you not trying? Fine, Present your ass!."'
								gs 'arousal', 'bj', 10, 'beast'
								gs 'boyStat', $HusID
								gs 'arousal', 'vaginal', 10, 'sub'
								gs 'stat'

								act 'Offer your ass':
									cls
									analorgasm += 1
									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
									'<center><img <<$set_imgh>> src="images/beast/zoo/z8.jpg"></center>'
									'You get on your knees and the dog immediately jumps on you. With one hand you spread your buttocks, and the other guides the dogs cock into your ass.'
									'Finding your hole the dog quickly enters and fucks your ass. Your husband watches, "Go on you whore."'
									'The sensation from the dog fucking your ass is driving you to orgasm, as it hits, your legs give out and you''re no longer able to stand.'
									'The dog twitces and spews his seed in your ass. Spent, <<$namesob>> leaves satisfied.'
									gs 'arousal', 'anal', 10, 'beast'
									gs 'arousal', 'end'
									gs 'stat'

									act 'Finish':gt 'bedr'
								end
							end
						end
					end
				end
			else
				gt 'bed1', 'sogn'
			end
		else
			gt 'bed1', 'sogn'
		end
	end
end

if $ARGS[0] = 'sog2':
	cls
	gs 'boyStat', $petID
	'<center><img <<$set_imgh>> src="images/beast/zoo/sog.jpg"></center>'
	'You take <<$namesob>>s penis in your hand and start masturbating him.'
	gs 'arousal', 'hj', 10, 'beast'
	gs 'stat'
	act 'Take in your mouth':gt 'bed1', 'sog3'
	act 'Spread your legs':gt 'bed1', 'sog4'
end

if $ARGS[0] = 'sog3':
	cls
	'<center><img <<$set_imgh>> src="images/beast/zoo/sog1.jpg"></center>'
	'You greedily swallow <<$namesob>>s dick.'
	gs 'arousal', 'bj', 10, 'beast'
	gs 'stat'

	act 'Spread your legs':gt 'bed1', 'sog4'
end

if $ARGS[0] = 'sog4':
	cls
	gs 'cum_call', '', $namesob, 1, 0, -1, 60
	'<center><img <<$set_imgh>> src="images/beast/zoo/sog2.jpg"></center>'
	'You open your legs and <<$namesob>> fucks your pussy'
	'Finally the dog ends inside you'
	gs 'arousal', 'vaginal', 10, 'beast'
	gs 'arousal', 'end'
	gs 'stat'
	
	act 'Hug the dog and sleep':gt 'bed2'
end

if $ARGS[0] = 'fin':
	cla
	gt $loc, $metka
	!!savegame 'avtosave.sav'

	
	!!if home_owned[1] = 1 and housrA = 1:
	!!	if $clothingworntype = 'nude':
	!!		$nude = 'In the corridor'
	!!	else
	!!		$nude = 'Get dressed'
	!!	end
	!!	housrA = 0
	!!	gt 'bedr'
	!!end

end

--- bed1 ---------------------------------