glife/locations/Palatka

# Palatka
if $ARGS[0] = 'start':
	$sexloc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	gs 'stat'
	set palMir = 1
	'<center><b><font color="maroon">tent</font></b></center>'
	'<center><img src="images/img/military/palatka.jpg"></center>'
	set 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 'Exit':gt 'Military', 'start'

	act 'Sleep':
		set hour += 8
		set son = 24
		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':
		set guy += 2
		set 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':
		set guy += 1
		set picrand = 43
		gt 'sex', 'minet'
	end
end

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