Modularise item data, change tesla arc from projectile to particle

src/Dodge/Default.hs

@@ -7,6 +7,7 @@ This module contains prototypical data structures.
 module Dodge.Default where
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Data
+import Dodge.Item.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.AlertLevel.Data
@@ -140,6 +141,7 @@ defaultEquipment = Equipment
     , _itZoom = defaultItZoom
     , _itInvColor = yellow
     , _itInvDisplay = _itName
+    , _itAimStance = LeaveHolstered
     }
 defaultItZoom :: ItZoom
 defaultItZoom = ItZoom 20 0.2 1 20 0.2 1
@@ -157,6 +159,7 @@ defaultConsumable = Consumable
     , _itInvDisplay = \it -> _itName it ++ " x" ++ show (_itAmount it)
     , _itEffect = wpRecock
     , _itHammer = HammerUp
+    , _itAimStance = LeaveHolstered
     }
 defaultApplyDamage :: [DamageType] -> Creature -> (World -> World, Creature)
 defaultApplyDamage ds cr = (id, doPoisonDam $ foldr (\d c -> snd $ applyIndividualDamage d c) cr ds')
@@ -203,6 +206,7 @@ defaultIt = Consumable
     , _itInvColor = blue
     , _itEffect = NoItEffect
     , _itHammer = HammerUp
+    , _itAimStance = LeaveHolstered
     }
 defaultButton :: Button
 defaultButton = Button