glife/locations/Gpornmark

# Gpornmark
!{ change log
March 31, 2016
added rice wine quest section
minor corrections to dialog
}
gs 'stat'
'The stall has shelves with a 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 playing cards.'
	'<i>(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 seller 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.'
elseif pornMagazine = 1:
	'You''ve read your porn mag until it is falling apart and you think it is time to buy a new one.'

	if money >= 500:
		act 'Buy magazine':
			cls
			minut += 5
			money -= 500
			pornMagazine = 50
			TimesBuyPorno += 1
			gs 'stat'
			'You tried not to look into the eyes of the seller 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 mag for the Chinese boy':
			cls
			minut += 5
			money -= 500
			haveporn = 1
			gs 'stat'
			'You tried not to look into the eyes of the seller as you counted out the money. You took the magazine and quickly hid it.'

			act 'Leave':gt 'Grinok'
		end
	end

elseif pornMagazine = 0:
	'You were stunned by the magazines with pictures of half-naked girls on the covers and men with erect members engaging in sex acts with women who are either half-naked or fully naked on the inside.'
end

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

	act 'Ask for the price':
		cls
		minut += 5
		manna = manna/2
		gs 'stat'
		'Blushing profusely right to your hair roots, you went to the seller and stammering asked him the price for the magazines. The seller smiled at you and said, "All magazines are 500 <b>₽</b> each."'

		if money >= 500:
			act 'Buy magazine':
				cls
				minut += 5
				money -= 500
				pornMagazine = 50
				TimesBuyPorno += 1
				gs 'stat'
				'You tried not to look into the eyes of the seller as you counted out the money. You took the magazine and quickly hid it.'

				act 'Leave':gt 'Grinok'
			end
		end

		act 'Leave':gt 'Grinok'
	end
elseif TimesBuyPorno > 0:
	'The seller came up to you and said, "Looking to buy a magazine? Only 500 <b>₽</b>."'
end

if TimeBuyPorno >= 5 and dildo = 0:
	'"Or do you want to buy something else?" he showed you a dildo. "Only 1000 <b>₽</b>."'
	if money >= 1000:
		act 'Buy dildo (1000 <b>₽</b>)':
			cla
			*clr
			minut += 15
			dildo = 1
			money -= 1000
			horny += 10
			if horny >= 50 and GorSlut < 3:
				'You bought a dildo and hastily hid it, while your face betrayed your embarrassment.'
			else
				'You bought a dildo calmly hid it.'
			end
         
			act 'Leave':gt 'Grinok'
		end
	end
end

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