glife/locations/Gpornmark

# Gpornmark
!{ change log
March 31, 2016
added rice wine quest section
minor corrections to dialog
}
$location_type = 'public_outdoors'
$loc = $CURLOC
clr
gs'stat'
'The small stall has many shelves with a large variety of porn magazines. A salesman with shifty eyes is watching over the stall.<br>'

act 'Leave':gt 'Grinok'

if card < 2 :
	'On the counter you see a brand new pack of Porn playing cards.'
	'<i>(a small sticker with the inscription of the hand: 699)</i><br>'
	if money >= 699:
		act 'Buy cards':
			minut += 5
			money -= 699
			card = 2
			TimesBuyPorno += 1
			delact 'Buy cards'
			gs 'stat'
			'You tried not to look into the eyes of the porn dealer as you counted out the money.  You took the cards and quickly hid it.'
			act 'Leave':gt 'Grinok'
		end
	end
end

if pornMagazine > 1:
	'You haven''t finished looking at the magazine you already have and you don''t really feel like hanging around the porn dealer''s stall.'
	*nl
elseif pornMagazine = 1:
	'You''ve read your current porn magazine until it''s falling apart.  You think it is time to buy a new one.'
	*nl
	if money >= 500:
		act 'Buy porn magazine':
			cls
			minut += 5
			money -= 500
			pornMagazine = 50
			TimesBuyPorno += 1
			gs 'stat'
			'You tried not to look into the eyes of the porn dealer as you counted out the money.  You took the magazine and quickly hid it.'
			act 'Leave':gt 'Grinok'
		end
	end
elseif porndeal = 1:
	if money >= 500:
		act 'Buy a porn magazine for the Chinese boy':
			cls
			minut += 5
			money -= 500
			haveporn = 1
			gs 'stat'
			'You tried not to look into the eyes of the porn dealer as you counted out the money. You took the magazine and quickly hid it.'
			act 'Leave':gt 'Grinok'
		end
	end
elseif pornMagazine = 0:
	'You are stunned by all the magazines with pictures of beautiful half-naked girls on the covers.  Many of them appear to be near your own age.  You pick up and look inside one of the magazines and see men with large erect penis'' engaging in sexual acts with women who are either half-naked or fully naked, on the inside. Wow! You are shocked and excited.'
end

if TimesBuyPorno = 0:
	'The porn dealer noticed your interest and looks at you expectantly.'

	act 'Ask for the price':
		cls
		minut += 5
		pcs_mood -= 20
		gs 'stat'
		'Blushing profusely right down to your roots, you approach the porn dealer and stammeringly ask him the price on the magazines. The porn dealer smiles at you and says, "All magazines are 500 <b>₽</b> each."'

		if money >= 500:
			act 'Buy magazine':
				cls
				minut += 5
				money -= 500
				pornMagazine = 40
				TimesBuyPorno += 1
				gs 'stat'
				'You try not to look into the porn dealers eyes as you hand him the money.  You take the magazine and quickly hide it under your shirt.'
				act 'Leave':gt 'Grinok'
			end
		end
		act 'Leave':gt 'Grinok'
	end
elseif TimesBuyPorno > 0:
	'The porn dealer comes over to you and asks, "Looking to buy a magazine?  They''re only 500 <b>₽</b> each."'
end

if TimesBuyPorno >= 5:
	'The porn dealer see you approaching.  "Ah, my best customer!"  He reaches behind himself and pulls out a large box.  "Repeat customers get access to my special stock box.  Take a look and let me know what you would like." he places the box in front of you.  Inside you see several 10cm dildos.  Each with a  tag, "Only 1000 <b>₽</b> each."  You also see a small selection of vibrators in various colors, mostly pink.  "Only 1300 <b>₽</b>each."  To one side of the box you see many butt plugs, plastic and metal.  Your ears are drawn to the jeweled butt plugs.  "Only 1200 <b>₽</b>each."'
		
	act 'Buy dildo (1,000 <b>₽</b>)':
		cla
		if money >= 800 and dildo = 0:
			minut += 15
			dildo = 1
			money -= 1000
			pcs_horny += 10
			TimesBuyPorno += 1
			if pcs_horny >= 50 and pav_slut < 75:
				'You bought a dildo and hastily hid it, while your face betrayed your embarrassment.'
			else
				'You bought a dildo calmly hid it.'
			end
		end
		act 'Leave':gt 'Grinok'	
	end
	
	act 'Buy vibrator (1,300 <b>₽</b>)':
		cla
		if money >= 1300 and vibrator = 0:
			minut += 15
			vibrator = 1
			money -= 1300
			pcs_horny += 10
			TimesBuyPorno += 1
			if pcs_horny >= 50 and pav_slut < 75:
				'You bought a vibrator and hastily hid it, while your face betrayed your embarrassment.'
			else
				'You bought a vibrator calmly hid it.'
			end
		end	
		act 'Leave':gt 'Grinok'	
	end
	
	act 'Buy butt plug (1,200 <b>₽</b>)':
		cla
		if money >= 1200 and analplug = 0:
			minut += 15
			money -= 1200
			analplug = 1
			pcs_horny += 10
			TimesBuyPorno += 1
			if pcs_horny >= 50 and pav_slut < 75:
				'You bought a butt plug and hastily hid it, while your face betrayed your embarrassment.'
			else
				'You bought a butt plug calmly hid it.'
			end
		end
		act 'Leave':gt 'Grinok'	
	end
end

--- Gpornmark ---------------------------------