glife/locations/gadforestlost.qsrc

# gadforestlost

!make this trigger after 2 days in swamp house, minus a countdown per hour
if $ARGS[0] = 'forestrescue':
	!rescue in forest by illume. I think we need good texts.
	cls
	minut += 150
	lost_girl = 0
	dirtyclothes = 0 & swamp_clothes = 0
	forest_lostday = 0
	hanters = 0
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
	'You wander in the forest trying to find your way out, suddenly you spot a man dressed as a forest ranger.'
	'"And here is our lost girl." he said wearily, "Your grandfather and grandmother are very worried about you. They asked me to help find you. Follow me, I will take you home."'
	if $loc = 'gadforestrelax':
		!rescued during rest
		if bonfire = 1:
			!have fire
			'When lost, it''s very smart if you stay in one place and make a fire. It will keep you warm, and make you visable to others.'
		else
			'Staying in one place is a good idea when you are lost.'
		end
	end
	'You get ready quickly and you follow the forest ranger home.'
	act 'Further':gt'Gadhouse'
end
if $ARGS[0] = '1':
	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 7: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
	$location_type = 'secluded'
	$metka = $ARGS[0]
	 $loc = $CURLOC
	gs 'gadukino_event', 'sound'
	cla
	*clr
	wolfrand = rand(1,10)
	hantrand = rand(1,10)
	gs'stat'
	!gs'time'
	gs 'gadforestlost', 'gadforestlost'

	if wolfrand = 1 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'

	act 'Look for the road':
		cla
		*clr
		minut += 60
		pcs_mood -= 5
		goforest += rand(0,1)
		lostrand = rand(1,40)
		gs 'stat'

		gs 'gadforestlost', 'lostclothes'
		if goforest > lostrand:
			act 'Look for the road on':gs 'gadforestlost', 'gadforestlostfinish1'
		else
			act 'Look for the road on':gt 'gadforestlost','1'
		end
		act 'To take a break':gt 'gadforestrelax'
	end
	if rand(1,10)> 8: gs 'gadforest', 'torncloth'
	gs 'gadforestlost', 'searchfood'
end
if $ARGS[0] = '2':
	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 8: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
	$location_type = 'secluded'
	$metka = $ARGS[0]
	$loc = $CURLOC
	gs 'gadukino_event', 'sound'
	cls
	wolfrand = rand(1,10)
	gs'stat'
	!gs'time'
	gs 'gadforestlost', 'gadforestlost'

	if wolfrand <= 2 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
	if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'

	act 'Look for the road':
		cla
		*clr
		minut += 60
		pcs_mood -= 5
		goforest += rand(0,1)
		lostrand = rand(1,120)
		gs 'stat'

		gs 'gadforestlost', 'lostclothes'
		if goforest > lostrand:
			act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish2'
		else
			act 'Look for the road on':gt 'gadforestlost','2'
		end
		act 'To take a break':gt 'gadforestrelax'
	end
	if rand(1,10)> 7: gs 'gadforest', 'torncloth'
	gs 'gadforestlost', 'searchfood'
end
if $ARGS[0] = '3':
	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
	$location_type = 'secluded'
	$metka = $ARGS[0]
	$loc = $CURLOC
	gs 'gadukino_event', 'sound'
	cls
	wolfrand = rand(1,10)
	gs'stat'
	!gs'time'
	gs 'gadforestlost', 'gadforestlost'
	if wolfrand <= 3 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
	if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'

	act 'Look for the road':
		cla
		*clr
		minut += 60
		pcs_mood -= 5
		goforest += rand(0,1)
		lostrand = rand(1,180)
		gs 'stat'

		gs 'gadforestlost', 'lostclothes'
		if goforest > lostrand:
			act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish3'
		else
			act 'Look for the road on':gt 'gadforestlost','3'
		end
		act 'To take a break':gt 'gadforestrelax'
	end
	if rand(1,10)> 6: gs 'gadforest', 'torncloth'
	gs 'gadforestlost', 'searchfood'
end
if $ARGS[0] = '4':
	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
	$location_type = 'secluded'
	$metka = $ARGS[0]
	$loc = $CURLOC
	gs 'gadukino_event', 'sound'
	cls
	wolfrand = rand(1,10)
	gs'stat'
	!gs'time'
	gs 'gadforestlost', 'gadforestlost'

	if wolfrand <= 4 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
	if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'

	act 'Look for the road':
		cla
		*clr
		minut += 60
		pcs_mood -= 5
		goforest += rand(0,1)
		lostrand = rand(1,300)
		temp = rand(1,10)
		gs 'stat'

		gs 'gadforestlost', 'lostclothes'
		act 'Look for the road on ':
			if goforest > lostrand: gs 'gadforestlost', 'gadforestlostfinish4'
			if goforest < lostrand and temp > 7:gt 'gadforestswamp','1'
			if goforest < lostrand and temp <= 7:gt 'gadforestlost','4'
		end
		act 'To take a break':gt 'gadforestrelax'
	end
	if rand(1,10)> 7: gs 'gadforest', 'torncloth'
	gs 'gadforestlost', 'searchfood'
