# bed1
if $ARGS[0] = 'start':
	cla
	clr
	shour = 24 - hour
	gs 'stat'
	shour = 24 - hour
	stimer = 24 - timer

	if $clothingworntype = 'nude':
		'<center><img src="images/pics/bed.jpg"></center>'
	else
		'<center><img src="images/pics/son.jpg"></center>'
	end

	'You lie on the bed. Clock wound <<timer>> hours <<timerM>> minutes.'

	if mop ! 1:'<b><font color="red">Need to wash off makeup before going to bed.</font></b>'

	!! Service on 7 = 17, time 20 = 4

	act 'Set Alarm Clock':gt 'budilnik', 'start'

	if son > 10:
		'You are not tired.'
	elseif son < 10:
		act 'Undress and go to bed':gt 'bed2'
	end

	if dildo > 0 and horny >= 50 and sex > 0:
		act 'Masturbating using dildo':
			cla
			*clr
			horny = 0
			minut += 30
			mastr += 1
			orgasm += 1
			manna += 15
			willpower += 15
			'<center><img src="images/pics/mastr.gif"></center>'
			'You phallus stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'

			act 'Breathe':gt 'bed', 'start'
		end
	end

	act 'Get out of bed':
		cla
		gt 'bed', 'fin'
	end

	act 'Try to sleep':gt 'bed2', 'dosip'
end

if $ARGS[0] = 'sogn':
	cla
	*clr
	horny += 10
	minut += 10
	dogday = day
	'You undressed and lay down on the bed <<$namesob>> brazenly jumped into bed and began to lick your pussy'
	'<center><img src="images/zoo/2.jpg"></center>'

	act 'Succumb to the desire':gt 'bed1', 'sog2'
	act 'Discarded dog':gt 'bed', 'start'
end

