diff --git a/src/Dodge/Particle/Flame.hs b/src/Dodge/Particle/Flame.hs
new file mode 100644
index 000000000..095f9fe6f
--- /dev/null
+++ b/src/Dodge/Particle/Flame.hs
@@ -0,0 +1,13 @@
+module Dodge.Particle.Flame where
+import Dodge.Data
+import Dodge.WorldEvent
+import Geometry
+import LensHelp
+
+import System.Random
+
+makeFlame :: Point2 -> Point2 -> World -> World
+makeFlame pos vel w = w & instantParticles .:~ aFlameParticle t pos vel Nothing
+    & randGen .~ g
+  where 
+    (t,g) = randomR (99,101) (_randGen w)