Modularise item data, change tesla arc from projectile to particle

src/Dodge/Creature/Action/Movement.hs

@@ -2,6 +2,7 @@ module Dodge.Creature.Action.Movement
     where
 import Dodge.Data
 import Dodge.Creature.Stance.Data
+import Dodge.Item.Data
 import Geometry
 
 import Data.Maybe

src/Dodge/Creature/Picture.hs

@@ -24,7 +24,7 @@ basicCrPict
     -> Picture
 basicCrPict col cr w = pictures $
     targetingPic ++
-    [ tr . onLayer CrLayer . piercingMod $ bluntScale naked 
+    [ tr . onLayer CrLayer . piercingMod $ bluntScale $ naked 
 --    , drawAwakeLevel cr
     , tr $ drawEquipment cr
     ]
@@ -37,7 +37,11 @@ basicCrPict col cr w = pictures $
         | strikeMelee   = color white $ circleSolid $ _crRad cr
         | pdam > 200    = color red $ circleSolid $ _crRad cr
         | pdam > 99     = color white $ circleSolid $ _crRad cr
-        | otherwise     = pictures [color col' $ circleSolid $ _crRad cr, circLine $ _crRad cr]
+        | otherwise     = pictures 
+            [ translate (0.25 * crad) 0 $ circleSolid (crad * 0.5)
+            , scale 0.5 1 $ color col' $ circleSolid $ _crRad cr, circLine $ _crRad cr
+            ]
+    crad = _crRad cr
     pastDams = _crPastDamage $ _crState cr
     pdam = sum $ concatMap (map _dmAmount) pastDams
     col' = light . light . light $ light col

src/Dodge/Creature/Property.hs

@@ -1,6 +1,7 @@
 module Dodge.Creature.Property
     where
 import Dodge.Data
+import Dodge.Item.Data
 import Geometry
 
 import Control.Lens

src/Dodge/Creature/State.hs

@@ -1,5 +1,6 @@
 module Dodge.Creature.State where
 import Dodge.Data
+import Dodge.Item.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 --import Dodge.Creature.Test