# Palatka
if $ARGS[0] = 'start':
	$sexloc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	palMir = 1
	gs 'stat'
	'<center><b><font color="maroon">tent</font></b></center>'
	'<center><img src="images/img/military/palatka.jpg"></center>'
	palrand = rand(0, 10)

	if palrand = 0:gt 'Palatka', 'pal0'
	if palrand = 1:gt 'Palatka', 'pal1'

	'To your surprise quite spacious tent has a bed here, <a href="exec:gt ''mirror'', ''start''">mirror</a>, and even made improvizorovany <a href="exec:gt ''vann'', ''start''">shower</a>.'

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

	act 'Sleep':
		hour += 8
		son = 100
		gt 'palatka', 'start'
	end
end

if $ARGS[0] = 'pal0':
	cla
	*clr
	'<center><img src="images/img/military/pal0.jpg"></center>'
	'Once you begin to change as the tent includes two soldiers and see you half-naked, running up to you with the members on the edge, you hvaete for their members, but what to do to squeeze harder and get them out of the tent or relax after a hard day.'

	act 'Send':gt 'palatka', 'start'

	act 'Post':
		dynamic $CatName, 'Soldier'
		dynamic $CatName, 'Soldier', $boy1
		guy += 2
		picrand = 22
		xgt 'sexdvoe', 'var'
	end
end

if $ARGS[0] = 'pal1':
	cla
	*clr
	'<center><img src="images/img/military/pal1.jpg"></center>'
	'By accessing the tent you stumble and already flying nose to the ground, but suddenly you pick up strong hands, opening her eyes you see a hefty black.'

	act 'Say thank you':gt 'palatka', 'start'

	act 'Repay in full':
		sexpartkno = 1
		dynamic $CatName, 'Black Soldier'
		guy += 1
		picrand = 43
		gt 'sex', 'minet'
	end
end

--- Palatka ---------------------------------