Tweak rockets, smoke

src/Dodge/Projectile/Create.hs

@@ -16,10 +16,11 @@ import LensHelp
 createShell :: RocketHoming 
     -> Maybe (NewInt ItmInt) 
     -> Maybe (NewInt ItmInt) 
-    -> Bool
+--    -> Bool
     -> ProjectileType
     -> Payload -> Muzzle -> Creature -> World -> World
-createShell homing mdetonator mscreen smokestatus pjtype payload muz cr w = w
+--createShell homing mdetonator mscreen smokestatus pjtype payload muz cr w = w
+createShell homing mdetonator mscreen pjtype payload muz cr w = w
     & updatescreen
     & updatedetonator
     & cWorld . lWorld . projectiles . at i
@@ -52,7 +53,7 @@ createShell homing mdetonator mscreen smokestatus pjtype payload muz cr w = w
         Rocket{} -> 350
     thrustorgrav = case pjtype of
         Grenade -> [ApplyGravityPU]
-        Rocket{} -> [ThrustPU (lifespan - thrustdelay) 0 smokestatus]
+        Rocket{} -> [ThrustPU (lifespan - thrustdelay) 0]
     spindrag = 1
     spinamount = 2
     thrustdelay = 20