glife/locations/postoffice

# postoffice

if $ARGS[0] = 'start':
	cls
	gs 'stat'
	$postloc = ''

	if (hour >= 9 and hour <= 10) or (hour >= 15 and hour <=16):
				
		'<center><b><font color="maroon">Post Office</font></b></center>'
		'<center><img <<$set_imgh>> src="images/locations/shared/postoffice/city.jpg"></center>'
		'It is currently very busy and looks like you''ll have to wait to get to the counter.'
			
		act 'Wait in line (30 Minutes)':
			cla
			minut += 30
			gs 'stat'
			$postloc = 'counter' & gt 'postoffice'
		end
	
		if pcs_exhibition >= 45:
			act 'Flash both your tits and your pussy':
				cls

				exhibition_exp += rand(12,15)

				gs 'arousal', 'flash', 10
				minut -= 5
				gs 'arousal', 'end'
				gs 'stat'
				
				'<center><img <<$set_imgh>> 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 in the line.'

				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
			end
		end

		if pcs_exhibition >= 40:
			act 'Flash your pussy':
				cls

				exhibition_exp += rand(9,12)

				if pcs_pubes >= 10:
					'<center><img <<$set_imgh>> src="images/shared/sex/exhibitionism/flash_hairy.jpg"></center>'
				else
					'<center><img <<$set_imgh>> 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 in the line.'

				gs 'arousal', 'flash', 5
				gs 'arousal', 'end'
				gs 'stat'

				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
			end
		end

		if pcs_exhibition >= 35:
			act 'Flash your tits':
				cls

				exhibition_exp += rand(5,8)

				'<center><img <<$set_imgh>> 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 in the line.'

				gs 'arousal', 'flash', 5
				gs 'arousal', 'end'
				gs 'stat'

				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
			end
		end
		
		if sub['exp'] >= 10 and pcs_exhibition > 25:
			act 'Suggest a blowjob in exchange for jumping the queue':
				cls
				if cumloc[12] = 0 and cumloc[11] = 0:
					pcs_throat += 1
					gs 'npcgeneratec', 0, 'stranger', rand(18,45)
					gs 'boyStat', $npclastgenerated

					exhibition_exp += rand(5,8)
					gs 'arousal', 'bj', 10, 'sub'
					gs 'stat'
				
					!!Blatte:IMAGE NEEDED
					$ImageNeededPlacholder
					!! '<center><img src="images/system/image_needed.png"></center>'
				
					act 'Cum on your face':
						cls
						'<center><img <<$set_imgh>> src="images/pc/body/cum/cumface/<<$cum_face_image>>.jpg"></center>'
						'The man cums on your face.'
						spafinloc = 11
						gs 'cum_manage'
						gs 'arousal', 'end'
						gs 'stat'

						act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
					end

					act 'Cum in your mouth':
						cls
						'<center><img <<$set_imgh>> src="images/locations/shared/postoffice/sex/cumlip.jpg"></center>'
						'The man cums inside your mouth.'
						spafinloc = 12
						gs 'cum_manage'
						gs 'arousal', 'end'
						gs 'stat'

						act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
					end
				
				else
					'<center><video autoplay loop src="images/locations/shared/postoffice/punch.mp4"></video></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 postoffice and spend 2 hours curled up like a ball.'
					minut += 120
					gs 'pain', 4, 'tummy', 'hit'

					act 'Recover':
						if bankloc = 1:
							gt 'down'
						else
							gt 'pavCommercial'
						end
					end
				end
			end
		end
	else
		'<center><b><font color="maroon">Post Office</font></b></center>'
		'<center><img <<$set_imgh>> src="images/locations/shared/postoffice/city.jpg"></center>'
		'It is currently quiet and you can walk straight up to the counter.'

		act 'Go to the counter':
			$postloc = 'counter' & gt 'postoffice'
		end
	end

	if bankloc = 0:
		act 'Go to Postmaster''s Office':
			gt 'postmaster', 'start'
		end
	end

	act 'Leave':$postloc = 'leave' & gt 'postoffice'
end

