Start restructuring Item datatype

2021-11-27 12:48:23 +00:00
parent fe37f208da
commit bfdac2fad5
16 changed files with 56 additions and 55 deletions
@@ -8,21 +8,21 @@ import Dodge.WorldEvent.HitEffect
 import Dodge.Particle.Bullet.HitEffect

 import Geometry.Data
-basicBullet :: Ammo
+basicBullet :: AmmoType
 basicBullet = BulletAmmo
    { _amString = "BULLET"
    , _amBulEff = destroyOnImpact bulHitCr bulHitWall
    , _amBulWth = 2
    , _amBulVel = V2 50 0
    }
-ltBullet :: Ammo
+ltBullet :: AmmoType
 ltBullet = BulletAmmo
    { _amString = "LTBULLET"
    , _amBulEff = destroyOnImpact bulHitCr bulHitWall
    , _amBulWth = 2
    , _amBulVel = V2 40 0
    }
-hvBullet :: Ammo
+hvBullet :: AmmoType
 hvBullet = BulletAmmo
    { _amString = "HVBULLET"
    , _amBulEff = penWalls hvBulHitCr hvBulHitWall