GLifeHornguy/locations/zoomagazine.qsrc

# zoomagazine
if $ARGS[0] = 'start':
	cla
	clr
	*clr
	gs 'stat'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	elseif night_mode = 2:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(20, 20, 20)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b><font color="maroon">Pet Emporium</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/shop.jpg"</center>'
	if saveparQW = 1 and saveparQWfailed = 0:
		minut += 5
		'When you enter the pet store you can see the owner talking to some customers'
		'In normal circumstances you would have simply waited your turn but you had no time now.'
		'You notice a little ladder  standing next to the men and decide to create a distraction.'
		'You start climbing the ladder pretending you need something from the top shelves'
		'The men take a small look but mostly ignore you. But then you lift up your skirt a little and that got their attention.'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet2.jpg"</center>'
		'The men, who were having a lively conversation suddenly went quiet.'
		'You took your chances and asked the owner if you could talk to him in private.'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet8.jpg"</center>'
		'he wrapped up his conversation with the men and took you to the back office'
		act 'Continue':
			cls
			minut += 5
			' - "So little girl, what is the big emergency"'
			' - "Well, a few months ago I have bought a parrot from this shop. everything was fine at first but the last couple of weeks he has been saying some things he should not be saying."'
			' - "Oh, what kind of things would that be?"'
			' -"Just remarks about my body and my sister''s activities."'
			'-"If you want me to help you, you will have to give me some more details, what exactly has he been saying ?"'
			'Your face turns red and with some reluctance you tell him the parrot has been saying you have a great body.'
			'-"Ok I might have a solution for this, but I will have to determine if the parrot has been lying or not. So you will have to show me that body of yours."'
			'You realise the owner might just be an old pervert but it is your only chance to save your bird.'
			act 'Berate him for wasting your time and leave the store':
				saveparQWfailed = 1
				minut += 3
				gt 'torgcentr'
			end
			act 'Show your body':
				gs 'npcgeneratec', '0'				
				gs 'boyStat', $npclastgenerated
				cls
				minut += 5
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet1.jpg"</center>'
				'You slide up your top and show off your <a href="exec:gs ''obj_din'', ''show_tits''"><<$titsize>></a> breasts.'
				'-"hmm, he was definitely not lying about your top half, ok show me the rest."'
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet9.jpg"</center>'
				'You take off your pants and show your fully exposed body to the owner.'
				'-"So he was not lying at all, now I know what the solution is".'
				'The owner goes back to the counter and starts mixing up a few different liquids in a vial.'
				'-"Ok it is almost done, just two more ingredients needed..."'
				act 'Continue':
					cls
					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet4.jpg"</center>'
					'The owner comes over to you and starts rubbing your breasts'
					'"Wait what are you doing" you say. " How is this going to get me the final ingredients."'
					'"just trust me" the man says before lightly licking your nipple.'
					'Then he grabs you by the waist and places you on top of the counter.'
					'He places his head between your legs and starts licking.'
					'He slid his tongue into your wet pussy, this already caused a light shiver, before dragging his tongue lightly against your clit, causing you to purr.'
					'Once you were wet enough  he took a tissue and collected some of your juices.'
					'" That''s the first ingredient, on to the next."'
					gs 'arousal', 'cuni', 15
					act 'Continue':
						cls
						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet5.jpg"</center>'
						'The man unbuttons his pants and takes out his erect <<dick>> cm dick.'
						'"Now sit on your knees and suck this cock if you want to get to the last ingredient"'
						'You are almost certain you are being conned now, but the pussy licking you received moments before made you so horny that you couldn''t stop now.'
						'You do as you were told and take the dick in your mouth'
						'You start pleasuring him to the best of your abilities.'
						'After a few minutes he gestures you to get up and turn around'
						gs 'arousal', 'bj', 15
						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet6.jpg"</center>'
						gs 'dinsex','vaginal_sex'
						act 'Continue':
							cls & cla
							minut += 5
							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet7.jpg"</center>'
							'After a few minutes the owner pulled out and turned you around, he started stroking his dick and came all over your face.'
							'He took another tissue and wiped some of the cum off.'
							'He went to the counter and mixed both your juices in the vial.'
							'"Here you go miss, one parrot inhibitor potion for you , on the house"'
							'You take the potion, place it in your pocket and leave the store'
							gs 'arousal','end'
							gs 'cum_call','face', $npclastgenerated
							guy += 1
							saveparQW = 2
							act 'Leave the store': minut += 3 & gt 'torgcentr'
							
						end
					end
				end
			end	
		end
	exit
	end
	'Dog - 3000 <b>₽</b>'
	'Rabbit - 2000 <b>₽</b>'
	'Parrot - 3000 <b>₽</b>'
	
	act 'Leave': minut += 3 & gt 'torgcentr'
	
	if money >= 3000 and sobaka = 0:
		act 'Buy a dog (3000 <b>₽</b>)':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/beast/zoo/695_small.jpg"></center>'
			if home_owned[1] > 0:
				act 'Hello, I would like to get a dog':
					cla
					*clr
					'<center><img <<$set_imgh>> src="images/beast/zoo/695_small.jpg"></center>'
					'<center><b>Sorry, but we only have male dogs.</b></center>'

					act 'Buy a dog':
						cla
						*clr
						minut += 10
						sobaka += 1
						money -= 3000
						'<center><img <<$set_imgh>> src="images/beast/zoo/dog1.jpg" width = 600 height = 500 ></center>'
						'<center><b>You bought a Dalmatian dog.</b></center>'
						$namesob = input ('I''ll call the dog ...')
						if $namesob = '':$namesob = 'Spot'
						gs 'npcgeneratec', 0, $namesob, rand(1,4)
						gs 'npcpreservec', $npclastgenerated
						$petID = $npclastsaved
						$npc_firstname[$npclastsaved] = $namesob
						$npc_nickname[$npclastsaved] = $namesob
						$npc_lastname[$npclastsaved] = $namesob
						$npc_usedname[$npclastsaved] = $namesob
						$npc_notes[$npclastsaved] = 'Your dog you purchased from the pet shop.'
						npc_spermpot[$npclastsaved] = -1
						$npc_thdick[$npclastsaved] = 'knotted'
						npc_dick[$npclastsaved] = 7
						npc_sexskill[$npclastsaved] = 0

						act 'Move away from the counter':gt 'zoomagazine', 'start'
					end
				end
			else
				'You need to have your own place before you can buy a dog'
			end
			act 'Move away from the counter': minut += 5 & gt 'zoomagazine', 'start'		
		end
	end

	if money >= 2000 and krolik = 0:
		act 'Buy a rabbit (2000 <b>₽</b>)':
			cla
			*clr
			if home_owned[1] > 0:
				minut += 10
				krolik += 1
				money -= 2000
				'<center><img <<$set_imgh>> src="images/beast/zoo/x_2b1d398b.jpg"></center>'
				'<center><b>You bought a rabbit.</b></center>'
				$namekrol = input ("I call rabbit ...")
				if $namekrol = '':$namekrol = 'Bugs'
			else
				'You need to have your own place before you can buy a rabbit.'
			end
			act 'Move away from the counter': gt 'zoomagazine', 'start'
		end
	end

	if money >= 3000 and popugai = 0:
		act 'Buy a parrot (3000 <b>₽</b>)':
			cla
			*clr
			if home_owned[1] > 0:
				minut += 10
				popugai += 1
				money -= 3000
				'<center><img <<$set_imgh>> src="images/beast/zoo/parrot1.jpg"></center>'
				'<center><b>You bought a parrot.</b></center>'
				$namepopu = input ("I call parrot ...")
				if $namepopu = '':$namepopu = 'Polly'
			else
				'You need to have your own place before you can buy a parrot.'
			end
			act 'Move away from the counter': gt 'zoomagazine', 'start'
		end
	end
	
	if money >= 3000 and popugai2 = 0 and home_owned[2] = 1 :
		act 'Buy a parrot for your parent''s apartment (3000 <b>₽</b>)':
			cla
			*clr
			minut += 10
			popugai2 += 1
			sispopconf = 0
			parbuydate = daystart
			money -= 3000
			'<center><img <<$set_imgh>> src="images/beast/zoo/parrot1.jpg"></center>'
			'<center><b>You bought a parrot.</b></center>'
			$namepopu2 = input ("I call parrot ...")
			if $namepopu2 = '':$namepopu2 = 'Polly'

			act 'Move away from the counter': gt 'zoomagazine', 'start'
		end
	end
end

--- zoomagazine ---------------------------------