Permalink
Browse files

Adds Larva Lava monster.

  • Loading branch information...
1 parent af77f2e commit 5e6917a17e7c11b61b1bfa87d3e70c42cf774b8d @clanehin committed May 6, 2014
@@ -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 = []
View
@@ -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)
@@ -1,6 +1,7 @@
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 );
}

0 comments on commit 5e6917a

Please sign in to comment.