      (log/debug "attack message" msg)
      msg))
 
-(defn attack-toughness
+(defn attack->toughness
   [attack]
   (case attack
   :bite        5

               :world         {:npcs [defender]
                               :player attacker
                               :time 0}}
        attacker-path [:world :player]
        defender-path [:world :npcs 0]
        pass-through  (fn [m & _] m)]

      (log/info "defender-size" defender-size)
      (log/info "attack-toughness" attack-toughness)
      (log/info "defender-toughnes" defender-toughness)
      (assert attacker-strength)
      (assert attacker-dexterity)
      (assert defender-speed)
      (assert defender-size)
      (assert attack-toughness  (str "attack" attack))
      (assert defender-toughness)
      (* attacker-strength
         (/ (+ 5 (rr/uniform-double (* 10 attacker-dexterity))) (+ 15 defender-speed))
         (/ (+ 125 attacker-size) (+ 125 defender-size))
