Add test tileset textures

2021-06-11 13:51:06 +02:00
parent 02511afa80
commit a9aa2ca2cb
18 changed files with 75 additions and 38 deletions
@@ -16,7 +16,7 @@ useItem n w = itemEffect c it w
 -- TODO this needs sorting out and possibly removing
 crUseItem :: Creature -> World -> World
 --crUseItem cr = itemEffect (_crID cr) (_crInv cr IM.! _crInvSel cr)
-crUseItem cr = tryUseItem cr
+crUseItem = tryUseItem

 tryUseItem 
    :: Creature