Add flavour text, start smoke, support for different reload sounds

src/Dodge/Creature/Action.hs

@@ -14,6 +14,7 @@ import Dodge.WorldEvent.Shockwave
 import Dodge.Data
 import Dodge.Base
 import Dodge.SoundLogic
+import Dodge.SoundLogic.Synonyms
 --import Dodge.WorldEvent
 import Dodge.Inventory
 --import Dodge.LightSources

src/Dodge/Creature/Rationality.hs

@@ -7,6 +7,7 @@ import Dodge.Creature.Action
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.SoundLogic
+import Dodge.SoundLogic.Synonyms
 import Geometry
 
 import Data.Maybe

src/Dodge/Creature/State.hs

@@ -7,6 +7,7 @@ import Dodge.Creature.Stance.Data
 --import Dodge.Creature.Test
 import Dodge.Base
 import Dodge.SoundLogic
+import Dodge.SoundLogic.Synonyms
 import Dodge.RandomHelp
 import Dodge.WorldEvent
 --import Dodge.WallCreatureCollisions
@@ -122,6 +123,9 @@ invSideEff cr w = weaponReloadSounds cr $ IM.foldrWithKey f w (_crInv cr)
 
 weaponReloadSounds :: Creature -> World -> World
 weaponReloadSounds cr w = case _crInv cr IM.!? _crInvSel cr of
+    Just Weapon{_wpReloadType = PassiveReload stype,_wpReloadTime=rt,_wpReloadState=rs} 
+        | rt == rs -> soundOncePos stype (_crPos cr) w
+        | otherwise -> w
     Just Weapon{_wpReloadState = 0} -> w
     Just Weapon{_wpReloadState = 1} -> stopSoundFrom (CrReloadSound cid) w
     Just Weapon{} -> soundFrom (CrReloadSound cid) reloadSound 1 0 w