Pass item to item use function

2021-05-25 18:25:42 +02:00
parent d5fed6c987
commit 28386ec8b9
7 changed files with 54 additions and 48 deletions
@@ -32,8 +32,8 @@ itemEffect
    -> World 
    -> World
 itemEffect cr Consumable{_cnEffect=eff } w = maybe w (rmSelectedInvItem (_crID cr)) (eff (_crID cr) w)
-itemEffect cr Weapon{_itUse=eff} w = eff cr w
-itemEffect cr Throwable{_itUse = eff} w = eff cr w
+itemEffect cr it@Weapon{_itUse=eff} w = eff it cr w
+itemEffect cr it@Throwable{_itUse = eff} w = eff it cr w
 itemEffect _ _ w = w

 useLeftItem