diff --git a/includes/graphics.h b/includes/graphics.h
index ca761be64..bafe9db60 100644
--- a/includes/graphics.h
+++ b/includes/graphics.h
@@ -142,7 +142,7 @@ void render_signs(pixel *vid_buf);
 
 void render_fire(pixel *dst);
 
-void prepare_alpha(void);
+void prepare_alpha(int size, float intensity);
 
 void draw_image(pixel *vid, pixel *img, int x, int y, int w, int h, int a);
 
diff --git a/includes/luaconsole.h b/includes/luaconsole.h
index f10e025c0..b2a7a6460 100644
--- a/includes/luaconsole.h
+++ b/includes/luaconsole.h
@@ -64,4 +64,5 @@ int luatpt_decorations_enable(lua_State* l);
 int luatpt_cmode_set(lua_State* l);
 int luatpt_error(lua_State* l);
 int luatpt_heat(lua_State* l);
+int luatpt_setfire(lua_State* l);
 #endif
diff --git a/src/graphics.c b/src/graphics.c
index 4be05a607..055a867d3 100644
--- a/src/graphics.c
+++ b/src/graphics.c
@@ -3869,9 +3869,11 @@ void render_fire(pixel *vid)
 		}
 }
 
-void prepare_alpha(void)
+void prepare_alpha(int size, float intensity)
 {
+	//TODO: implement size
 	int x,y,i,j;
+	float multiplier = 255.0f*intensity;
 	float temp[CELL*3][CELL*3];
 	memset(temp, 0, sizeof(temp));
 	for (x=0; x<CELL; x++)
@@ -3881,7 +3883,7 @@ void prepare_alpha(void)
 					temp[y+CELL+j][x+CELL+i] += expf(-0.1f*(i*i+j*j));
 	for (x=0; x<CELL*3; x++)
 		for (y=0; y<CELL*3; y++)
-			fire_alpha[y][x] = (int)(255.0f*temp[y][x]/(CELL*CELL));
+			fire_alpha[y][x] = (int)(multiplier*temp[y][x]/(CELL*CELL));
 }
 
 pixel *render_packed_rgb(void *image, int width, int height, int cmp_size)
diff --git a/src/luaconsole.c b/src/luaconsole.c
index dac25ea8f..5eba5e2a2 100644
--- a/src/luaconsole.c
+++ b/src/luaconsole.c
@@ -53,6 +53,7 @@ void luacon_open(){
 		{"display_mode", &luatpt_cmode_set},
 		{"throw_error", &luatpt_error},
 		{"heat", &luatpt_heat},
+		{"setfire", &luatpt_setfire},
 		{NULL,NULL}
 	};
 
@@ -1036,8 +1037,15 @@ int luatpt_heat(lua_State* l)
 int luatpt_cmode_set(lua_State* l)
 {
     int aheatstate;
-    aheatstate = luaL_optint(l, 1, CM_COUNT);
+    aheatstate = luaL_optint(l, 1, CM_FIRE);
     cmode = aheatstate;
     return 0;
 }
+int luatpt_setfire(lua_State* l)
+{
+	int firesize = luaL_optint(l, 2, 4);
+	float fireintensity = (float)luaL_optnumber(l, 1, 1.0d);
+	prepare_alpha(firesize, fireintensity);
+	return 0;
+}
 #endif