|
@@ -1,210 +0,0 @@
|
|
|
-# 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
|
|
|
- menu_off = 1
|
|
|
- minut += 10
|
|
|
- swamprand = pcs_stren + pcs_agil
|
|
|
- gs 'sweat', 'add', 15
|
|
|
- gs 'stat'
|
|
|
-
|
|
|
- if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp.jpg"></center>'
|
|
|
- if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and PCloSkirt > 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', '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[<<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
|
|
|
- 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'
|
|
|
- '<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
|
|
|
- hunters_here = 1
|
|
|
- hunterhelp = 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', 'start'
|
|
|
- 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
|
|
|
- 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 <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
|
|
|
-
|
|
|
- act 'Continue': gt'swamp'
|
|
|
- end
|
|
|
-end
|
|
|
-$swampclothes = {
|
|
|
- if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp1.jpg"></center>'
|
|
|
- if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and PCloSkirt > 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 ---------------------------------
|
|
|
-
|