Add spawner gun

src/Dodge/Creature.hs

@@ -254,6 +254,7 @@ startCr = defaultCreature
         (
         [pistol
         ,blinkGun
+        ,spawnGun lamp
         ,flameGrenade
         ,teslaGrenade
         ,autoGun

src/Dodge/Item/Weapon.hs

@@ -82,6 +82,7 @@ pistol = Weapon
     , _itInvColor = white
     }
 defaultGun = pistol
+
 defaultAutoGun = autoGun {_itScrollUp = const id
                          , _itScrollDown = const id, _itInvDisplay = basicWeaponDisplay}
 effectGun :: String -> (Int -> World -> World) -> Item
@@ -900,13 +901,14 @@ aFlame a cid w
             w
         where 
             (a2,g) = randomR (-0.1,0.1) (_randGen w)
+            (t,_) = randomR (99,101) (_randGen w)
             angle = min flamerAngle $ max (-flamerAngle) (a + a2)
             cr = (_creatures w IM.! cid)
             dir = _crDir cr + angle
             pos = _crPos cr +.+ ((_crRad cr + 2.9) *.* unitVectorAtAngle (_crDir cr))
             w1 = set randGen g w
             vel = (_crPos cr -.- _crOldPos cr) +.+ 4 *.* unitVectorAtAngle dir
-            insertFlame = makeFlame pos vel (Just cid) -- . makeFlame pos2 vel (Just cid)
+            insertFlame = makeFlame t pos vel (Just cid) -- . makeFlame pos2 vel (Just cid)
             resetAngle = set (creatures . ix cid . crInv . ix (_crInvSel cr) . wpFire)
                                               (shoot $ aFlame angle)
 
@@ -1942,4 +1944,23 @@ makeLaserScope p ep d relFrac = Particle'
 
 
 
+spawnGun :: Creature -> Item
+spawnGun cr = defaultGun
+    { _itName       = "SPAWNER"
+    , _wpMaxAmmo    = 1
+    , _wpLoadedAmmo = 1
+    , _wpReloadTime = 80
+    , _wpReloadState = 0
+    , _wpFireRate   = 100
+    , _wpFire       = spawnCrNextTo cr
+    }
 
+spawnCrNextTo :: Creature -> Int -> World -> World
+spawnCrNextTo cr i w = w & creatures %~ IM.insert k newCr
+  where
+    k = newKey $ _creatures w
+    sCr = _creatures w IM.! i
+    newCr = cr
+        & crID  .~ k
+        & crPos .~ _crPos sCr +.+ unitVectorAtAngle (_crDir sCr)
+        & crOldPos .~ _crPos sCr +.+ unitVectorAtAngle (_crDir sCr)

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -37,8 +37,8 @@ aFlameParticle t pos vel maycid = Pt'
     , _btHitEffect'   = destroyOnImpact (doFlameDam 1) noEff noEff
     }
 
-makeFlame :: Point2 -> Point2 -> Maybe Int -> World -> World
-makeFlame pos vel maycid = over particles' (aFlameParticle 100 pos vel maycid : )
+makeFlame :: Int -> Point2 -> Point2 -> Maybe Int -> World -> World
+makeFlame t pos vel maycid = over particles' (aFlameParticle t pos vel maycid : )
 
 drawFlame :: Point2 -> Particle' -> Picture
 drawFlame rotd pt = thePic