Implement randomised markings on sensors

2022-03-13 19:59:46 +00:00
parent 06a501ff88
commit 1b6f11709c
16 changed files with 169 additions and 95 deletions
@@ -63,11 +63,6 @@ bulPenCr' bt p cr w = w
    & bulletHitSound ep
    & creatures . ix cid . crState . crDamage .++~
        damageGamut 50 50 d1 sp p ep
--        [Damage Piercing 50 sp p ep NoDamageEffect
--        ,Damage Blunt    50  sp p ep NoDamageEffect
--        ,Damage TorqueDam 1 sp p ep $ TorqueDamage d1
--        ,Damage PushDam 1 sp p ep . PushBackDamage $ 3 *.* (ep -.- sp)
--        ] 
  where 
    (d1,_)  = randomR (-0.7,0.7) $ _randGen w
    cid = _crID cr