22 lines
524 B
Haskell
22 lines
524 B
Haskell
module Dodge.Item.Weapon.Bullet
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.WorldEvent.HitEffect
|
|
import Dodge.Particle.Bullet.HitEffect
|
|
|
|
import Geometry.Data
|
|
basicBullet :: Ammo
|
|
basicBullet = BulletAmmo
|
|
{ _amString = "BULLET"
|
|
, _amBulEff = destroyOnImpact bulHitCr bulHitWall' bulHitFF'
|
|
, _amBulWth = 2
|
|
, _amBulVel = V2 30 0
|
|
}
|
|
hvBullet :: Ammo
|
|
hvBullet = BulletAmmo
|
|
{ _amString = "HVBULLET"
|
|
, _amBulEff = penWalls hvBulHitCr hvBulHitWall' bulHitFF'
|
|
, _amBulWth = 6
|
|
, _amBulVel = V2 80 0
|
|
}
|