glife/locations/Military.qsrc

# Military

if $ARGS[0] = 'start':
	CLOSE ALL
	$loc_arg = $ARGS[0]
	$loc = 'Military'
	$sexloc = 'Military'
	$menu_loc = 'Military'
	$menu_arg = 'start'
	menu_off = 0
    $location_type = 'public_outdoors'
	gs 'stat'
	'<center><b><font color="maroon">Army Camp</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/military.jpg"></center>'
	'A small city with a lot of tents and full of people, a lot of soldiers are running around with guns, training.'

	act 'Work in the infirmary':
		cla
		menu_off = 1
		minut += 60
		sanrand = rand(0, 10)
		medcn_exp += rand (0,2) 
		gs 'stat'

		if sanrand = 0:gt 'Military', 'san0'
		if sanrand = 1:gt 'Military', 'san1'

		'You are working in the infirmary.'

		act 'Leave':gt 'Military', 'start'
	end

	act 'Go to your tent':gt 'Palatka', 'start'

	act 'Take a walk in the woods':
		cls
		menu_off = 1
		'<center><img <<$set_imgh>> src="images/locations/city/shared/military/woman_forest.jpg"></center>'
		minut += 60
		milprorand = rand(0, 10)
		gs 'stat'
		'You walk for a while in the forest.'

		if milprorand = 0:gt 'Military', 'pro0'
		if milprorand = 1:gt 'Military', 'pro1'

		act 'Finish':gt 'Military', 'start'
	end

	act 'Get some food and drink from the mess hall':gs 'food', 'm_meal'

	if week < 6 or week = 7 and hour >= 18:
		cla
		minut += 60
		money += 5000

		act 'Go back to town':gt 'city_residential'
	end
end

if $ARGS[0] = 'san0':
    $location_type = 'event'
	menu_off = 1
	cla
	*clr
	gs 'npcgeneratec', 0, 'soldier', rand(18,30)
	gs 'boyStat', $npclastgenerated
	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/san0.jpg"></center>'
	'During the examination, the patient shows you his erection and looks at you with anticipation.'
	
	gs 'willpower', 'bj', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Drive him away (<<will_cost>> Willpower)':
			gs 'willpower', 'bj', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'Military', 'start'
		end
	else
		act 'Drive him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Play along':
		guy += 1
		picrand = 41
		sexpartkno = 1
		gt 'sex', 'minet'
	end
end

if $ARGS[0] = 'san1':
    $location_type = 'event'
	menu_off = 1
	cla
	*clr
	gs 'npcgeneratec', 0, 'army doctor', rand(22,32)
	gs 'boyStat', $npclastgenerated
	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/san1.jpg"></center>'
	'While the infirmary is unoccupied, the doctor begins to molest you.'

	gs 'willpower', 'bj', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Drive him away (<<will_cost>> Willpower)':
			gs 'willpower', 'bj', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'Military', 'start'
		end
	else
		act 'Drive him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Play along':
		guy += 1
		picrand = 42
		sexpartkno = 1
		gt 'sex', 'minet'
	end
end

if $ARGS[0] = 'pro0':
    $location_type = 'event'
	menu_off = 1
	cla
	'You met two soldiers whom ask you to help them out with a war game, in the role of a captive spy.'
	
	gs 'willpower', 'gangbang', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Refuse (<<will_cost>> Willpower)':
			gs 'willpower', 'gangbang', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'Military', 'start'
		end
	else
		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Agree':
		gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
		gs 'boyStat', $npclastgenerated
		$boy[0] = $boy
		gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
		$boy[1] = $npclastgenerated
		cla
		*clr
		'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/pro0.jpg"></center>'
		'Your hands are tied and you are led to the headquarters where they set up an interrogation, then with the words "Now the interrogation begins!", they pull out their cocks. That''s what you get for allowing two burly men you do not even know to bind your hands.'

		act 'Submit':
			guy += 2
			SUB += 1
			picrand = 21
			sexpartkno = 1
			xgt 'sexdvoe', 'var'
		end
	end
end

