Start moving creature properties out of records

src/Dodge/Creature.hs

@@ -58,28 +58,28 @@ spawnerCrit =
     defaultCreature
         & crHP .~ 300
         & crInv .~ IM.empty
-        & crType . skinUpper .~ lightx4 blue
+--        & crType . skinUpper .~ lightx4 blue
 
 miniGunCrit :: Creature
 miniGunCrit =
     defaultCreature
         & crInv .~ IM.fromList [(0, miniGunX 3)]
-        & crType . skinUpper .~ lightx4 red
-        & crType . humanoidAI .~ MiniGunAI
+--        & crType . skinUpper .~ lightx4 red
+--        & crType . humanoidAI .~ MiniGunAI
 
 longCrit :: Creature
 longCrit =
     defaultCreature
         & crInv .~ IM.fromList [(0, sniperRifle)]
-        & crType . humanoidAI .~ LongAI
-        & crType . skinUpper .~ lightx4 red
+--        & crType . humanoidAI .~ LongAI
+--        & crType . skinUpper .~ lightx4 red
 
 multGunCrit :: Creature
 multGunCrit =
     defaultCreature
         & crInv .~ IM.fromList [(0, volleyGun 4)]
-        & crType . skinUpper .~ lightx4 red
-        & crType . humanoidAI .~ MultGunAI
+--        & crType . skinUpper .~ lightx4 red
+--        & crType . humanoidAI .~ MultGunAI
 
 addArmour :: Creature -> Creature
 addArmour = over crInv insarmour
@@ -100,12 +100,9 @@ startCr =
         & crHP .~ 10000
         & crMaxHP .~ 15000
         & crInv .~ startInventory
-        & crCorpse .~ MakeDefaultCorpse
         & crFaction .~ PlayerFaction
         & crMvType .~ MvWalking yourDefaultSpeed
-        & crType . skinUpper .~ lightx4 black
-        & crType .~ Avatar 
-            (greyN 0.9) (lightx4 green) (greyN 0.3) (PulseStatus 55 0)
+        & crType .~ Avatar (PulseStatus 55 0)
 
 -- | Items you start with.
 startInvList :: [Item]