glife/locations/gadforestswamp.qsrc

# gadforestswamp

$location_type = 'secluded'
if $ARGS[0] = '1':
	$loc = 'gadforestswamp'
	$metka = '1'
	$location_type = 'secluded'

	$menu_loc = 'gadforestswamp'
	$menu_arg = '1'
	menu_off = 0

	gs 'gadukino_event', 'sound'
	gs 'stat'

	'<center><H4>Swamp</H4></center>'
	if month >= 4 and month <= 10:
		if hour >= 6 and hour < 22:
			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_night.jpg"></center>'
		end
	else
		if hour >= 8 and hour < 18:
			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_winter.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_winter_night.jpg"></center>'
		end
	end
	'You come to the edge of the swamp; you can see a hut in the distance.'
	'You can go back into the woods or try to get to the hut through the marsh, but will you have enough strength and agility to overcome this obstacle?'

	act 'Go back to the forest':gt 'gadforestlost','4'

	act 'Try to go through the mire':
		*clr & cla
		menu_off = 1
		minut += 10
		swamprand = pcs_stren + pcs_agil
		gs 'sweat', 'add', 15
		gs 'stat'

		if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp.jpg"></center>'
		if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_ski.jpg"></center>'
		if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
		'You entered the swamp and felt your feet starting to sink into the mud...'
		temp_gads = RAND(1,100)
		act 'Give it another try':
			if swamprand > temp_gads:gt 'swamp_yard', 'start'
			if Enable_nogameover = 0:
				if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
				if swamprand < temp_gads and temp_gads < 90:pcs_bushcraft += 5 & gt 'gadforestswamp', '2'
			else
				pcs_bushcraft += 5
				gt 'gadforestswamp', '2'
			end
		end
	end
end

if $ARGS[0] = '2':
	$loc = 'gadforestswamp'
	$metka = '2'
	$location_type = 'secluded'

	$menu_loc = 'gadforestswamp'
	$menu_arg = '2'
	menu_off = 0

	gs 'gadukino_event', 'sound'
	gs 'stat'

	! unbrush hair and remove makeup
	pcs_hairbsh = 0
	if pcs_makeup > 1:pcs_makeup = 0

	! clothes wear out
	! if dirty = 0 and ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear'):dirty = 1 & dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 10'
	!!add remove clothes if worn out
	! if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
		! 'Your ripped clothes were barely holding together, but now they have finally fell apart.'
		! 'You are naked now.'
		! gadforest_clothestorn = 1
		! gs 'clothing', 'strip', 'gadforestswamp', 2
	! end
	gs 'stat'
	'<center><H4>Swamp</H4></center>'
	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/panicswamp.jpg"></center>'
	'You are stuck in the quagmire."I''m stuck!", you think in panic "What do I do?". '

	act 'Call for help':
		*clr & cla
		menu_off = 1
		minut += 10
		if pcs_sweat < 10: gs 'sweat', 'add', 10
		if week = 6 or week = 7:temp_gads = RAND(1,3)
		if week < 6:temp_gads = RAND(1,5)
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlosthelp.jpg"></center>'

		'You are exhausted and begin to scream for help...'


		act 'Wait':
			if temp_gads = 1:
				*clr & cla
				minut += 10
				hunters_here = 1
				hunterhelp = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/handshelp.jpg"></center>'
				'You hear men speaking and begin to shout louder. The voices come closer and finally, someone''s strong hands grabbed you and dragged back to solid ground.'
				'You are so tired from your ordeal you pass out.'

				act 'Wake up':gt 'swamp_yard', 'start'
			else
				*clr & cla
				minut += 10
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/panicswamp.jpg"></center>'
				'No one responds to your call, looks like you are all alone.'

				act 'Contemplate your life':gt 'gadforestswamp','2'
			end
		end
	end

	act 'Try to get back to the woods':
		*clr & cla
		menu_off = 1
		minut += 10
		swamprand = pcs_stren + pcs_agil
		stren_exp += rand(0,1)
		agil_exp += rand(0,1)
		gs 'sweat', 'add', 30
		temp_gads = RAND(1,100)
		gs 'stat'

		dynamic $swampclothes

		'You decide it''s wisest to try and turn back...'
		act 'Give it another try':
			if swamprand > temp_gads:gt 'gadforestswamp','1'
			if Enable_nogameover = 0:
				if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
				if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
			else
				gt 'gadforestswamp', '2'
			end
		end
	end
	act 'Try to go on to the hut':
		cla
		*clr
		menu_off = 1
		minut += 10
		swamprand = pcs_stren + pcs_agil
		stren_exp += rand(0,1)
		agil_exp += rand(0,1)
		gs 'sweat', 'add', 30
		temp_gads = RAND(1,100)
		gs 'stat'

		dynamic $swampclothes

		'You decide you might as well keep going forward at this point...'
		act 'Give it another try':
			if swamprand > temp_gads:gt 'swamp_yard', 'start'
			if Enable_nogameover = 0:
				if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
				if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
			else
				gt 'gadforestswamp', '2'
			end
		end
	end
end

if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swamp_day ! daystart:
	act 'Look for mushrooms and berries (0:30)':
		cla
		*clr
		menu_off = 1
		minut += 30
		temp = RAND(1,2)
		swamp_day = daystart
		if goforest < 20:goforest += rand(0,1)
		new_boletus += rand(4,5)
		boletus += new_boletus
		new_bilberry += rand(4,5)
		bilberry += new_bilberry
		pcs_mood += 5
		gs 'stat'

		gs 'gadforest', 'clothes1'

		'You spend half an hour wandering through the woods in search of mushrooms and berries and manage to find <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'

		act 'Continue': gt'swamp'
	end
end
$swampclothes = {
	if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp1.jpg"></center>'
	if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_ski1.jpg"></center>'
	if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
}

--- gadforestswamp ---------------------------------