glife/locations/Military

# Military
if $ARGS[0] = 'start':
	$sexloc = $CURLOC
	gs 'stat'
	'<center><b><font color="maroon">polygon</font></b></center>'
	'<center><img src="images/img/military/military.jpg"></center>'
	'Full of people around, near the tent city, and many guys are running around with guns.'

	act 'Work in the infirmary':
		cla
		set minut += 60
		set sanrand = rand(0, 10)

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

		'You worked in the infirmary.'

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

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

	act 'Walking in the woods':
		cla
		set minut += 60
		set milprorand = rand(0, 10)

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

		'You walk.'

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

	act 'There is a field kitchen':
		set minut += 30
		set health += 10
		set manna += 20
		set energy += 20
		set water += 20
		gs 'stat'
	end

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

		act 'Go to town':gt 'street'
	end
end

if $ARGS[0] = 'san0':
	cla
	*clr
	'<center><img src="images/img/military/san0.jpg"></center>'
	'During the examination, the patient shows you your erection and looks at you in anticipation of responses.'

	act 'Drive away':gt 'Military', 'start'

	act 'Post':
		set guy += 1
		set picrand = 41
		gt 'sex', 'minet'
	end
end

if $ARGS[0] = 'san1':
	cla
	*clr

	'<center><img src="images/img/military/san1.jpg"></center>'
	'While in the infirmary is unoccupied, the doctor begins to pester you.'

	act 'Send':gt 'Military', 'start'

	act 'Post':
		set guy += 1
		set picrand = 42
		gt 'sex', 'minet'
	end
end

if $ARGS[0] = 'pro0':
	cla

	'To suit you two guys and offer to help them in one game, play the role of a captive spy.'

	act 'Refuse':gt 'Military', 'start'

	act 'Agree':
		cla
		*clr
		'<center><img src="images/img/military/pro0.jpg"></center>'
		'You tie the hands and lead to the headquarters, where they represent a long interrogation, and then with the words "We will torture you" get members. That´s what you thought before allowing two burly men you associate.'

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

if $ARGS[0] = 'pro1':
	cla
	'For you several minutes is what that guy'

	act 'Disregard':gt 'military', 'rape'

	act 'Run':
		if beg < 10:set peshimraperand = rand(0, 11)
		if beg >= 10 and beg < 20:set peshimraperand = rand(0, 20)
		if beg >= 20 and beg < 30:set peshimraperand = rand(0, 30)
		if beg >= 30 and beg < 40:set peshimraperand = rand(0, 40)
		if beg >= 40 and beg < 50:set peshimraperand = rand(0, 50)
		if beg >= 50 and beg < 60:set peshimraperand = rand(0, 60)
		if beg >= 60 and beg < 70:set peshimraperand = rand(0, 70)
		if beg >= 70 and beg < 80:set peshimraperand = rand(0, 80)
		if beg >= 80 and beg < 90:set peshimraperand = rand(0, 90)
		if beg >= 90:set peshimraperand = rand(11, 100)

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

			act 'Further':gt 'military', 'rape'
		end

		if peshimraperand > 10:
			'You are rushing headlong, crashing through the bushes. Finally, you ran to the polygon'

			act 'Further':gt 'military', 'start'
		end
	end
end

if $ARGS[0] = 'rape':
	cla
	*clr
	set rape += 1
	set bj += 1
	set sex += 1
	set guy += 1
	set anal += 1
	'<center><img src="images/img/military/rape1.jpg"></center>'
	'You woke up in a certain barn with a bag on his head, his head ached badly from the impact.'

	act 'Shout':
		cla
		*clr
		'<center><img src="images/img/military/rape2.jpg"></center>'
		'You began to cry, when you stuck in his mouth member.'
		'"Here´s the nipple to not scream" came the voice of a rapist.'
		'You tried to spit out a member, but this was worse, he thrust it down your throat, and began to fuck your mouth.'

		act 'Further':
			cla
			*clr
			'<center><img src="images/img/military/rape3.jpg"></center>'
			'When you have already started to lose consciousness, choking his cock in her throat, he took it out and threw you on what that box with the power you entered into the vagina, his cock pecked nischadno you, and you had to look at the leash him through tears.'

			act 'Further':
				cla
				*clr
				'<center><img src="images/img/military/rape4.jpg"></center>'
				'When your pussy bored him, and he turned you apart buttocks drove a screw you in the ass, you cried out in pain, but he did not care and he continued to fuck your ass as I could, you cried and begged him to even be lubricated, but in response heard only pleased sniff, Mom told you learn to run that would not hurt Ass.'

				act 'Further':
					cla
					*clr
					'<center><img src="images/img/military/rape5.jpg"></center>'
					'You do not remember how much time passed that you fainted then again came to himself, but in the end he pulled you from the box and you´re exhausted knelt down, he again stuck you dick in your mouth, with the words "Suck", you dutifully started dildo suck it, he has just brutally raped your anus, head wondered bite him, but knocked it a second thought, and suddenly not be able to do it then with my ass, finally he came in your mouth. And once you have lowered his head again as got hit on the head.'
					set cumlip += 1
					set mop = 0
					set minut += 240
					set SUB += 5

					act 'Further':gt 'military', 'start'
				end
			end
		end
	end
end

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