glife/locations/gadforestswamp

# gadforestswamp

$location_type = 'secluded'
if $ARGS[0] = '1':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    cls
    gs'stat'
    !gs'time'
    '<center><H4>Swamp</H4></center>'

    if month >= 4 and month <= 10:
	    if hour >= 6 and hour < 22:
		    '<center><img src="images/qwest/gadukino/Swamp/gadforestlostswamp.jpg"></center>'
	    else
		    '<center><img src="images/qwest/gadukino/Swamp/gadforestlostswamp_night.jpg"></center>'
	    end
    else
	    if hour >= 8 and hour < 18:
		    '<center><img src="images/qwest/gadukino/Swamp/gadforestlostswamp_winter.jpg"></center>'
	    else
		    '<center><img src="images/qwest/gadukino/Swamp/gadforestlostswamp_winter_night.jpg"></center>'
	    end
    end
    'You went to the marsh, behind it you can see some kind of hut. You can go back into the woods or try to get to the hut through the mash, but will you have enough strength and dexterity to overcome this mess?'
    act 'Go back to the forest':gt 'gadforestlost','4'
    act 'To go through the mire':
   	    cla
   	    *clr
        minut += 10
	    swamprand = pcs_stren + pcs_agil
	    pcs_sweat += 10
        temp = RAND(1,100)
	    gs 'stat'
	   
	    if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img src="images/qwest/gadukino/Swamp/goswamp.jpg"></center>'
	    if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img src="images/qwest/gadukino/Swamp/goswamp_ski.jpg"></center>'
        if $clothingworntype = 'nude':'<center><img src="images/qwest/gadukino/Swamp/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
	    'You entered the swamp and felt your feet starting to sink into the mud...'
        act 'Go further':
		    if swamprand > temp:gt 'swamp_yard'   
		    if swamprand < temp and temp >= 90:over = 10 & gt'gameover'
            if swamprand < temp and temp < 90:gt 'gadforestswamp','2'
        end		    
   	end	 
end
if $ARGS[0] = '2':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    cls
	pcs_hairbsh = 0
	if pcs_makeup > 1:pcs_makeup = 0
	!clothes wear out, "dirty" to avoid at a time 
    if dirty = 0 and ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear'):dirty = 1 & dirtyclothes = 1 & dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 10'
	!add remove cloth if worn out, need better texting by illume.
	if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
		'Your clothes are torn to pieces, you are naked now.'
		gs 'clothing', 'strip'
	end
    gs'stat'
    !gs'time'
    '<center><H4>Swamp</H4></center>'
    '<center><img src="images/qwest/gadukino/Swamp/panicswamp.jpg"></center>'
     'You are stuck in the quagmire."I''m stuck!", you think in panic "What do I do?". '
    
    
    act 'Call for help':
   	    cla
   	    *clr
        minut += 10
	    if pcs_sweat < 10: pcs_sweat += 10    
	    if week = 6 or week = 7:temp = RAND(1,3)
	    if week < 6:temp = RAND(1,5)
	    gs 'stat'
		        
	    '<center><img src="images/qwest/gadukino/Swamp/gadforestlosthelp.jpg"></center>'
	    'You are exhausted and begin to scream for help, suddenly you see people...'		
    	    
        act 'Wait':
            if  temp = 1:
                cla
   	            *clr
                minut += 10
                hanters = 1
                hanterhelp = 1
                gs 'stat'           
           
                '<center><img src="images/qwest/gadukino/Swamp/handshelp.jpg"></center>'
	            'You hear men speaking and begin to shouting louder. The voices come closer and finally, someone''s strong hands grabbed you and dragged back to solid ground.'
	       
	            act 'Further':gt 'swamp_yard'
            else
                cla
   	            *clr           
                minut += 10
                '<center><img src="images/qwest/gadukino/Swamp/panicswamp.jpg"></center>'
                'No one responds to your call, looks like you are all alone.'          
                act 'Further':gt 'gadforestswamp','2'
            end    
        end
   	end    		    	
    act 'Trying to get back to the woods':
   	    cla
   	    *clr
	    minut += 10
	    swamprand = pcs_stren + pcs_agil
	    stren_exp += rand(0,1)
	    agil_exp += rand(0,1)
	    pcs_sweat += 30
	    temp = RAND(1,100)
	    gs 'stat'

        dynamic $swampclothes        		
		'You decided not to tempt fate more and turn back...'		
 
		act 'Go':
		    if swamprand > temp:gt 'gadforestswamp','1'   
		    if swamprand < temp and temp <= 20:over = 10 & gt'gameover'
            if swamprand < temp and temp > 20:gt 'gadforestswamp','2'
        end    
   	end	     	
    act 'Try to go on to the house':
   	    cla
   	    *clr
	    minut += 10
	    swamprand = pcs_stren + pcs_agil
	    stren_exp += rand(0,1)
	    agil_exp += rand(0,1)	    
	    pcs_sweat += 30
	    temp = RAND(1,100)
	    gs 'stat'

        dynamic $swampclothes       	    
		'You thought more about it and decided against it. You move on from the house...'
      	
        act 'Go':
		    if swamprand > temp:gt 'swamp_yard'   
		    if swamprand < temp and temp <= 30:over = 10 & gt'gameover'
            if swamprand < temp and temp > 30:gt 'gadforestswamp','2'
        end 
  	end	     
end  

$swampclothes = {	
	if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img src="images/qwest/gadukino/Swamp/goswamp1.jpg"></center>'
    if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img src="images/qwest/gadukino/Swamp/goswamp_ski1.jpg"></center>'
    if $clothingworntype = 'nude':'<center><img src="images/qwest/gadukino/Swamp/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
}

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