Reorganise weapons, start work on drones

2021-11-22 00:37:27 +00:00
parent 1aa797ddef
commit 213f573011
19 changed files with 559 additions and 403 deletions
@@ -66,3 +66,9 @@ changeFuse scrollAmount _ it = it
    oldTime = _itFuseTime $ _itAttachment it
    newTime = min 90 $ max 20 $ oldTime - round (5 * scrollAmount)
    zm = 50 / fromIntegral newTime
+
+--removeItAttachment :: Int -> Int -> World -> World
+--removeItAttachment i _ w = w & creatures . ix i . crInv . ix itRef . itAttachment .~ NoItAttachment
+--  where 
+--    cr = _creatures w IM.! i
+--    itRef = _crInvSel cr