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

src/Dodge/Placement/Instance/Turret.hs

@@ -8,17 +8,17 @@ import Dodge.Wall.Delete
 import Dodge.WorldEvent.Explosion
 import Dodge.Item.Weapon.BatteryGuns
 import Dodge.Item.Weapon.BulletGun.Cane
-import Dodge.SoundLogic.LoadSound
-import Dodge.SoundLogic
+--import Dodge.SoundLogic.LoadSound
+--import Dodge.SoundLogic
 import Dodge.Item.Draw
 import Geometry
 import ShapePicture
 import Shape
 import Dodge.Base
 import Dodge.Base.Collide
+import LensHelp
 
 import Data.List
-import Control.Lens
 import qualified Data.IntMap.Strict as IM
 
 putLasTurret :: Float -> Placement
@@ -52,10 +52,13 @@ updateTurret rotSpeed mc w
         | elecDam < 10 = updateFiringStatus . doTurn
         | otherwise = id
     -- TODO make this use the same function as the lasgun
+    it = _tuWeapon (_mcType mc)
     maybeFire
         | _tuFireTime (_mcType mc) > 0
-            = ( particles %~ (makeLaserAt 5 (mcpos + 15 *.* unitVectorAtAngle mcdir) mcdir :) )
-            . soundContinue (MachineSound mcid) mcpos tone440sawtoothquietS (Just 1)
+            -- massive hack
+            = _rUse (_itUse it) it (defaultCreature {_crPos = mcpos,_crDir = mcdir})
+--            = ( particles .:~ makeLaserAt 5 (mcpos + 15 *.* unitVectorAtAngle mcdir) mcdir )
+--            . soundContinue (MachineSound mcid) mcpos tone440sawtoothquietS (Just 1)
         | otherwise = id
     mcid = _mcID mc
     ypos = _crPos $ you w