if $ARGS[0] = 'sog1':
	if zoo >= 6:
		if husband > 0 and husbandrink ! 10:
			if hour > 22 or hour < 7:
				cla
				*clr
				minut += 30
				'<center><img src="images/zoo/z1.jpg"></center>'
				'You undressed and lay down on the bed <<$namesob>> brazenly jumped into bed and began to lick your pussy.'

				if harakHusb = 0:
					zoo += 1
					horny = 0
					orgasm += 1
					'"What''s he doing dear, stop him, " cries the husband'
					'"I can not, try myself, " you reply.'
					husband -= 1
					'<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away what to do dear?" he asks.'
					'"Think of something." you reply, already slightly moaning with pleasure. <<$husName>> starts to rush through the room, periodically coming to the dog, but hearing his growl off. While <<$husName>> pacing the room dog began to jump on you.'
					'"Oh my God, that he was going to do?" shrieked <<$husName>>, Seeing the dog attempts to jump on you.'
					'"What you do not clear he wants to fuck me" you said.'
					'"Dear try again to free" pleaded husband.'

					act 'Try':
						cla
						*clr
						'<center><img src="images/zoo/z2.jpg"></center>'
						'You reluctantly start trying to push the dog and move away, but it appears to him backwards, and <<$namesob>> leans on you and all your weight is on. You feel his penis rubs against your thighs ischya hole.'

						if izvratH = 0:
							'"Oh my God, I can not look at it, " cried the husband slammed the door and ran. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. My husband came back, and you still were cancer and dog sperm flowed from your pussy.'
							'"I''ll take him now on euthanasia, " said <<$husName>>'
						elseif izvratH = 1:
							'"Well get off of her, " shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes <<$name>> so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
							'"I''ll take him now on euthanasia, " said <<$husName>>'
						end

						act 'Allow':
							sobaka = 0
							zoo = 0
							gt 'bedr'
						end

						act 'Not authorized':
							cla
							'"No, dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down, " you said.'
							'"Well dear, whatever you say."'

							act 'Finish':gt 'bedr'
						end
					end
				elseif harakHusb = 1:
					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
					'"I can not, try myself, " you reply.'

					if izvratH = 0:
						'<<$husName>> tries ottoschit dog but he growls and grins, then he goes to the bath and what that brings old sheets, throwing her to the dog picks up the ends and picks up dog is in improvezirovannom bag.'
						'"I''ll take him now on euthanasia, " said <<$husName>>'

						act 'Allow':
							sobaka = 0
							zoo = 0
							gt 'sitr'
						end

						act 'Not authorized':
							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, look itself, your dog."'
							act 'Finish':gt 'bedr'
						end
					elseif izvratH = 1:
						zoo += 1
						bj += 1
						swallow += 1
						cumlip += 1
						'"Can not or do not want, " said <<$husName>> smiling and continues to sit and watch as the dog you licks.'
						'"It probably does not want" you reply and deliberately pushes the legs wider. <<$husName>> looks like you moan until the dog licks you, and suddenly gets up and pulls out his dick brings to your mouth.'

						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images/zoo/z3.jpg"></center>'
							'You grab his cock and takes his mouth to suck, soon begins to cover you and you end sodragayas whole body in a second <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his dick fading. Soused dog began naprygivat at you with intent nedvuhslyslennymi.'
							'"But this is too much" said <<$husName>> and tried ottoschit dog, but he growls and grins, then he goes into the tub and what that brings an old sheet, threw it at the dog picks up the ends and picks up dog is in the bag improvezirovannom.'
							'"I''ll take him now on euthanasia, " said <<$husName>>'

							act 'Allow':
								sobaka = 0
								zoo = 0
								gt 'sitr'
							end

							act 'Not authorized':
								cla
								'"No, dear, he is not guilty, he has instincts, besides from trying so hard, " you said.'
								'"Well, if he was trying so hard you can thank him" ironically husband.'

								act 'Jerk dog':
									cla
									*clr
									husband -= 1
									'<center><img src="images/zoo/z6.jpg"></center>'
									'You take the dog dick in hand and begin to masturbate after a few minutes you dog cums in her palm.'

									act 'Finish':gt 'bedr'
								end

								act 'Suck dog':
									cla
									*clr
									swallow += 1
									husband -= 40
									'<center><img src="images/zoo/z7.jpg"></center>'
									'You loshite dog on the floor and take his cock in my mouth, my husband looks at you with disgust as you sucking dog in a couple of minutes dog diluted into your mouth and you swallow sperm.'
									'"Well, you''re a pervert, " the husband says with obvious distaste.'

									act 'Finish':gt 'bedr'
								end

								act 'Finish':gt 'bedr'
							end
						end
					end
				elseif harakHusb = 2:
					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
					'"I can not, try myself, " you reply.'

					if izvratH = 0:
						manna -= 15
						willpower -= 15
						'<<$husName>> tries ottoschit dog but he growls and grins, then he smashes the dog leg in the ribs and he screeched flies into a corner, had not dog up as a husband begins to kick harder, seeing his condition, you scored in the corner and covering his head with hands close eyes. A few minutes later the dog stops.'
						'"What are you hiding there shalt here, and then krovischi from your skunk" said <<$husName>>. Opening her eyes you see a dead dog in a pool of blood.'
						'"Well, what froze shalt say to you, I do this on the trash Dogmeat''ll take." he takes the dog, wrap in sheets and make it in the trash. And you have some time to scour the blood from the floor.'

						act 'Finish':
							sobaka = 0
							zoo = 0
							gt 'bedr'
						end
					elseif izvratH = 1:
						zoo += 1
						bj += 1
						swallow += 1
						cumlip += 1
						SUB += 1
						'"What do you mean I can not, that you like the way he licks you, " shouts <<$husName>>.'
						'"No, of course you do not, " you begin to make excuses.'
						'"And I see you taschishsya whore, you all are flowing, or think I do not see, and if you like it so thank him, " he says, and seeing your not knowing look continues, "Well, what are hatched suck him alive."'

						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images/zoo/z4.jpg"></center>'
							'<<$husName>> grabs a dog by the collar iderzhit until you slide on the floor under the dog. Nedozhidayas oplivuhi you hiding his lust take by mouth and takes dick dog suck, husband watching you and cheers saying that the dog loved your mouth. Soon he was bored just watch and he dropped his pants says "Well Spreads legs."'

							act 'Allow':
								cla
								*clr
								suprdolg += 1
								sex += 1
								anal += 1
								'<center><img src="images/zoo/z5.jpg"></center>'
								'You obediently spreads her legs and her husband comes to you in the pussy, he hews suck you until you have a dog, but you do not dostovlyaet pleasure. Soon her husband cums and gets "A dog that is not yet finished, something you''re not trying, as well, cup your point."'

								act 'Substitute ass':
									cla
									*clr
									analorgasm += 1
									orgasm += 1
									horny = 0
									'<center><img src="images/zoo/z8.jpg"></center>'
									'You go up to her knees and dog immediately jumps on you. prevent kneel. With one hand you Spreading buttocks, and a second guide member currently in his ass, fingering hole dog quickly enters and taken to peck your anus. Husband looked at it a little and throwing "Go otmoyus from whores" out. Left with a dog for a single you start podmahivat him and soon oschuzaete tide excitation seems sex dog surpasses her husband, his cock in your ass moves so deftly that comes after the excitement orgasm, and you fall on korachki no longer able to stand, dog makes several movements and spewing his seed you in the ass. After graduating he leaves satisfied.'

									act 'Finish':gt 'bedr'
								end
							end
						end
					end
				end
			else
				gt 'bed1', 'sogn'
			end
		elseif husband = 0 or husbandrink = 10:
			gt 'bed1', 'sogn'
		end
	end
end

if $ARGS[0] = 'sog2':
	cla
	*clr
	horny += 10
	minut += 10
	'<center><img src="images/zoo/sog.jpg"></center>'
	'You take the term <<$namesob>> and start it nadrachivat'

	act 'Take by mouth':gt 'bed1', 'sog3'
	act 'Spread her legs ':gt 'bed1', 'sog4'
end

if $ARGS[0] = 'sog3':
	cla
	*clr
	horny += 10
	minut += 10
	'<center><img src="images/zoo/sog1.jpg"></center>'
	'You greedily swallow dick <<$namesob>>'

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

if $ARGS[0] = 'sog4':
	cla
	*clr
	minut += 10
	orgasm += 1
	horny = 0
	minut += 5
	zoo += 1
	swallow += 1
	vagina += 1
	throat += 1
	cumpussy += 1
	'<center><img src="images/zoo/sog2.jpg"></center>'
	'You push the legs and <<$namesob>> fuck you in your pussy'
	'Finally dog ​​ends up in you'

	act 'Hug the dog and sleep':gt 'bed2', 'dosip'
end

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

	!'
	if housr = 1 and housrA = 1:
		if $clothingworntype = 'nude':
			$nude = 'In the corridor'
		else
			$nude = 'Get dressed'
		end

		housrA = 0
		gt 'bedr'
	end
	'!
end

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