glife/locations/kiosk

# kiosk

!!WD:"SUB >= 15" for act - Will need balancing / playtesting
if $ARGS[0] = 'start':
	$kioskloc = ''
	if hour >= 14 and hour <= 16:
		cls
		gs 'stat'
		'<center><img WIDTH = 1000 HEIGHT = 650 src="images/locations/city/shared/kiosk/kiosk21.jpg"></center>'
		'It is currently very busy and looks like you''ll have to wait to get to the counter.'
		act 'Wait in line (20 Minutes)':
			minut += 20
			$kioskloc = 'counter' & gt 'kiosk'
		end

		act 'Leave':gt $locM

		if pcs_exhibition >= 45:
			act 'Flash both your tits and your pussy':
				cls
				gs 'stat'
				minut += 5

				if kioskflash = 0:
					exhibition_exp += 3
					kioskflash = 1
				end
				'<center><img src="images/shared/sex/exhibitionism/flash_tits_pus.jpg"></center>'
				'The people in front of you are shocked, as they see you flashing your tits and your pussy. As a small thank you, some of them let you move further up the line.'

				act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
			end
		end

		if pcs_exhibition >= 40:
			act 'Flash your pussy':
				cls
				gs 'stat'
				minut += 5

				if kioskflash = 0:
					exhibition_exp += 2
					kioskflash = 1
				end

				if pcs_pubes >= 10:
					'<center><img src="images/shared/sex/exhibitionism/flash_hairy.jpg"></center>'
				else
					'<center><img src="images/shared/sex/exhibitionism/flash_nohairy.jpg"></center>'
				end

				'The people in front of you are shocked, as they see you flashing your pussy. As a small thank you, some of them let you move further up the line.'

				act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
			end
		end

		if pcs_exhibition >= 35:
			act 'Flash your tits':
				cls
				gs 'stat'
				minut += 5

				if kioskflash = 0:
					exhibition_exp += 1
					kioskflash = 1
				end

				'<center><img src="images/shared/sex/exhibitionism/flash_tits.jpg"></center>'
				'The people in front of you are shocked, as they see you flashing your tits. As a small thank you, some of them let you move further up the line.'

				act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
			end
		end

		if SUB >= 15:
			act 'Suggest a blowjob in exchange for jumping the queue':
				cls
				gs 'stat'
				minut += 10
				pcs_throat += 1
				stat['bj'] += 1
				gs 'npcgeneratec', 0, 'stranger from the post office', rand(19,45)
				gs 'boyStat', $npclastgenerated

				if spdirtyb = 0 and spdirtyv = 0:
					'<center><img src="images/shared/sex/blowjob/kiosk_blowjob.jpg"></center>'
					'A man agrees to your suggestion and lets you move in front of him.'

					act 'Cum on your face':
						cls
						'<center><img src="images/pc/body/cum/cumface/<<$cum_face_image>>.jpg"></center>'
						'The man cums on your face.'
						spafinloc = 11
						gs 'cum_manage'

						act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
					end

					act 'Cum on your mouth':
						cls
						'<center><img src="images/locations/shared/postoffice/sex/cumlip.jpg"></center>'
						'The man cums inside your mouth.'
						spafinloc = 12
						gs 'cum_manage'

						act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
					end
				else
					'<center><img src="images/locations/shared/postoffice/punch.gif"></center>'	
					'The Man punches you in the gut and says, <font color="#0D42C0">"Go away bitch, your mouth is full of sperm."</font> You stagger away from the kiosk and spend 2 hours curled up in a ball.'
					minut += 120
					gs 'pain', 4, 'tummy', 'hit'

					act 'Recover':gt $locM
				end
			end
		end
	else
		$kioskloc = 'counter' & gt 'kiosk'
	end
end

if $kioskloc = 'counter':
	cls
	gs 'stat'
	
	'<center><img WIDTH = 800 HEIGHT = 500 src="images/locations/city/shared/kiosk/kiosk123.jpg"></center>'
	'<center><img src="images/locations/city/shared/kiosk/ruch.jpg"></center>'
	if $message ! '':
		'<center>'+$message+'</center>'
		killvar '$message'
	else
		''
	end	
	*pl '<center><table align="center" width=80%>' 
	*pl '<center><table align="center">'
	*P FUNC ('$stock_item', 20, 'Cigarettes', 50, 'siga', 'kiosk')
	*P FUNC ('$single_stock_item', 1, 'Fashion magazine', 50, 'fashmag', 'kiosk')
	*P FUNC ('$single_stock_item', 1, 'Computer magazine', 50, 'compmag', 'kiosk')
	*P FUNC ('$single_stock_item', 1, 'Biographical magazine', 50, 'biomag', 'kiosk')
	*P FUNC ('$single_stock_item', 1, 'Cooking magazine', 50, 'cookmag', 'kiosk')
	*P FUNC ('$single_stock_item', 1, 'Knitting magazine', 50, 'knitmag', 'kiosk')
	*P FUNC ('$single_stock_item', 1, 'Fitness magazine', 50, 'fitmag', 'kiosk')
	'</table></center>'
	*pl
	if money >= 50:
			act 'Eat snack (50 <b>₽</b>)':
				money -= 50
				gs 'food', 'snack'
			end
		end
	act 'Leave':minut += 5 & gt $locM

end

--- kiosk ---------------------------------