# pirat
gs 'stat'

if piratfrend < 10:
	'<center><img src="images/qwest/gadukino/pirat.jpg"></center>'
	'Purebred dog named Pirate indifferently sitting near the barn.'
end

if piratfrend >= 10:
	if piratHorny < 10:
		'Purebred dog named Pirate wags his tail when your appearance.'
	end

	if piratHorny >= 10 and piratHorny < 20:
		if piratsuka < 3:'Purebred dog named Pirate revolves around you wagging his tail and sniffing.'
		if piratsuka >= 3:'<center><img src="images/qwest/gadukino/sniff.jpg"></center>'
		if piratsuka >= 3:'Purebred dog named Pirate revolves around you wagging his tail and nuzzle you between the legs.'
	end

	if piratHorny >= 20:
		pirand = rand(0, 1)

		if piratsuka<3 or piratsuka >= 3 and pirand = 0:
			'Purebred dog named Pirate pounces on your leg and rubs against her.'

			act 'push Pirate':
				cls
				piratHorny -= 1
				minut += 15
				dom += 1
				gs 'stat'
				!!'<center><img src="images/qwest/gadukino/dog.jpg"></center>'
				'You pushed Pirate dropping him with legs.'

				act 'Leave':gt $curloc
			end

			act 'endure':
				cls
				piratHorny = 0
				minut += 15
				manna = manna / 2
				piratsuka += 1
				sub += 1
				gs 'stat'
				'<center><img src="images/qwest/gadukino/leghump.jpg"></center>'
				'You were not moving until Pirate rub against your leg. Suddenly she poured some sort of hot white liquid, Pirate immediately jumped to the side and began chesatsya but nothing had happened.'

				act 'Leave':gt $curloc
			end
		end

		if piratsuka >= 3 and pirand = 1:
			'Purebred dog named pirate stands on his hind legs and puts his front paws on your shoulder. You chustvuete like you in the ass rests like an awl member of the Pirate.'

			act 'push Pirate':
				cls
				piratHorny -= 1
				minut += 15
				dom += 1
				gs 'stat'
				!!'<center><img src="images/qwest/gadukino/dog.jpg"></center>'
				'You pushed Pirate dropping him off his back.'

				act 'Leave':gt $curloc
			end

			act 'stand':
				cls
				!piratHorny = 0
				minut += 15
				manna = manna / 2
				piratsuka += 1
				sub += 1
				!cumfrot += 1
				gs 'stat'
				!!'<center><img src="images/qwest/gadukino/dog.jpg"></center>'
				'You froze and became hard Pirate tykatsya his cock you in the ass. Pirate angry and growling jumps from you'

				act 'Leave':gt $curloc
			end

			act 'Stand on all fours':
				cls
				piratHorny = 0
				minut += 15
				manna = manna / 2
				piratsuka += 3
				sub += 5
				cumfrot += 1
				gs 'stat'
				'<center><img src="images/qwest/gadukino/hump.jpg"></center>'
				'You got up on all fours and substituting ass dog Pirate became intensely tykatsya his cock you in the ass. Soon.'

				act 'Leave':gt $curloc
			end
		end

		exit
	end
end

act 'Leave':minut += 5 & gt $loc

act 'pat the Pirate':
	cls

	if piratfrend < 10:piratfrend += 1

	minut += 15

	if piratsuka > 0:piratHorny += 1

	gs 'stat'
	'<center><img src="images/qwest/gadukino/dog.jpg"></center>'
	'You pat on the back Pirate.'

	act 'Leave':gt $curloc
end

--- pirat ---------------------------------