# 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'
'
Swamp
'
if month >= 4 and month <= 10:
if hour >= 6 and hour < 22:
'
> src="images/locations/gadukino/hunters/gadforestlostswamp.jpg">'
else
'
> src="images/locations/gadukino/hunters/gadforestlostswamp_night.jpg">'
end
else
if hour >= 8 and hour < 18:
'
> src="images/locations/gadukino/hunters/gadforestlostswamp_winter.jpg">'
else
'
> src="images/locations/gadukino/hunters/gadforestlostswamp_winter_night.jpg">'
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:'
> src="images/locations/gadukino/hunters/goswamp.jpg">'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'
> src="images/locations/gadukino/hunters/goswamp_ski.jpg">'
if $clothingworntype = 'nude':'
> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg">'
'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[<>] -= 10'
! add remove clothes if worn out
if dyneval('RESULT = <<$clothingworntype>>H[<>]') <= 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'
'Swamp
'
'
> src="images/locations/gadukino/hunters/panicswamp.jpg">'
'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'
'
> src="images/locations/gadukino/hunters/gadforestlosthelp.jpg">'
'You are exhausted and begin to scream for help...'
act 'Wait':
if temp_gads = 1:
*clr & cla
minut += 10
hunters = 1
hunterhelp = 1
gs 'stat'
'
> src="images/locations/gadukino/hunters/handshelp.jpg">'
'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'
'
> src="images/locations/gadukino/hunters/panicswamp.jpg">'
'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'
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:'
> src="images/locations/gadukino/hunters/goswamp1.jpg">'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'
> src="images/locations/gadukino/hunters/goswamp_ski1.jpg">'
if $clothingworntype = 'nude':'
> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg">'
}
--- gadforestswamp ---------------------------------