diff options
| -rw-r--r-- | engines/hdb/lua-script.cpp | 25 |
1 files changed, 22 insertions, 3 deletions
diff --git a/engines/hdb/lua-script.cpp b/engines/hdb/lua-script.cpp index 3ad3bdb3f0..c180778ac7 100644 --- a/engines/hdb/lua-script.cpp +++ b/engines/hdb/lua-script.cpp @@ -1370,13 +1370,31 @@ static int openFile(lua_State *L) { return 1; } +static int writeto(lua_State *L) { + g_hdb->_lua->checkParameters("writeto", 1); + + lua_pop(L, 1); + + return 1; +} + static int write(lua_State *L) { Common::OutSaveFile *out = g_hdb->_currentOutSaveFile; - const char *data = lua_tostring(L, 2); + const char *data; - g_hdb->_lua->checkParameters("write", 2); + if (g_hdb->isDemo() && g_hdb->isPPC()) { + data = lua_tostring(L, 1); - lua_pop(L, 2); + g_hdb->_lua->checkParameters("write", 1); + + lua_pop(L, 1); + } else { + data = lua_tostring(L, 2); + + g_hdb->_lua->checkParameters("write", 2); + + lua_pop(L, 2); + } out->write(data, strlen(data)); @@ -1722,6 +1740,7 @@ struct FuncInit { { "write", write, }, { "closefile", closeFile, }, { "dofile", dofile, }, + { "writeto", writeto, }, { NULL, NULL } }; |