farm game w/ muscle growth and some light tf

also gay monsters & some gay humanoids

summary

plot sequences

in the swamp

extremely wet, brackish soil, good for growing gourds or melons in the fall, as well as rare swamp herbs; also allows for easy paddy farming

up on the prarie

good for growing tea bushes and dry grasses like wheat, but watch out for fires in the summer months

stilt house on the fen, by the lake

rich with wildflowers and bracken in summer and fall. there are thickets of berry bushes, but the soil is too wet and dense for trees to grow

stilt hut near the floodplains

rich soil for growing all sorts of things, but it all cycles around the yearly spring flooding. wild rice grows on the river shore

in town

for the sociable type. there's a flowerbed in the front and room for a garden in back. and you're close to everybody else!

town outskirts, by the road out of town

by the crossroads

the town

setting

      ~~~~~~~~~~~~~~~~~ desert
      ^^^^^~~~~~~~~~~~~
       .'^^^^^^^^^^^^^^ mountains
swamp  ,.',`',`,.'.,.',
        ,'.,`'.,O,`'.`  -- swamp house
            O ,.,.'.'   -- crossroad house
marsh ''' ------XX,`O., town -- fen house
road  ----  |    .,,'.  river/swamp transition; bog/fen w/ river/lake
      '' '' | O  ~,.~   -- prarie house
            |    O~'~   -- floodplain house
prarie      |     ~~~  
             |    ~~~   real big river
      ~~~~   |  ~~~~~~~~~~~~
        ~~~~~~~~~~~~   ~~~~~~

probably forests down here

magic

climate/seasons

WINTER/SPRING TRANSITION         | SUMMER/FALL TRANSITION
X X X X X X X -- spring starts   | X X X X X X X -- fall starts
EARLY SPRING                     | EARLY FALL
X X X X X X X {river floods}     | X X X X X X X
X X X X X X X                    | X X X X X X X
X X X X X X O spring equinox     | X X X X X X O fall equinox
LATE SPRING                      | LATE FALL
X X X X X X X                    | X X X X X X X
X X X X X X X                    | X X X X X X X
X X X X X X X {flooding dimishes}| X X X X X X X { harvest festival }
SPRING/SUMMER TRANSITION         | FALL/WINTER TRANSITION
X X X X X X X                    | X X X X X X X
X X X X X X X -- summer starts   | X X X X X X X -- winter starts
EARLY SUMMER                     | EARLY WINTER
X X X X X X X                    | X X X X X X X { black eye visible in sky }
X X X X X X X                    | X X X X X X X
X X X X X X O summer solstice    | X X X X X X O winter solstice
LATE SUMMER                      | LATE WINTER
X X X X X X X                    | X X X X X X X
X X X X X X X                    | X X X X X X X
X X X X X X X                    | X X X X X X X
SUMMER/FALL TRANSITION           | X X X -- { empty days}
X X X X X X X                    | WINTER/SPRING TRANSITION
                                 | X X X X X X X

skills

gardening

foraging

• use: wild plant identification; increased foraging yields; decreased stamina cost of harvesting
• gain: harvesting wild plants & berries

farming

• use: increased plant care info; higher quality grown plant harvests; decreased stamina cost of planting, tending, and harvesting
• gain: planting crops; tending to sprouts; harvesting from a plant you planted yrself

cooking

• use: increased quality cooking products; more visible recipes; decreased stamina cost of cooking
• gain: prolonged food preparation; food processing actions (cheese aging, wine aging, milling, etc)

harvesting

mining

• use: rock identification; increased mining yields; decreased stamina cost of mining
• gain: digging holes, mining rock, and collecting underground scavenge materials (e.g., crystal growths)

woodcutting

• use: increased woodcutting yield; decreased stamina cost of woodcutting
• gain: chopping trees; stripping trees for materials

animals

fishing

• use: increased fish info / quality; decreased stamina cost of fishing; better fishing meter?? is there a fishing minigame??
• gain: catching fish & collecting from nets / fish traps

animal care

• use: increased animal info (diet, likes/dislikes); increased animal good quality; decreased stamina cost of animal care
• gain: feeding animals; animal good extraction action (milk, wool, honey)

trade

• use: increased trade quality
• gain: trading with other characters (& monsters)

refining

magic

plants

	type Days = Int
	type GrowthFunc = Int -> Int -> Int -> Int -> Soil -> GrowthData
	data GrowthData = GrowthData
		{ overall :: Int
		, water :: Int
		, drainage :: Int
		, light :: Int
		, temperature :: Int
		, soil :: Int
		}
	type PlantFunc = Plant -> (Int, Int, Int, Int, Soil) -> Plant
	data Plant
		= DeadPlant
		| GrowingPlant
			{ days :: Int
			, growth :: Int
			, health :: Int
			}
		| FinishedPlant
			{ yield :: Int
			}

	basicPlant :: GrowthFunc -> Days -> PlantFunc
	basicPlant growthFunc maxGrowth =
		\plant envData -> case plant of
			GrowingPlant days growth health ->
				if (health <= 0)
					then DeadPlant
					else if (growth >= maxGrowth)
						then FinishedPlant 1
						else let
								result = growthFunc envData
								temp = case overall result of
									x | x < 0 -> GrowingPlant (days + 1) (growth + result) (health + x)
										| x > 5 && health < 5 -> GrowingPlant (days + 1) (growth + result) (health + 1)
										| x > 10 && health < 10 -> GrowingPlant (days + 1) (growth + result) (health + 1)
										| otherwise -> GrowingPlant (days + 1) (growth + result) health
							in case temp of
								GrowingPlant x y z | z < 0 -> DeadPlant
								x -> x
			p -> p

defaultGrowthFunc
	:: (Int, Int, Float)
	-> (Int, Int, Float)
	-> (Int, Int, Float)
	-> (Int, Int, Float)
	-> (Soil -> Int, Float)
	-> GrowthFunc
defaultGrowthFunc
	(idealWater, waterRange, waterWeight)
	(idealDrainage, drainageRange, drainageWeight)
	(idealLight, lightRange, lightWeight)
	(idealTemp, tempRange, tempWeight)
	(soilMap, soilWeight) =
	\water drainage light temp soil =
		let
			waterVal = fit idealWater waterRange water
			drainageVal = fit idealDrainage drainageRange drainage
			lightVal = fit idealLight lightRange light
			tempVal = fit idealTemp tempRange temp
			soilVal = soilMap soil
			total = round $
				sum
					[ fromIntegral waterVal * waterWeight
					, fromIntegral drainageVal * drainageWeight
					, fromIntegral lightVal * lightWeight
					, fromIntegral tempVal * tempWeight
					, fromIntegral soilVal * soilWeight
					]
				/ sum [waterWeight, drainageWeight, lightWeight, tempWeight, soilWeight]
		in
			GrowthData
				total
				waterVal
				drainageVal
				lightVal
				tempVal
				soilVal
	where -- this function is actually super wrong. we want max value when target == val, decreasing (linearly?) on either side until it hits negatives when target + range == val or target - range == val. and, because the results would depend on the range, we'd want to normalize it too. but, this entire approach introduces the problem of, if positive values are good and negative values are bad, not being able to distinguish too much vs. not enough
		fit :: Int -> Int -> Int -> Int
		fit target range val = abs (val - target) - range

materials/crafting

weird sex stuff

combat

graphics

interface