Adds Larva Lava monster.

parent af77f2e6
......@@ -4,7 +4,7 @@ module Roguestar.Lib.Data.SpeciesData
where
data Species =
BlueRecreant
LavaLarva
| RedRecreant
| Anachronid
| TabularMonstrosity
......
......@@ -22,7 +22,15 @@ speciesInfo RedRecreant = SpeciesData
(Speed, 10)]
[Hover,
Teleportation]
speciesInfo BlueRecreant = speciesInfo RedRecreant
speciesInfo LavaLarva = SpeciesData
[(Aggression, 20),
(Bulk, 2),
(Caution, 2),
(Dexterity, 20),
(Fortitude, 2),
(Perception, 2),
(Speed, 2)]
[]
speciesInfo Anachronid = SpeciesData
[(Aggression, 3),
(Bulk, 3),
......
......@@ -31,6 +31,7 @@ data Biome = TemperateForest
| RelaxingPond
| BareMountain
| CraterInterior
| LavaPool
deriving (Read,Show,Eq,Ord,Enum,Bounded)
-- |
......@@ -140,6 +141,8 @@ terrainInterpFn biomes = case biomes of
(RelaxingPond,_) -> weightedSet [(2,Water),(1,Sand)]
(CraterInterior,CraterInterior) -> weightedSet [(1,RockyGround)]
(CraterInterior,_) -> weightedSet [(1,RockFace)]
(LavaPool,LavaPool) -> weightedSet [(2,Lava),(1,Glass)]
(LavaPool,_) -> weightedSet [(1,RockFace),(1,Glass)]
terrainInterpMap :: Map (MetaTerrain,MetaTerrain) (WeightedSet MetaTerrain)
terrainInterpMap =
......
......@@ -22,13 +22,13 @@ import Roguestar.Lib.Utility.SiteCriteria
homeBiome :: Species -> WeightedSet Biome
homeBiome RedRecreant = weightedSet [(2,TemperateForest),(2,TemperateClearing),(1,RelaxingPond),(1,CraterInterior)]
homeBiome BlueRecreant = weightedSet [(2,TemperateForest),(2,TemperateClearing),(1,RelaxingPond),(1,CraterInterior)]
homeBiome LavaLarva = weightedSet [(1,RelaxingPond),(2,LavaPool),(3,CraterInterior)]
homeBiome Anachronid = weightedSet [(5,TropicalForest),(1,TropicalClearing)]
homeBiome TabularMonstrosity = weightedSet [(3,BareMountain),(1,CraterInterior)]
startingEquipmentBySpecies :: Species -> [Tool]
startingEquipmentBySpecies RedRecreant = []
startingEquipmentBySpecies BlueRecreant = []
startingEquipmentBySpecies LavaLarva = []
startingEquipmentBySpecies Anachronid = []
startingEquipmentBySpecies TabularMonstrosity = []
......
......@@ -40,8 +40,6 @@ data App = App {
_app_game_state :: GameState,
_globals :: Aeson.Value }
--makeLenses [''App]
appInit :: SnapletInit App App
appInit = makeSnaplet "roguestar-server-snaplet" "Roguestar Server" Nothing $
do the_globals <- liftIO makeGlobals
......@@ -441,7 +439,7 @@ styleToCSS Plants = "p"
styleToCSS Dusty = "d"
styleToCSS Sandy = "s"
styleToCSS Wet = "w"
styleToCSS Molten = "o"
styleToCSS Molten = "m"
styleToCSS Gloomy = "g"
styleToCSS Magic = "a"
styleToCSS StrongMagic = "B a"
......@@ -489,7 +487,7 @@ instance Charcoded Tool where
instance Charcoded Species where
codedRepresentation _ RedRecreant = ('r',Strong)
codedRepresentation _ BlueRecreant = ('r',Strong)
codedRepresentation _ LavaLarva = ('l',Strong)
codedRepresentation _ Anachronid = ('X',Strong)
codedRepresentation _ TabularMonstrosity = ('m',Strong)
......
var roguestar_preferences = {
animation_thread_interval : 100,
magic_colors : ['999933', '339999', 'CC44CC'],
molten_colors : ['993333', 'FF0000', '993333', 'FF8800'],
water_colors : ['0055FF', '1155FF', '2255FF', '3355FF', '4455FF', '5555FF', '4455FF', '3355FF', '2255FF', '1155FF' ]
}
......@@ -66,6 +67,7 @@ function runAnimationThread() {
animateViaCSS( '.a', 'color', roguestar_preferences.magic_colors, date );
animateViaCSS( '.w', 'color', roguestar_preferences.water_colors, date );
animateViaCSS( '.m', 'color', roguestar_preferences.molten_colors, date );
setTimeout( runAnimationThread, roguestar_preferences.animation_thread_interval );
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment