Commit before partial cleanup, continue weapon effect refactor

This commit is contained in:
2024-09-21 16:04:23 +01:00
parent bb18831393
commit 9dff2fcd7a
37 changed files with 817 additions and 856 deletions
+1 -78
View File
@@ -1,78 +1 @@
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(45,25)-(323,30): warning: [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative:
Patterns not matched:
FlameSpitterMod
FlameSpitterRepeatMod
|
45 | heldEffect effecttype = case effecttype of
| ^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:503:1-10: warning: [-Wmissing-signatures]
Top-level binding with no type signature:
walkNozzle :: Muzzle -> p1 -> p2 -> World -> World
|
503 | walkNozzle mz itm cr w = w
| ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:503:15-17: warning: [-Wunused-matches]
Defined but not used: itm
|
503 | walkNozzle mz itm cr w = w
| ^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:503:19-20: warning: [-Wunused-matches]
Defined but not used: cr
|
503 | walkNozzle mz itm cr w = w
| ^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:507:6-15: warning: [-Wunused-local-binds]
Defined but not used: walkamount
|
507 | (walkamount, g) = randomR (- aspeed, aspeed) (_randGen w)
| ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:509:5-8: warning: [-Wunused-local-binds]
Defined but not used: maxa
|
509 | maxa = _nzMaxWalkAngle nz
| ^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:510:5-6: warning: [-Wunused-local-binds]
Defined but not used: wa
|
510 | wa = min maxa $ max (negate maxa) (_nzCurrentWalkAngle nz + walkamount)
| ^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:552:1-17: warning: [-Wmissing-signatures]
Top-level binding with no type signature:
removeAmmoFromMag :: Int -> Maybe Int -> Creature -> World -> World
|
552 | removeAmmoFromMag x mid cr = fromMaybe id $ do
| ^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:565:5-7: warning: [-Wunused-local-binds]
Defined but not used: cid
|
565 | cid = _crID cr
| ^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(608,13)-(830,9): warning: [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative:
Patterns not matched:
FlameSpitterMod
FlameSpitterRepeatMod
|
608 | useMod hm = case hm of
| ^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(936,14)-(952,85): warning: [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative:
Patterns not matched: HeldOverNozzlesUseGasParams
|
936 | useHeld hu = case hu of
| ^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:1045:1-10: warning: [-Wmissing-signatures]
Top-level binding with no type signature:
doGenFloat :: RandomGen g => GenFloat -> g -> (Float, g)
|
1045 | doGenFloat (ConstFloat x) g = (x,g)
| ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:1106:21-22: warning: [-Wunused-matches]
Defined but not used: mz
|
1106 | shootTeslaArc it cr mz w =
| ^^
All good (617 modules, at 16:01:23)