26 lines
618 B
Haskell
26 lines
618 B
Haskell
module Dodge.Item.Weapon.Bullet
|
|
( basicBullet
|
|
, hvBullet
|
|
) where
|
|
import Dodge.Data
|
|
import Dodge.Particle.Damage
|
|
import Dodge.Particle.HitEffect.ExpireAndDamage
|
|
|
|
import Geometry.Data
|
|
basicBullet :: AmmoType
|
|
basicBullet = BulletAmmo
|
|
{ _amString = "BASIC"
|
|
, _amBulEff = expireAndDamage basicBulDams
|
|
, _amBulWth = 2
|
|
, _amBulVel = V2 50 0
|
|
, _amBulTraj = BasicBulletTrajectory
|
|
}
|
|
hvBullet :: AmmoType
|
|
hvBullet = BulletAmmo
|
|
{ _amString = "HVBULLET"
|
|
, _amBulEff = expireAndDamage hvBulDams
|
|
, _amBulWth = 6
|
|
, _amBulVel = V2 80 0
|
|
, _amBulTraj = BasicBulletTrajectory
|
|
}
|