Cleanup, split CWorld into separate file

2022-07-26 21:19:12 +01:00
parent c2707719fb
commit 6554d219dc
27 changed files with 1049 additions and 911 deletions
@@ -1,6 +1,7 @@
 module Dodge.Creature.Impulse.UseItem
    ( useItem
    , useLeftItem
+    , itemEffect
    ) where
 import Dodge.Data
 import Dodge.Luse
@@ -41,8 +42,8 @@ itemEffect cr it w = case it ^? itUse of
        HammerUp -> f w
        _ -> w & setuhamdown
    setuhamdown = cWorld . creatures . ix (_crID cr) . crHammerPosition .~ HammerDown
-    doequipmentchange = setuhamdown $ hammerTest (toggleEquipmentAt (_rbOptions (_cWorld w)) (crSel cr) cr
-        . activateEquipmentAt (_rbOptions (_cWorld w)) cr)
+    doequipmentchange = setuhamdown $ hammerTest (toggleEquipmentAt (_rbOptions w) (crSel cr) cr
+        . activateEquipmentAt (_rbOptions w) cr)

 tryReload :: Creature -> Item -> World -> (World -> World) -> World -> World
 tryReload cr it w f