if $ARGS[0] = 'pro1':
    $location_type = 'event'
	menu_off = 1
	cla
	'You notice that a guy follows you for several minutes.'

	act 'Ignore it':gt 'military', 'rape'
	
	gs 'willpower', 'rape', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Run away (<<will_cost>> Willpower)':
			gs 'willpower', 'rape', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/shared/military/forest_running.jpg"></center>'
			if pcs_run < 10:
				peshimraperand = rand(0, 11)
			elseif pcs_run < 20:
				peshimraperand = rand(0, 20)
			elseif pcs_run < 30:
				peshimraperand = rand(0, 30)
			elseif pcs_run < 40:
				peshimraperand = rand(0, 40)
			elseif pcs_run < 50:
				peshimraperand = rand(0, 50)
			elseif pcs_run < 60:
				peshimraperand = rand(0, 60)
			elseif pcs_run < 70:
				peshimraperand = rand(0, 70)
			elseif pcs_run < 80:
				peshimraperand = rand(0, 80)
			elseif pcs_run < 90:
				peshimraperand = rand(0, 90)
			else
				peshimraperand = rand(11, 100)
			end

			if peshimraperand < 11:
				cla
				'You tried to run away but the guy caught you.'

				act 'Continue':gt 'military', 'rape'
			else
				cla
				'You are rushing headlong, crashing through the bushes. Finally you ran back to the camp.'

				act 'Continue':gt 'military', 'start'
			end
		end
	else
		act 'Run away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if $ARGS[0] = 'rape':
	gs 'npcgeneratec', 0, 'rapist', rand(18,30)
	gs 'boyStat', $npclastgenerated
	menu_off = 1
	cla
	*clr
	rape += 1
	guy += 1
	'You suddenly feel a blow on the back of your head, and lose conciousness.'
	'...'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape1.jpg"></center>'
	'...'
	'You woke up in a barn with a bag on your head, so you can''t see anything. You also have a headache from the impact to your head, and a leash around your neck.'

	act 'Shout':
		cla
		*clr
		'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape2.jpg"></center>'
		'You began to cry for help, when a dick is stuffed in your mouth.'
		'"Here''s something to shut your mouth", came the voice of a rapist.'
		'You tried to spit it out, but it''s getting worse as he thrust it down your throat, and began to throatfuck you.'

		gs 'arousal', 'bj', 5, 'sub', 'rough'
		gs 'stat'
		
		act 'Continue':
			cla
			*clr
			cumprecheck = 1
			gs 'cum_manage'
			'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape3.jpg"></center>'
			'When you are starting to lose consciousness choking on his cock, he takes it out of your mouth, pulls the baf from your head and throws you on a crate. He steps to you, forcing his dick into your vagina quite forcefully. Although you can see now, you still tied up to do effectively anything.'

			gs 'arousal', 'vaginal', 10, 'sub', 'rough'
			gs 'stat'
		
			act 'Continue':
				cla
				*clr
				'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape4.jpg"></center>'
				'When your pussy bored him, he turned you around and drove his cock into your ass. You cry out in pain, but he does not care and continues to fuck your ass as hard as he could. You cry and beg him to at least use some lubrication, but he just scowls in response. You pass out from the pain and shock.'

				gs 'arousal', 'anal', 10, 'sub', 'rough'
				gs 'stat'
		
				act 'Continue':
					cla
					*clr
					pcs_makeup = 0
					minut += 240
					'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape5.jpg"></center>'
					'You do not know how much time passed since you fainted, but when you regain your concoiusness he''s pulling out of you. He pulls you to your knees and stuck his dick in your mouth, saying only a word, "Suck". You dutifully start to suck him off with your ass is brutally raped and in pain, wondering whether to bite it off, but before you could give it a second thought your rapist suddenly comes in your mouth. After this you are immediately knocked out again with a blow to your head.'

					gs 'arousal', 'end'
					gs 'cum_call', 'mouth', 'rapist'
					gs 'stat'
					
					act 'Continue':gt 'military', 'start'
				end
			end
		end
	end
end

--- Military ---------------------------------