# 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', '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[<>] -= 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_here = 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', 'start' 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', '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 <> kg of mushrooms and <> kg of berries.' act 'Continue': gt'swamp' 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 ---------------------------------