Modularise item data, change tesla arc from projectile to particle

2021-06-06 16:08:56 +02:00
parent c2f7c6e245
commit 0b8ac97fe9
25 changed files with 141 additions and 85 deletions
@@ -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