glife/locations/Palatka

# Palatka
$location_type = 'event'

if $ARGS[0] = 'start':
	$sexloc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
    $location_type = 'private'
	palMir = 1
	gs 'stat'
	'<center><b><font color="maroon">tent</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/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':palMir = 0 & gt 'Military', 'start'

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

if $ARGS[0] = 'pal0':
	cla
	*clr
	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/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':
		gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
		gs 'boyStat', $npclastgenerated
		$boy[0] = $boy
		gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
		$boy[1] = $npclastgenerated
		guy += 2
		picrand = 22
		xgt 'sexdvoe', 'var'
	end
end

if $ARGS[0] = 'pal1':
	cla
	*clr
	'<center><img <<$set_imgh>> src="images/locations/city/shared/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
		gs 'npcgeneratec', 0, 'Black Soldier', rand(18,35)
		npc_Malen[$npclastgenerated] = rand(10,15)
		gs 'boyStat', $npclastgenerated
		guy += 1
		picrand = 43
		gt 'sex', 'minet'
	end
end

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