Refactor, add bullet modules and weapon effect modifiers

2021-05-27 02:50:33 +02:00
parent 0187ae6001
commit 346c426b43
13 changed files with 395 additions and 144 deletions
@@ -32,7 +32,7 @@ itemEffect
    -> World 
    -> World
 itemEffect cr Consumable{_cnEffect=eff } w = maybe w (rmSelectedInvItem (_crID cr)) (eff (_crID cr) w)
-itemEffect cr it@Weapon{_itUse=eff} w = eff it cr w
+itemEffect cr it@Weapon{_itUse=eff} w = foldr ($) eff (_itUseModifiers it) it cr w
 itemEffect cr it@Throwable{_itUse = eff} w = eff it cr w
 itemEffect _ _ w = w