end
if $ARGS[0] = 'gadforestlost':
	'<center><H4>Forest</H4></center>'
	if month >= 4 and month <= 10:
		if hour >= 6 and hour < 22:
			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost0.'+rand(1,6)+'.jpg"></center>'
			'You get lost in the woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
		else
			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.'+rand(1,4)+'.jpg"></center>'
			'You get lost in the woods. The situation becomes even worse, because it''s now night time.'
		end
	else
		if hour >= 8 and hour < 18:
			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter0.'+rand(1,5)+'.jpg"></center>'
			'You get lost in the winter woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
		else
			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter_night0.'+rand(1,4)+'.jpg"></center>'
			'You get lost in the winter woods. The situation becomes even worse, because it''s now night time.'
		end
	end
end
if $ARGS[0] = 'lostclothes':
	if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch0.'+rand(1,4)+'.jpg"></center>'
	if $clothingworntype ! 'nude' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_ski0.'+rand(1,4)+'.jpg"></center>'
	if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_nude0.'+rand(1,4)+'.jpg"></center>'
	'Within an hour of wandering through the woods you decide....'
end
if $ARGS[0] = 'gadforestlostfinish':
	'<center><H4>Somewhere in the woods</H4></center>'
	'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadjoy.jpg"></center>'
	'You look over and realize that you finally see houses, glad to get out of this alive you rush forward.'
	!clear lost flags by illume, clear dirtyclothes flag by rachels
	lost_girl = 0
	dirtyclothes = 0 & swamp_clothes = 0
	forest_lostday = 0
	hanters = 0
	if $clothingworntype = 'nude':
		act 'Out of the woods':
			minut += 25
			'You sneak out the woods, hiding your naked body in shadow and moving toward grandparents house.'
			'You Successfully reach home without witness.'
			cla
			act 'Further':gt'Gadhouse'
		end
		temp=0
		!disable further act add.
	end
end
if $ARGS[0] = 'gadforestlostfinish1':
	cls
	*clr
	temp = RAND(1,3)
	lost = 0
	pcs_mood += 20
	!gs'time'
	gs 'stat'

	gs 'gadforestlost', 'gadforestlostfinish'
	''

	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'

end
if $ARGS[0] = 'gadforestlostfinish2':
	cls
	*clr
	temp = RAND(1,5)
	lost = 0
	pcs_mood += 20
	!gs'time'
	gs 'stat'

	gs 'gadforestlost', 'gadforestlostfinish'
	''

	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
end
if $ARGS[0] = 'gadforestlostfinish3':
	cls
	*clr
	temp = RAND(1,7)
	lost = 0
	pcs_mood += 20
	!gs'time'
	gs 'stat'

	gs 'gadforestlost', 'gadforestlostfinish'
	''

	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
	if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road'
	if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
end
if $ARGS[0] = 'gadforestlostfinish4':
	cls
	*clr
	temp = RAND(1,9)
	lost = 0
	pcs_mood += 20
	!gs'time'
	gs 'stat'

	gs 'gadforestlost', 'gadforestlostfinish'
	''

	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
	if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road'
	if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
	if temp = 8:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
	if temp = 9 and goswamp = 0:act 'Out of the woods':minut += 15 & gt 'gadforestswamp','1'
	if temp = 9 and goswamp = 1:act 'Out of the woods':minut += 15 & gt 'swamp'

end
if $ARGS[0] = 'searchfood':
	if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10:
		act 'To look for mushrooms and berries':
			cla
			*clr
			minut += 30
			new_boletus += rand(1,2)
			new_bilberry += rand(1,2)
			if new_boletus + new_bilberry > 0:
				boletus += new_boletus
				bilberry += new_bilberry
				pcs_mood += 5
				gs 'stat'

				gs 'gadforest', 'clothes1'
				'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
			else
				pcs_mood -= 5
				gs 'gadforest', 'clothes2'
				'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.'
			end
			gs 'stat'
			act 'Further':gt $loc, $metka
		end
	end
end

--- gadforestlost ---------------------------------