Add menu option to start new game from seed, uses system clipboard

src/Dodge/Item/Weapon/AmmoParams.hs

@@ -8,6 +8,7 @@ module Dodge.Item.Weapon.AmmoParams
     ) where
 import Dodge.Data
 import Dodge.Particle.Bullet.Spawn
+import Dodge.Creature.HandPos
 import Geometry
 import LensHelp
 
@@ -33,14 +34,15 @@ defaultAimParams = AimParams
     }
 
 useAmmoParams :: Item -> Creature -> World -> World
-useAmmoParams it = withVelWthHiteff 
+useAmmoParams it cr = withVelWthHiteff 
     (muzvel *.* _amBulVel b) 
     (_rifling $ _itParams it) 
     (_amBulWth b) 
     muzlength
     (_amBulEff b) 
+    cr
   where
-    muzlength = 20
+    muzlength = aimingMuzzlePos cr it
     muzvel = _muzVel $ _itParams it
     b = _aoType $ _itConsumption it
 

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -67,7 +67,7 @@ bangCane = defaultGun
         , _dimCenter = V3 5 0 0
         , _dimPortage = HeldItem
             {_handlePos =  5
-            ,_muzPos    = 20
+            ,_muzPos    = 15
             }
         , _dimSPic = \it -> noPic $ baseCaneShape
             <> makeSingleClipAt (V3 5 0 3) it