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
		minut += 10
		swamprand = pcs_stren + pcs_agil
		pcs_sweat += 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'
			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 $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
		minut += 10
		if pcs_sweat < 10: pcs_sweat += 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
				hanters = 1
				hanterhelp = 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'
			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
		minut += 10
		swamprand = pcs_stren + pcs_agil
		stren_exp += rand(0,1)
		agil_exp += rand(0,1)
		pcs_sweat += 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
		minut += 10
		swamprand = pcs_stren + pcs_agil
		stren_exp += rand(0,1)
		agil_exp += rand(0,1)
		pcs_sweat += 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'
			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

$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 ---------------------------------