if $postloc = 'counter':
	cla
	*clr
	'<center><b><font color="maroon">Counter</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/postoffice/counter.jpg"></center>'
	'The counter, its boring here.'
	
	if bankAccount = 1 and money > 0:
		act 'Deposit money to your bank account':
			cla
			minut += 5
			gs 'stat'
			kartaIN = input ("How much money you want to deposit into the account?")

			if kartaIN <= 0 or kartaIN > money:
				'Not correct operation.'
			else
				karta += kartaIN
				money -= kartaIN

				'<br>You put on the account <<kartaIN>> <b>₽</b>, now you have <<karta>> <b>₽</b> on it.'
			end

			'"Is there anything else I can do for you?"'

			act 'Yes':$postloc = 'counter' & gt 'postoffice'

			act 'Leave the post office':$postloc = 'leave' & gt 'postoffice'
		end
	end
	
	if used_pattest > 0:
		act 'Send paternity test (20.000<b>₽</b>)':
			if money >= 20000:
				dynamic $send_test
				cls
				gs 'stat'
				'You pay the fee of the testing, then you mail your used paternity test to the testing labor in Saint Petersburg with the copy of your receipt of payment. You will get answer in SMS withing a week.'
			else
				'Unfortunately you have no money to send the test in. You could, but they would just throw it out without the receipt of payment.'
			end
			act 'Done':$postloc = 'counter' & gt 'postoffice'
		end
	end
	
	act 'Check received mail':
		cls
		gs 'stat'
		minut += 5
		if mail <= 0:
			'Sorry no mail.'
		else
			'You have mail.'
		end

		'"Is there anything else I can do for you?"'

		act 'Yes':$postloc = 'counter' & gt 'postoffice'

		act 'Leave the post office':$postloc = 'leave' & gt 'postoffice'
	end
	
	i = 0

	*pl '<center><table align="center">'

	:loopcard

	if i = 0:
		n = 5
		price = 60
		$buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
	elseif i = 1:
		n = 10
		price = 115
		$buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
	elseif i = 2:
		n = 20
		price = 220
		$buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
	elseif i = 3:
		n = 50
		price = 520
		$buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
	end

	i += 1

	'<tr><td align="center"><<n>> hour internet card </td><td align="right">(you have <<internet>> hours of internet access) </td><td align="right"><<$buy_link>> </td><td align="left">for <<price>> <b>₽</b></td></tr>'

	if i < 4:
		jump 'loopcard'
	end

	'</table></center>'
	
	if money > 0:
		act 'Put the money on the phone':
			cla
			set minut = minut + 5
			obmennik = input ("How many <b>₽</b> do you want to deposit?")

			if obmennik <= 0:
				'<center><br><b>Do you want to think again?</b></center>'
				act 'Return':$postloc = 'counter' & gt 'postoffice'
			else
				if money < obmennik:
					'<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
					act 'Return':$postloc = 'counter' & gt 'postoffice'
				end

				if money >= obmennik:
					set balans = balans + obmennik
					set money = money - obmennik
					clr
					gs'stat'
					'<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'

					'"Is there anything else I can do for you?"'

					act 'Yes':$postloc = 'counter' & gt 'postoffice'

					act 'Leave the post office':$postloc = 'leave' & gt 'postoffice'
				end
			end
		end
	end

!!Might use for the city branch, but seems ott for Pav
!!	if askWork = 0 and bankloc = 0:	
!!		act 'Ask for work':
	
!!			cls
!!			minut += 5
!!			gs 'stat'
			
!!			'You approach the counter and ask the girl at the counter: "Excuse me... I hear you are looking for postal workers? I would like to come work as a one."'
!!'She nods understandingly: "We are looking for new workers, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Oleg Koltsov, the postmaster. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
!!			'"I''m afraid there is no position available at this time."'

!!			act 'Step away from the counter':gt'postoffice', 'start'
!!askWork += 1
!!		end
!!	end

	act 'Leave':$postloc = 'leave' & gt 'postoffice'
end


if $postloc = 'leave':
	minut += 3
	killvar '$postloc'
	if bankloc = 1:
		gt 'down'
	else
		gt 'pavCommercial'
	end
end

!! Not used for Pav, maybe use for city?
if $postloc = 'post_off':
	cla
	*clr
	minut += 30
	gs 'stat'
	'<center><b><font color="maroon">Postmaster Office</font></b></center>'
	!!Blatte: MISSING IMAGE
	$ImageNeededPlacholder
	!!'<center><img src="images/system/image_needed.png"></center>'
	'Behind his desk, a man of about 50 is busy with some paperwork. He''s dressed quite sharply, and you had never expected the postmaster would be this good looking.'

	if post_wrk = 0:
		act 'Ask for work':
			cls
			minut += 15
			gs 'stat'
			!!Placeholder text
			'You approach the man''s desk, but he doesn''t look up from his work. With a soft voice you carefully try to get his attention: "Umm... excuse me?"'
			'He looks up from his desk: "Oh I''m sorry, I didn''t hear you come in. Hello, I''m Oleg Koltsov, postmaster at this post office. Is there a problem?"'
			'You smile and shake your head: "No, no problem. I am looking for a job, I hear you are often looking for workers?"'
			'You can feel his eyes exploring your body for a moment before he responds: "Yes, we are! We currently only have a part-time vacancy, for sorting the mail. You would be working between these and these hours, give or take. Does that sound good to you?"'
		
			act'"That sounds great!"':
				cls
				post_wrk += 1
				gs 'stat'
				!!Placeholder text
				'You beam: "That sounds fantastic, thank you so much!"'
				'Oleg gives you a friendly smile, happy to have found another potential worker. He quickly writes some of your personal data down.'
				'Oleg continues: "If you want to work a shift, you need to be here between this time. There''s no point in you getting changed for just 20 minutes of work."'
				'That also sounds fair. You give him a handshake as you get ready to leave: "Okay. Thank you sir!"'
				
				act'Exit Office':gt'postoffice', 'start'
			end

			act'"Sorry, not interested"':
				cls
				gs 'stat'
				'"I need to think about it if it''s okay."'
				'"Sure <<$pcs_nickname>>, come back when you''ve made up your mind."'

				act'Exit office':gt'postoffice', 'start'
			end
		end
	end

	act 'Exit office':gt'postoffice', 'start'

end

--- postoffice ---------------------------------