glife/locations/parks.qsrc

# parks

if $ARGS[0] = 'start':
	*clr & cla
	$location_type = 'public_outdoors'
	$metka = 'start'
	$loc = 'parks'
	$menu_loc = 'parks'
	$menu_arg = 'start'
	$locclass = 'city_park'
	menu_off = 0
	gs'stat'
	'<center><B>Old Town Park</B></center>'
	'<center><img <<$set_imgh>> src="images/locations/oldtown/park/parkus.jpg" ></center>'
	'The gardens of the old palace have been sculpted over many years into a wonder landscape with a tranquil atmosphere.'
	'The old park is a favourite vacation spot for tourists and servers as the main feature of Old Town.'

	'Wander deeper into the <a href="exec:gt ''lug'',''start''">park</a>.'


	act 'Go to High Street': minut += 10 &  gt 'liames'

	act 'Go to Town Center': minut += 10 & gt 'liam'

	act 'Walk around the park (1 hour)':
		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
		cla
		minut += 60
		pcs_mood += 10
		gs'stat'
		'You leisurely stroll through Old Town Park, breathing in the fresh air, and reflecting on the vicissitudes of fate.'

		act 'Complete outing.':gt 'parks','start'
	end

	gs 'park_walkevents', 'run'

	if hour >= 20 or hour < 6 :
		if home_owned[4] = 0:
			!nowhere to live in town
			'It''s quite dark now, and you have no where to stay nearby. Maybe you should try to sleep on a bench?'
		else
			'It''s quite dark now, and you don''t feel like walking. Maybe you should try sleeping on a bench?'
		end
		act 'Sleep on a bench': gt'placer_sex','sleeping_park_bench'
	end

	act 'Sit down on the bench':gs 'placer_sex', 'sitting_park_bench'
	
	if joint > 0 and jointhigh = 0: act 'Smoke a joint': gs 'drugs', 'joint' & gt $loc, $metka

	if pcs_inhib >= 35 or exhibitionist_lvl > 0:
		act 'Flash your tits':
			menu_off = 1
			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
			*clr & cla
			inhib_exp += rand(1,3)
			gs 'flash', 'tits', 'outdoors', 5
			gs 'stat'

			act 'Continue': gt 'parks', 'start'
		end
	end

	if exhibitionist_lvl > 1:
		act 'Flash your pussy':
			menu_off = 1
			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
			*clr & cla
			gs 'flash', 'pussy', 'outdoors', 5
			gs 'stat'

			act 'Continue': gt 'parks', 'start'
		end
	end
end

--- parks ---------------------------------