HDB: Complete the fade stubs in lua-script.cpp

1 files changed, 32 insertions, 4 deletions

diff --git a/engines/hdb/lua-script.cpp b/engines/hdb/lua-script.cpp
index f6b80519a3..3e1045905e 100644
--- a/engines/hdb/lua-script.cpp
+++ b/engines/hdb/lua-script.cpp
@@ -87,22 +87,50 @@ static int cineStop(lua_State *L) {
 }
 
 static int cineFadeInBlack(lua_State *L) {
-	warning("STUB: CINE FADE IN BLACK");
+	double steps = lua_tonumber(L, 1);
+
+	g_hdb->_lua->checkParameters("cineFadeInBlack", 1);
+
+	lua_pop(L, 1);
+
+	g_hdb->_ai->cineFadeIn(false, (int) steps);
+
 	return 0;
 }
 
 static int cineFadeOutBlack(lua_State *L) {
-	warning("STUB: CINE FADE OUT BLACK");
+	double steps = lua_tonumber(L, 1);
+
+	g_hdb->_lua->checkParameters("cineFadeOutBlack", 1);
+
+	lua_pop(L, 1);
+
+	g_hdb->_ai->cineFadeOut(false, (int)steps);
+
 	return 0;
 }
 
 static int cineFadeInWhite(lua_State *L) {
-	warning("STUB: CINE FADE IN WHITE");
+	double steps = lua_tonumber(L, 1);
+
+	g_hdb->_lua->checkParameters("cineFadeInWhite", 1);
+
+	lua_pop(L, 1);
+
+	g_hdb->_ai->cineFadeIn(true, (int)steps);
+
 	return 0;
 }
 
 static int cineFadeOutWhite(lua_State *L) {
-	warning("STUB: CINE FADE OUT WHITE");
+	double steps = lua_tonumber(L, 1);
+
+	g_hdb->_lua->checkParameters("cineFadeOutWhite", 1);
+
+	lua_pop(L, 1);
+
+	g_hdb->_ai->cineFadeOut(true, (int)steps);
+
 	return 0;
 }