/***************************************************************************
 *   Copyright (C) 2008-2013 by Heiko Koehn - KoehnHeiko@googlemail.com    *
 *   Copyright (C) 2013-2016 by Stephen Lyons - slysven@virginmedia.com    *
 *   Copyright (C) 2014-2017 by Ahmed Charles - acharles@outlook.com       *
 *   Copyright (C) 2016 by Eric Wallace - eewallace@gmail.com              *
 *   Copyright (C) 2016 by Chris Leacy - cleacy1972@gmail.com              *
 *   Copyright (C) 2016 by Ian Adkins - ieadkins@gmail.com                 *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
 ***************************************************************************/


#include "TLuaInterpreter.h"


#include "Host.h"
#include "HostManager.h"
#include "TAlias.h"
#include "TArea.h"
#include "TCommandLine.h"
#include "TConsole.h"
#include "TDebug.h"
#include "TEvent.h"
#include "TForkedProcess.h"
#include "TMap.h"
#include "TRoom.h"
#include "TRoomDB.h"
#include "TTextEdit.h"
#include "TTimer.h"
#include "TTrigger.h"
#include "dlgComposer.h"
#include "dlgIRC.h"
#include "dlgMapper.h"
#include "dlgTriggerEditor.h"
#include "glwidget.h"
#include "mudlet.h"

#include "pre_guard.h"
#include <QDebug>
#include <QDesktopServices>
#include <QDir>
#include <QFileDialog>
#include <QRegExp>
#include <QSound>
#include <QSslConfiguration>
#include <QString>
#include <QStringBuilder>
#include "post_guard.h"

#include <assert.h>
#include <list>
#include <string>

// Provides the lua zip module for MacOs platform that does not have an easy way
// to provide it as a prebuilt library module (unlike Windows/Linux) - was
// called luazip.c and it is an amalgum of both such files that came from
// http://www.keplerproject.org/luazip {dead link} the Kelper Project has
// restuctured their site but the URL can be pulled from the Wayback machine:
// https://web.archive.org/web/20150129015700/http://www.keplerproject.org/luazip
#ifdef Q_OS_MAC
#include "luazip.h"
#endif

extern "C" {
int luaopen_yajl(lua_State*);
}

using namespace std;

TLuaInterpreter::TLuaInterpreter( Host * pH, int id )
: mpHost( pH )
, mHostID( id )
, purgeTimer(this)
{
    pGlobalLua = 0;

    connect(&purgeTimer, SIGNAL(timeout()), this, SLOT(slotPurge()));

    mpFileDownloader = new QNetworkAccessManager( this );
    connect(mpFileDownloader, SIGNAL(finished(QNetworkReply*)), this, SLOT(slot_replyFinished(QNetworkReply*)));

    initLuaGlobals();

    purgeTimer.start(2000);
}

TLuaInterpreter::~TLuaInterpreter()
{
    lua_close(pGlobalLua);
}

// Previous code didn't tell the Qt libraries when we had finished with a
// QNetworkReply so all the data downloaded would be held in memory until the
// profile was closed - importantly the documentation for the signal
// QNetworkReply::finished() which is connected to this SLOT stresses that
// delete() must NOT be called in this slot (it wasn't as it happens), but
// deleteLater() - which is now done to free the reasources when appropriate...
// - Slysven
// The code now raises additional sysDownloadError Events on failure to process
// the local file, the second argument is "failureToWriteLocalFile" and besides
// the file to be written being the third argument (as multiple downloads are
// supported) a fourth argument gives the local file problem, one of:
// * "unableToOpenLocalFileForWriting"
// * "unableToWriteLocalFile"
// or a QFile::errorString() for the issue at hand
// Upon success we now give an additional (third value) which gives the number
// of bytes written into the downloaded file.
void TLuaInterpreter::slot_replyFinished(QNetworkReply * reply )
{
    Host * pHost = mpHost;
    if (!pHost) {
        qWarning() << "TLuaInterpreter::slot_replyFinished(...) ERROR: NULL Host pointer!";
        return; // Uh, oh!
    }

    if (!downloadMap.contains(reply)) {
        reply->deleteLater();
        return;
    }

    QString localFileName = downloadMap.value(reply);
    TEvent event;
    if (reply->error() != QNetworkReply::NoError) {
        event.mArgumentList << QLatin1String("sysDownloadError");
        event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
        event.mArgumentList << reply->errorString();
        event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
        event.mArgumentList << localFileName;
        event.mArgumentTypeList << ARGUMENT_TYPE_STRING;

        reply->deleteLater();
        downloadMap.remove(reply);
        pHost->raiseEvent(event);
        return;
    } else { // reply IS ok...
        QFile localFile(localFileName);
        if (!localFile.open(QFile::WriteOnly)) {
            event.mArgumentList << QLatin1String("sysDownloadError");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << tr("failureToWriteLocalFile", "This string might not need to be translated!");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << localFileName;
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << tr("unableToOpenLocalFileForWriting", "This string might not need to be translated!");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;

            reply->deleteLater();
            downloadMap.remove(reply);
            pHost->raiseEvent(event);
            return;
        }

        qint64 bytesWritten = localFile.write( reply->readAll() );
        if (bytesWritten == -1) {
            event.mArgumentList << QLatin1String("sysDownloadError");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << tr("failureToWriteLocalFile", "This string might not need to be translated!");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << localFileName;
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << tr("unableToWriteLocalFile", "This string might not need to be translated!");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;

            reply->deleteLater();
            downloadMap.remove(reply);
            pHost->raiseEvent(event);
            return;
        }

        localFile.flush();

        if (localFile.error() == QFile::NoError) {
            event.mArgumentList << QLatin1String("sysDownloadDone");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << localFileName;
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << QString::number(bytesWritten);
            event.mArgumentTypeList << ARGUMENT_TYPE_NUMBER;
        } else {
            event.mArgumentList << QLatin1String("sysDownloadError");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << tr("failureToWriteLocalFile", "This string might not need to be translated!");
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << localFileName;
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
            event.mArgumentList << localFile.errorString();
            event.mArgumentTypeList << ARGUMENT_TYPE_STRING;
        }

        localFile.close();
        reply->deleteLater();
        downloadMap.remove(reply);
        pHost->raiseEvent(event);
    }
}

void TLuaInterpreter::slotDeleteSender() {
    objectsToDelete.append(sender());
}

void TLuaInterpreter::slotPurge() {
    while (!objectsToDelete.isEmpty()) {
        delete objectsToDelete.takeFirst();
    }
}


int TLuaInterpreter::Wait( lua_State *L )
{
    int n = lua_gettop( L );
    if(n!=1)
    {
        lua_pushstring( L, "Wait: wrong number of arguments" );
        lua_error( L );
        return 1;
    }

    int luaSleepMsec;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "Wait: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSleepMsec = lua_tointeger( L, 1 );
    }
    msleep( luaSleepMsec ); // FIXME thread::sleep()
    return 0;
}

QString TLuaInterpreter::dirToString( lua_State * L, int position )
{
    QString dir;
    int dirNum;
    if ( lua_isnumber( L, position ) )
    {
        dirNum = lua_tonumber( L, position );
        if ( dirNum <= 0 || dirNum >= 13 )
            return 0;
        if ( dirNum == 1 )
            return "north";
        if ( dirNum == 2 )
            return "northeast";
        if ( dirNum == 3 )
            return "northwest";
        if ( dirNum == 4 )
            return "east";
        if ( dirNum == 5 )
            return "west";
        if ( dirNum == 6 )
            return "south";
        if ( dirNum == 7 )
            return "southeast";
        if ( dirNum == 8 )
            return "southwest";
        if ( dirNum == 9 )
            return "up";
        if ( dirNum == 10 )
            return "down";
        if ( dirNum == 11 )
            return "in";
        if ( dirNum == 12 )
            return "out";
    }
    if ( lua_isstring( L, position ) )
    {
        dir = lua_tostring( L, position );
        return dir;
    }
    return 0;
}

int TLuaInterpreter::dirToNumber( lua_State * L, int position )
{
    QString dir;
    int dirNum;
    if ( lua_isstring( L, position ) )
    {
        dir = lua_tostring( L, position );
        dir = dir.toLower();
        if ( dir == "n" || dir == "north" )
            return 1;
        if ( dir == "ne" || dir == "northeast" )
            return 2;
        if ( dir == "nw" || dir == "northwest" )
            return 3;
        if ( dir == "e" || dir == "east" )
            return 4;
        if ( dir == "w" || dir == "west" )
            return 5;
        if ( dir == "s" || dir == "south" )
            return 6;
        if ( dir == "se" || dir == "southeast" )
            return 7;
        if ( dir == "sw" || dir == "southwest" )
            return 8;
        if ( dir == "u" || dir == "up" )
            return 9;
        if ( dir == "d" || dir == "down" )
            return 10;
        if ( dir == "in" )
            return 11;
        if ( dir == "out" )
            return 12;
    }
    if ( lua_isnumber( L, position ) )
    {
        dirNum = lua_tonumber( L, position );
        return ( dirNum >= 1 && dirNum <= 12 ? dirNum : 0);
    }
    return 0;
}

int TLuaInterpreter::denyCurrentSend( lua_State * L )
{
    Host& host = getHostFromLua(L);
    host.mAllowToSendCommand = false;
    return 0;
}

int TLuaInterpreter::raiseEvent( lua_State * L )
{
    Host& host = getHostFromLua(L);

    TEvent event;

    int n = lua_gettop( L );
    for( int i=1; i<=n; i++) {
        if( lua_isnumber( L, i ) ) {
            event.mArgumentList.append( QString::number( lua_tonumber( L, i ) ) );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_NUMBER );
        }
        else if( lua_isstring( L, i ) ) {
            event.mArgumentList.append( QString::fromUtf8( lua_tostring( L, i ) ) );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_STRING );
        }
        else if( lua_isboolean( L, i ) ) {
            event.mArgumentList.append( QString::number( lua_toboolean( L, i ) ) );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_BOOLEAN );
        }
        else if( lua_isnil( L, i ) ) {
            event.mArgumentList.append( QString() );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_NIL );
        }
        else {
            lua_pushfstring(L, "raiseEvent: bad argument #%d type (string, number, boolean, or nil\n"
                              "expected, got a %s!)", i, luaL_typename(L, i));
            lua_error( L );
            return 1;
        }
    }

    host.raiseEvent( event );

    return 0;
}

int TLuaInterpreter::getProfileName( lua_State * L )
{
    Host& host = getHostFromLua(L);
    lua_pushstring( L, host.getName().toUtf8().constData() );
    return 1;
}

// raiseGlobalEvent( "eventName", ...optional arguments... )
// sends an event to OTHER but not THIS profile {for internal events use
// raiseEvent(...) instead!}
// eventName is mandatory and should be a string though could be what further
// arguments can be, i.e. strings, numbers, booleans or nils.
int TLuaInterpreter::raiseGlobalEvent( lua_State * L )
{
    Host& host = getHostFromLua(L);

    int n = lua_gettop( L );
    if( ! n ) {
        lua_pushstring(L, "raiseGlobalEvent: missing argument #1 (eventName as, probably, a string expected!)");
        lua_error( L );
        return 1;
    }

    TEvent event;

    for( int i=1; i<=n; ++i ) {
        // The sending profile of the event does not receive the event if
        // sent via this command but if the same eventName is to be used for
        // an event within a profile and to other profiles it is safest to
        // insert a string like "local" or "self" or the profile name from
        // getProfileName() as an (last) additional argument after all the
        // other so the handler can tell it is handling a local event from
        // raiseEvent(...) and not one from another profile! - Slysven
        if( lua_isnumber( L, i ) ) {
            event.mArgumentList.append( QString::number( lua_tonumber( L, i ) ) );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_NUMBER );
        }
        else if( lua_isstring( L, i ) ) {
            event.mArgumentList.append( QString::fromUtf8( lua_tostring( L, i ) ) );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_STRING );
        }
        else if( lua_isboolean( L, i ) ) {
            event.mArgumentList.append( QString::number( lua_toboolean( L, i ) ) );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_BOOLEAN );
        }
        else if( lua_isnil( L, i ) ) {
            event.mArgumentList.append( QString() );
            event.mArgumentTypeList.append( ARGUMENT_TYPE_NIL );
        }
        else {
            lua_pushfstring(L, "raiseGlobalEvent: bad argument type #%d (boolean, number, string or nil\n"
                               "expected, got a %s!)",
                            i, luaL_typename(L, i));
            lua_error( L );
            return 1;
        }
    }

    event.mArgumentList.append( host.getName() );
    event.mArgumentTypeList.append( ARGUMENT_TYPE_STRING );

    mudlet::self()->getHostManager().postInterHostEvent(&host, event);

    return 0;
}

int TLuaInterpreter::resetProfile( lua_State * L )
{
    Host& host = getHostFromLua(L);
    host.mResetProfile = true;
    return 0;
}


// cursorPositionInLine = select( text ) if not found -1
// Was called select but that may clash with the Lua built-in command with the
// same name
// selectString( [windowName], text, number_of_match )
// Will now consider an EMPTY window name or the literal "main" as being the
// same as an omitted windowName - i.e. is the main console window.
int TLuaInterpreter::selectString( lua_State * L )
{
    Host& host = getHostFromLua(L);

    int s = 1;
    QString windowName; // only for 3 argument case, will be null if not assigned to which is different from being empty
    if( lua_gettop( L ) > 2 ) {
        if( ! lua_isstring( L, s ) ) {
            lua_pushfstring(L, R"(selectString: bad argument #%d type (window name as string, is optional {defaultsto "main" if omitted}, got %s!))",
                            s, luaL_typename(L, s));
            lua_error( L );
            return 1;
        }
        else {
            // We cannot yet properly handle non-ASCII windows names but we will eventually!
            windowName = QString::fromUtf8( lua_tostring( L, s ) );
            if (windowName == QLatin1String("main")) {
                // This matches the identifier for the main window - so make it
                // appear so by emptying it...
                windowName.clear();
            }
            s++;
        }
    }

    QString searchText;
    if( ! lua_isstring( L, s ) ) {
        lua_pushfstring(L, "selectString: bad argument #%d type (text to select as string expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else {
        searchText = QString::fromUtf8( lua_tostring( L, s ) );
        // CHECK: Do we need to qualify this for a non-blank string?
        s++;
    }

    qint64 numOfMatch = 0;
    if( ! lua_isnumber( L, s ) ) {
        lua_pushfstring(L, "selectString: bad argument #%d type (match count as number {1 for first} expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else {
        numOfMatch = lua_tointeger( L, s );
    }

    if( windowName.isEmpty() ) {
        lua_pushnumber( L, host.mpConsole->select( searchText, numOfMatch ) );
    }
    else {
        lua_pushnumber( L, mudlet::self()->selectString( &host, windowName, searchText, numOfMatch ) );
    }
    return 1;
}

int TLuaInterpreter::selectCurrentLine( lua_State * L )
{
    string luaSendText="";
    if( lua_gettop( L ) == 0 )
    {
        luaSendText = "main";
    }
    else
    {
        if( ! lua_isstring( L, 1 ) )
        {
            lua_pushstring( L, "selectCurrentLine: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            luaSendText = lua_tostring( L, 1 );
        }
    }
    Host& host = getHostFromLua(L);
    host.mpConsole->selectCurrentLine( luaSendText );
    return 0;
}

int TLuaInterpreter::isAnsiFgColor( lua_State * L )
{
    int ansiFg;

    std::string console = "main";

    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "isAnsiFgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        ansiFg = lua_tointeger( L, 1 );
    }

    std::list<int> result;
    Host& host = getHostFromLua(L);
    result = host.mpConsole->getFgColor( console );
    auto it=result.begin();
    if( result.size() < 3 ) return 0;
    if( ansiFg < 0 ) return 0;
    if( ansiFg > 16 ) return 0;


    QColor c;
    switch( ansiFg )
    {
        case 0: c = host.mFgColor;  break;
        case 1: c = host.mLightBlack; break;
        case 2: c = host.mBlack; break;
        case 3: c = host.mLightRed; break;
        case 4: c = host.mRed; break;
        case 5: c = host.mLightGreen; break;
        case 6: c = host.mGreen; break;
        case 7: c = host.mLightYellow; break;
        case 8: c = host.mYellow; break;
        case 9: c = host.mLightBlue; break;
        case 10: c = host.mBlue; break;
        case 11: c = host.mLightMagenta; break;
        case 12: c = host.mMagenta; break;
        case 13: c = host.mLightCyan; break;
        case 14: c = host.mCyan; break;
        case 15: c = host.mLightWhite; break;
        case 16: c = host.mWhite; break;
    }

    int val = *it;
    if( val == c.red() )
    {
        it++;
        val = *it;
        if( val == c.green() )
        {
            it++;
            val = *it;
            if( val == c.blue() )
            {
                lua_pushboolean( L, 1 );
                return 1;
            }
        }
    }

    lua_pushboolean( L, 0 );
    return 1;
}

int TLuaInterpreter::isAnsiBgColor( lua_State * L )
{
    int ansiFg;

    std::string console = "main";

    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "isAnsiBgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        ansiFg = lua_tointeger( L, 1 );
    }

    std::list<int> result;
    Host& host = getHostFromLua(L);
    result = host.mpConsole->getBgColor( console );
    auto it=result.begin();
    if( result.size() < 3 ) return 0;
    if( ansiFg < 0 ) return 0;
    if( ansiFg > 16 ) return 0;


    QColor c;
    switch( ansiFg )
    {
        case 0: c = host.mBgColor;  break;
        case 1: c = host.mLightBlack; break;
        case 2: c = host.mBlack; break;
        case 3: c = host.mLightRed; break;
        case 4: c = host.mRed; break;
        case 5: c = host.mLightGreen; break;
        case 6: c = host.mGreen; break;
        case 7: c = host.mLightYellow; break;
        case 8: c = host.mYellow; break;
        case 9: c = host.mLightBlue; break;
        case 10: c = host.mBlue; break;
        case 11: c = host.mLightMagenta; break;
        case 12: c = host.mMagenta; break;
        case 13: c = host.mLightCyan; break;
        case 14: c = host.mCyan; break;
        case 15: c = host.mLightWhite; break;
        case 16: c = host.mWhite; break;
    }

    int val = *it;
    if( val == c.red() )
    {
        it++;
        val = *it;
        if( val == c.green() )
        {
            it++;
            val = *it;
            if( val == c.blue() )
            {
                lua_pushboolean( L, 1 );
                return 1;
            }
        }
    }

    lua_pushboolean( L, 0 );
    return 1;
}

int TLuaInterpreter::getFgColor( lua_State * L )
{
    string luaSendText="";
    if( lua_gettop( L ) == 0 )
    {
        luaSendText = "main";
    }
    else
    {
        if( ! lua_isstring( L, 1 ) )
        {
            lua_pushstring( L, "getFgColor: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            luaSendText = lua_tostring( L, 1 );
        }
    }
    QString _name(luaSendText.c_str());
    std::list<int> result;
    Host& host = getHostFromLua(L);
    result = host.mpConsole->getFgColor( luaSendText );
    for(int pos : result)
    {
        lua_pushnumber( L, pos );
    }
    return result.size();
}

int TLuaInterpreter::getBgColor( lua_State * L )
{
    string luaSendText="";
    if( lua_gettop( L ) == 0 )
    {
        luaSendText = "main";
    }
    else
    {
        if( ! lua_isstring( L, 1 ) )
        {
            lua_pushstring( L, "getBgColor: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            luaSendText = lua_tostring( L, 1 );
        }
    }

    std::list<int> result;
    Host& host = getHostFromLua(L);
    result = host.mpConsole->getBgColor( luaSendText );
    for(int pos : result)
    {
        lua_pushnumber( L, pos );
    }
    return result.size();
}

int TLuaInterpreter::wrapLine( lua_State * L )
{
    int s = 1;
    int n = lua_gettop( L );
    string a1 = "main";
    if( n > 1 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "wrapLine: wrong argument type" );
          lua_error( L );
          return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }

    int luaNumOfMatch;
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "wrapLine: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaNumOfMatch = lua_tointeger( L, s );
    }

    Host& host = getHostFromLua(L);
    host.mpConsole->luaWrapLine( a1, luaNumOfMatch );
    return 0;
}



int TLuaInterpreter::spawn( lua_State * L )
{
    Host& host = getHostFromLua(L);
    return TForkedProcess::startProcess(host.getLuaInterpreter(), L);
}



// cursorPositionInLine = selectCaptureGroup( groupNumber ) if not found -1
int TLuaInterpreter::selectCaptureGroup( lua_State * L )
{
    int luaNumOfMatch;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "selectCaptureGroup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaNumOfMatch = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    if( luaNumOfMatch < 1 )
    {
        lua_pushnumber( L, -1 );
        return 1;
    }
    luaNumOfMatch--; //we want capture groups to start with 1 instead of 0
    if( luaNumOfMatch < static_cast<int>(host.getLuaInterpreter()->mCaptureGroupList.size()) )
    {
        TLuaInterpreter * pL = host.getLuaInterpreter();
        auto iti = pL->mCaptureGroupPosList.begin();
        auto its = pL->mCaptureGroupList.begin();

        for( int i=0; iti!=pL->mCaptureGroupPosList.end(); ++iti,++i )
        {
            if( i >= luaNumOfMatch ) break;
        }
        for( int i=0; its!=pL->mCaptureGroupList.end(); ++its,++i)
        {
            if( i >= luaNumOfMatch ) break;
        }

        int begin = *iti;
        std::string & s = *its;
        int length = s.size();
        if( mudlet::debugMode ) {TDebug(QColor(Qt::white),QColor(Qt::red))<<"selectCaptureGroup("<<begin<<", "<<length<<")\n">>0;}
        int pos = host.mpConsole->selectSection( begin, length );
        lua_pushnumber( L, pos );
    }
    else
    {
        lua_pushnumber( L, -1 );
    }
    return 1;
}

// luaTable result[line_number, content] = getLines( from_cursorPos, to_cursorPos )
int TLuaInterpreter::getLines( lua_State * L )
{
    int luaFrom;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getLines: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, 1 );
    }

    int luaTo;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "getLines: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTo=lua_tointeger( L, 2 );
    }
    Host& host = getHostFromLua(L);
    QStringList strList = host.mpConsole->getLines( luaFrom, luaTo );

    lua_newtable(L);
    for( int i=0; i<strList.size(); i++ )
    {
        lua_pushnumber( L, i+1 );
        lua_pushstring( L, strList[i].toLatin1().data() );
        lua_settable(L, -3);
    }
    return 1;
}

int TLuaInterpreter::loadRawFile( lua_State * L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "loadRawFile: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }

    Host& host = getHostFromLua(L);
    host.mpConsole->loadRawFile( luaSendText );
    return 0;
}

int TLuaInterpreter::getCurrentLine( lua_State * L )
{
    string luaSendText="";
    if( lua_gettop( L ) == 0 )
    {
        luaSendText = "main";
    }
    else
    {
        if( ! lua_isstring( L, 1 ) )
        {
            lua_pushstring( L, "getCurrentLine: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            luaSendText = lua_tostring( L, 1 );
        }
    }

    Host& host = getHostFromLua(L);
    QString line = host.mpConsole->getCurrentLine( luaSendText );
    lua_pushstring( L, line.toLatin1().data() );
    return 1;
}

int TLuaInterpreter::setMiniConsoleFontSize( lua_State * L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "setMiniConsoleFontSize: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    int luaNumOfMatch;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setMiniConsoleFontSize: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaNumOfMatch = lua_tointeger( L, 2 );
    }
    Host& host = getHostFromLua(L);
    host.mpConsole->setMiniConsoleFontSize( luaSendText, luaNumOfMatch );
    return 0;
}

// returns current y position of the user cursor
int TLuaInterpreter::getLineNumber( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( lua_isstring( L, 1 ) )
    {
        string window = lua_tostring( L, 1 );
        QString _window = window.c_str();
        lua_pushnumber( L, mudlet::self()->getLineNumber(&host, _window ) );
        return 1;
    }
    else
    {
        lua_pushnumber( L, host.mpConsole->getLineNumber() );
        return 1;
    }
    return 0;
}

int TLuaInterpreter::updateMap(lua_State * L){
    Host& host = getHostFromLua(L);
    if( host.mpMap)
    {
        if (host.mpMap->mpM)
            host.mpMap->mpM->update();
        if (host.mpMap->mpMapper){
            if (host.mpMap->mpMapper->mp2dMap){
                host.mpMap->mpMapper->mp2dMap->mNewMoveAction=true;
                host.mpMap->mpMapper->mp2dMap->update();
            }
        }
    }
    return 0;
}

int TLuaInterpreter::addMapMenu(lua_State * L){
//    first arg = unique name, second arg= parent name, third arg = display name (=unique name if not provided)
    QString uniqueName;
    QStringList menuList;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "addMapMenu: wrong first argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        uniqueName = lua_tostring( L, 1 );
    }
    if( ! lua_isstring( L, 2 ) )
    {
        menuList << "";
    }
    else
    {
        menuList << lua_tostring( L, 2 );
    }
    if( ! lua_isstring( L, 3 ) )
    {
        menuList << uniqueName;
    }
    else
    {
        menuList << lua_tostring( L, 3 );
    }
    Host& host = getHostFromLua(L);
    if( host.mpMap)
    {
        if (host.mpMap->mpMapper){
            if (host.mpMap->mpMapper->mp2dMap){
                host.mpMap->mpMapper->mp2dMap->mUserMenus.insert(uniqueName,menuList);
            }
        }
    }
    return 0;
}

int TLuaInterpreter::removeMapMenu(lua_State * L){
    QString uniqueName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "removeMapMenu: wrong first argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        uniqueName = lua_tostring( L, 1 );
    }
    if (uniqueName == "")
        return 0;
    Host& host = getHostFromLua(L);
    if( host.mpMap)
    {
        if (host.mpMap->mpMapper){
            if (host.mpMap->mpMapper->mp2dMap){
                host.mpMap->mpMapper->mp2dMap->mUserMenus.remove(uniqueName);
                //remove all entries with this as parent
                QStringList removeList;
                removeList.append(uniqueName);
                bool newElement = true;
                while (newElement){
                    newElement = false;
                    QMapIterator<QString, QStringList> it(host.mpMap->mpMapper->mp2dMap->mUserMenus);
                    while (it.hasNext()){
                        it.next();
                        QStringList menuInfo = it.value();
                        QString parent = menuInfo[0];
                        if (removeList.contains(parent)){
                            host.mpMap->mpMapper->mp2dMap->mUserMenus.remove(it.key());
                            if (it.key() != "" && !removeList.contains(it.key())){
                                host.mpMap->mpMapper->mp2dMap->mUserMenus.remove(it.key());
                                removeList.append(it.key());
                                newElement = true;
                            }
                        }
                    }
                }
                qDebug()<<removeList;
                QMapIterator<QString, QStringList> it2(host.mpMap->mpMapper->mp2dMap->mUserActions);
                while (it2.hasNext()){
                    it2.next();
                    QString actParent = it2.value()[1];
                    if (removeList.contains(actParent)){
                        host.mpMap->mpMapper->mp2dMap->mUserActions.remove(it2.key());
                    }
                }
            }
        }
    }
    return 0;
}

int TLuaInterpreter::getMapMenus(lua_State * L){
    Host& host = getHostFromLua(L);
    if( host.mpMap)
    {
        if (host.mpMap->mpMapper){
            if (host.mpMap->mpMapper->mp2dMap){
                lua_newtable(L);
                QMapIterator<QString, QStringList> it (host.mpMap->mpMapper->mp2dMap->mUserMenus);
                while (it.hasNext()){
                    it.next();
                    QString parent, display;
                    QStringList menuInfo = it.value();
                    parent = menuInfo[0];
                    display = menuInfo[1];
                    lua_pushstring( L, it.key().toLatin1().data() );
                    lua_pushstring( L, parent.toLatin1().data() );
                    lua_pushstring( L, display.toLatin1().data() );
                    lua_settable(L, -3);
                }
            }
            return 1;
        }
    }
    return 0;
}


int TLuaInterpreter::addMapEvent(lua_State * L){
    QString uniqueName, eventName, parent, displayName;
    QStringList actionInfo;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "addMapEvent: wrong first argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        uniqueName = lua_tostring( L, 1 );
    }
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "addMapEvent: wrong second argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        actionInfo << lua_tostring( L, 2 );
    }
    if( ! lua_isstring( L, 3 ) )
    {
        actionInfo << "";
    }
    else
    {
        actionInfo << lua_tostring( L, 3 );
    }
    if( ! lua_isstring( L, 4 ) )
    {
        actionInfo << uniqueName;
    }
    else
    {
        actionInfo << lua_tostring( L, 4 );
    }
    //variable number of arguments
    for (int i=5;i<=lua_gettop(L);i++)
        actionInfo << lua_tostring(L,i);
    qDebug()<<actionInfo;
    Host& host = getHostFromLua(L);
    if( host.mpMap)
    {
        if (host.mpMap->mpMapper){
            if (host.mpMap->mpMapper->mp2dMap){
                host.mpMap->mpMapper->mp2dMap->mUserActions.insert(uniqueName, actionInfo);
            }
        }
    }
    return 0;
}

int TLuaInterpreter::removeMapEvent(lua_State * L){
    QString displayName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "removeMapEvent: wrong first argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        displayName = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    if( host.mpMap)
    {
        if (host.mpMap->mpMapper){
            if (host.mpMap->mpMapper->mp2dMap){
                host.mpMap->mpMapper->mp2dMap->mUserActions.remove(displayName);
            }
        }
    }
    return 0;
}

int TLuaInterpreter::getMapEvents(lua_State * L){
    Host& host = getHostFromLua(L);
    if( host.mpMap)
    {
        if (host.mpMap->mpMapper){
            if (host.mpMap->mpMapper->mp2dMap){
                lua_newtable(L);
                QMapIterator<QString, QStringList> it(host.mpMap->mpMapper->mp2dMap->mUserActions);
                while (it.hasNext()){
                    it.next();
                    lua_newtable(L);
                    QStringList eventInfo = it.value();
                    lua_pushstring( L, eventInfo[0].toLatin1().data() );
                    lua_pushstring( L, eventInfo[1].toLatin1().data() );
                    lua_pushstring( L, eventInfo[2].toLatin1().data() );
                    lua_settable(L, -3);
                    lua_pushstring(L, it.key().toLatin1().data());
                    lua_insert(L,-2);
                    lua_settable(L, -3);
                }
            }
            return 1;
        }
    }
    return 0;
}

int TLuaInterpreter::centerview(lua_State* L)
{
    Host& host = getHostFromLua(L);

    if (!host.mpMap || !host.mpMap->mpRoomDB || !host.mpMap->mpMapper) {
        lua_pushnil(L);
        lua_pushstring(L, "centerview: you haven't opened a map yet");
        return 2;
    }

    int roomId;
    if (!lua_isnumber(L, 1)) {
        lua_pushfstring(L, "centerview: bad argument #1 type (room id as number expected, got %s!)", luaL_typename(L, 1));
        lua_error(L);
        return 1;
    } else {
        roomId = lua_tointeger(L, 1);
    }

    TRoom* pR = host.mpMap->mpRoomDB->getRoom(roomId);
    if (pR) {
        host.mpMap->mRoomIdHash[host.getName()] = roomId;
        host.mpMap->mNewMove = true;
        if (host.mpMap->mpM) {
            host.mpMap->mpM->update();
        }

        if (host.mpMap->mpMapper->mp2dMap) {
            host.mpMap->mpMapper->mp2dMap->isCenterViewCall = true;
            host.mpMap->mpMapper->mp2dMap->update();
            host.mpMap->mpMapper->mp2dMap->isCenterViewCall = false;
            host.mpMap->mpMapper->resetAreaComboBoxToPlayerRoomArea();
        }
        lua_pushboolean(L, true);
        return 1;
    } else {
        lua_pushnil(L);
        lua_pushfstring(L, "centerview: bad argument #1 value (%d is not a valid room id).", roomId);
        return 2;
    }
}

int TLuaInterpreter::copy( lua_State * L )
{
    string luaWindowName="";
    if( lua_isstring( L, 1 ) )
    {
        luaWindowName = lua_tostring( L, 1 );
    }
    else
        luaWindowName = "main";

    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    if( luaWindowName == "main" )
        host.mpConsole->copy();
    else
       mudlet::self()->copy(&host, windowName );
    return 0;
}
int TLuaInterpreter::cut( lua_State * L )
{
    Host& host = getHostFromLua(L);
    host.mpConsole->cut();
    return 0;
}
int TLuaInterpreter::paste( lua_State * L )
{
    string luaWindowName="";
    if( lua_isstring( L, 1 ) )
    {
        luaWindowName = lua_tostring( L, 1 );
    }
    else
        luaWindowName = "main";

    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    if( luaWindowName == "main" )
        host.mpConsole->paste();
    else
       mudlet::self()->pasteWindow(&host, windowName );
    return 0;
}


int TLuaInterpreter::feedTriggers( lua_State * L )
{
    Host& host = getHostFromLua(L);

    std::string text;
    if (!lua_isstring(L, 1)) {
        lua_pushfstring(L, "feedTriggers: bad argument #1 type (imitation MUD server text as string\n"
                           "expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    } else {
        text = lua_tostring( L, 1 );
    }

    host.mpConsole->printOnDisplay(text);
    return 0;
}


int TLuaInterpreter::isPrompt( lua_State *L )
{
    Host& host = getHostFromLua(L);
    int userCursorY = host.mpConsole->getLineNumber();
    if( userCursorY < host.mpConsole->buffer.promptBuffer.size() && userCursorY >= 0 )
    {
        lua_pushboolean( L, host.mpConsole->buffer.promptBuffer.at( userCursorY ) );
        return 1;
    }
    else
    {
        if( host.mpConsole->mTriggerEngineMode && host.mpConsole->mIsPromptLine )
            lua_pushboolean( L, true );
        else
            lua_pushboolean( L, false );
        return 1;
    }
}

int TLuaInterpreter::setWindowWrap( lua_State * L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "setWindowWrap: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    int luaFrom;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setWindowWrap: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, 2 );
    }

    Host& host = getHostFromLua(L);
    QString name = luaSendText.c_str();
    if( name == "main" )
        host.mpConsole->setWrapAt( luaFrom );
    else
        mudlet::self()->setWindowWrap(&host, name, luaFrom );
    return 0;
}

int TLuaInterpreter::setWindowWrapIndent( lua_State * L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "setWindowWrapIndent: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    int luaFrom;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setWindowWrapIndent: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, 2 );
    }

    Host& host = getHostFromLua(L);
    QString name = luaSendText.c_str();
    mudlet::self()->setWindowWrapIndent(&host, name, luaFrom );
    return 0;
}

int TLuaInterpreter::getLineCount( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( lua_isstring( L, 1 ) )
    {
        string window = lua_tostring( L, 1 );
        QString _window = window.c_str();
        lua_pushnumber( L, mudlet::self()->getLastLineNumber(&host, _window ) + 1 );
        return 1;
    }
    else
    {
        int lineNumber = host.mpConsole->getLineCount();
        lua_pushnumber( L, lineNumber );
        return 1;
    }
    return 0;
}

int TLuaInterpreter::getColumnNumber( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( lua_isstring( L, 1 ) )
    {
        string window = lua_tostring( L, 1 );
        QString _window = window.c_str();
        lua_pushnumber( L, mudlet::self()->getColumnNumber( &host, _window ) );
        return 1;
    }
    else
    {
        lua_pushnumber( L, host.mpConsole->getColumnNumber() );
        return 1;
    }
    return 0;

}

int TLuaInterpreter::getStopWatchTime( lua_State * L )
{
    int watchID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getStopWatchTime: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        watchID = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    double time = host.getStopWatchTime( watchID );
    lua_pushnumber( L, time );
    return 1;
}

int TLuaInterpreter::createStopWatch( lua_State * L )
{
    Host& host = getHostFromLua(L);
    double watchID = host.createStopWatch();
    lua_pushnumber( L, watchID );
    return 1;
}

int TLuaInterpreter::stopStopWatch( lua_State * L )
{
    int watchID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "stopStopWatch: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        watchID = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    double time = host.stopStopWatch( watchID );
    lua_pushnumber( L, time );
    return 1;
}

int TLuaInterpreter::startStopWatch( lua_State * L )
{
    int watchID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "startStopWatch: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        watchID = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    bool b = host.startStopWatch( watchID );
    lua_pushboolean( L, b );
    return 1;
}

int TLuaInterpreter::resetStopWatch( lua_State * L )
{
    int watchID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "resetStopWatch: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        watchID = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    bool b = host.resetStopWatch( watchID );
    lua_pushboolean( L, b );
    return 1;
}

// cusorPositionInLine = selectSection( from_cursorPos, to_cursorPos ) -1 on not found
int TLuaInterpreter::selectSection( lua_State * L )
{
    int s = 1;
    int n = lua_gettop( L );
    string a1;
    if( n > 2 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "selectSection: wrong argument type" );
          lua_error( L );
          return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    int luaFrom;
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "selectSection: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, s );
        s++;
    }

    int luaTo;
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "selectSection: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTo=lua_tointeger( L, s );
    }

    Host& host = getHostFromLua(L);

    bool ret;
    if( n > 2 )
    {
        QString _name = a1.c_str();
        ret = mudlet::self()->selectSection( &host, _name, luaFrom, luaTo );
    }
    else
    {
        ret = host.mpConsole->selectSection( luaFrom, luaTo );
    }
    lua_pushboolean( L, ret );
    return 1;
}


int TLuaInterpreter::moveCursor( lua_State * L )
{
    int s = 1;
    int n = lua_gettop( L );
    string a1;
    if( n > 2 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "moveCursor: wrong argument type" );
          lua_error( L );
          return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    int luaFrom;
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "moveCursor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, s );
        s++;
    }

    int luaTo;
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "moveCursor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTo=lua_tointeger( L, s );
    }

    Host& host = getHostFromLua(L);

    if( a1 == "main" || n < 3 )
        lua_pushboolean( L, host.mpConsole->moveCursor( luaFrom, luaTo ) );
    else
    {
        QString windowName = a1.c_str();
        lua_pushboolean( L, mudlet::self()->moveCursor( &host, windowName, luaFrom, luaTo ) );
    }
    return 1;
}

int TLuaInterpreter::setConsoleBufferSize( lua_State * L )
{
    int s = 1;
    int n = lua_gettop( L );
    string a1;
    if( n > 2 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "setConsoleBufferSize: wrong argument type" );
          lua_error( L );
          return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    int luaFrom;
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setConsoleBufferSize: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, s );
        s++;
    }

    int luaTo;
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setConsoleBufferSize: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTo=lua_tointeger( L, s );
    }

    Host& host = getHostFromLua(L);

    if( a1 == "main" || n < 3 )
    {
        host.mpConsole->buffer.setBufferSize( luaFrom, luaTo );
    }
    else
    {
        QString windowName = a1.c_str();
        mudlet::self()->setConsoleBufferSize( &host, windowName, luaFrom, luaTo );
    }
    return 0;
}

// replace( sessionID, replace_with )
int TLuaInterpreter::replace( lua_State * L )
{
    string a1 = "";
    string a2 = "";
    int n = lua_gettop( L );
    int s = 1;
    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "replace: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        a1 = lua_tostring( L, s );
        s++;
    }

    QString _name( a1.c_str() );
    string luaSendText="";
    if( n > 1 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "replace: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a2 = lua_tostring( L, s );
        }
    }

    Host& host = getHostFromLua(L);
    if( n == 1 )
        host.mpConsole->replace( QString(a1.c_str()) );
    else
        mudlet::self()->replace( &host, _name, QString(a2.c_str()) );
    return 0;
}

int TLuaInterpreter::deleteLine( lua_State * L )
{
    string name="";
    if( lua_gettop( L ) == 1 )
    {
        if( ! lua_isstring( L, 1 ) )
        {
            lua_pushstring( L, "deleteLine: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            name = lua_tostring( L, 1 );
        }
    }

    QString _name( name.c_str() );
    Host& host = getHostFromLua(L);

    if( name == "" )
        host.mpConsole->skipLine();
    else
        mudlet::self()->deleteLine( &host, _name );
    return 0;
}

int TLuaInterpreter::saveMap( lua_State * L )
{
    string location="";
    if( lua_gettop( L ) == 1 )
    {
        if( ! lua_isstring( L, 1 ) )
        {
            lua_pushstring( L, "saveMap: where do you want to save to?" );
            lua_error( L );
            return 1;
        }
        else
        {
            location = lua_tostring( L, 1 );
        }
    }

    QString _location( location.c_str() );
    Host& host = getHostFromLua(L);

    bool error = host.mpConsole->saveMap(_location);
    lua_pushboolean( L, error );
    return 1;
}

int TLuaInterpreter::setExitStub( lua_State * L  ){
    //args:room id, direction (as given by the #define direction table), status
    int roomId, dirType;
    bool status;
    if (!lua_isnumber(L,1))
    {
        lua_pushstring( L, "setExitStub: Need a room number as first argument" );
        lua_error( L );
        return 1;
    }
    else
    {
        roomId = lua_tonumber(L,1);
    }
    dirType = dirToNumber( L, 2 );
    if ( ! dirType )
    {
        lua_pushstring( L, "setExitStub: Need a dir number as 2nd argument" );
        lua_error( L );
        return 1;
    }
    if (!lua_isboolean(L,3))
    {
        lua_pushstring( L, "setExitStub: Need a true/false for third argument" );
        lua_error( L );
        return 1;
    }
    else
    {
        status = lua_toboolean(L,3);
    }

    Host& host = getHostFromLua(L);
    if( !host.mpMap ) return 0;
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( !pR )
    {
        lua_pushstring( L, "setExitStub: RoomId doesn't exist" );
        lua_error( L );
        return 1;
    }
    if(dirType>12 || dirType < 1)
    {
        lua_pushstring( L, "setExitStub: dirType must be between 1 and 12" );
        lua_error( L );
        return 1;
    }
    pR->setExitStub(dirType, status);
    return 0;
}

int TLuaInterpreter::connectExitStub( lua_State * L  ){
    //takes exit stubs from the selected room, finds the room in that direction and if
    //that room has a stub, a two way exit is formed
    //args:room id, direction
    //OR if 3 arguments, takes first argument as from room, 2nd at to room, 3rd as direction
    //from start room to end room
    int roomId;
    int toRoom;
    int dirType;
    int roomsGiven = 0;
    if ( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "connectExitStub: Need a room number as first argument" );
        lua_error( L );
        return 1;
    }
    else
        roomId = lua_tonumber( L, 1);
    dirType = dirToNumber( L, 2 );
    if ( ! dirType )
    {
        lua_pushstring( L, "connectExitStub: Need a direction number (or room id) as 2nd argument" );
        lua_error( L );
        return 1;
    }
    if ( ! lua_isnumber( L, 3 ) && ! lua_isstring( L, 3) )
    {
        roomsGiven = 0;
    }
    else
    {
        roomsGiven = 1;
        toRoom = lua_tonumber(L,2);
        dirType = dirToNumber( L, 3 );
        if( ! dirType )
        {
            lua_pushstring( L, "connectExitStub: Invalid direction entered.");
            lua_error( L );
            return 1;
        }
    }
    Host& host = getHostFromLua(L);
    if( !host.mpMap ) return 0;
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR )
    {
        lua_pushstring( L, "connectExitStub: RoomId doesn't exist" );
        lua_error( L );
        return 1;
    }
    if( ! pR->exitStubs.contains( dirType ) )
    {
        lua_pushstring( L, "connectExitStubs: ExitStub doesn't exist" );
        lua_error( L );
        return 1;
    }
    if ( roomsGiven )
    {
        TRoom * pR_to = host.mpMap->mpRoomDB->getRoom( toRoom );
        if ( ! pR_to )
        {
            lua_pushstring( L, "connectExitStubs: toRoom doesn't exist" );
            lua_error( L );
            return 1;
        }
        Host& host = getHostFromLua(L);
        lua_pushboolean(L, host.mpMap->setExit( roomId, toRoom, dirType ) );
    }
    else
    {
        if ( ! pR->exitStubs.contains( dirType ) )
        {
            lua_pushstring( L, "connectExitStubs: ExitStub doesn't exist" );
            lua_error( L );
            return 1;
        }
        host.mpMap->connectExitStub( roomId, dirType );
// Nothing has yet been put onto stack for a LUA return value in this case,
// and it should always be possible to add a stub exit, so provide a true value :
        lua_pushboolean(L, true );
    }
    host.mpMap->mMapGraphNeedsUpdate = true;
    return 1;
}

// args:room id
// Previously would throw a lua error on non-existent room - now returns nil
// plus error message (as does other run-time errors) - previously would return
// just a nil on NO exit stubs but now returns a notification error message as
// well, to aide disabiguation of the nil value.
int TLuaInterpreter::getExitStubs( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getExitStubs: no map present or loaded!");
        return 2;
    }

    int roomId;
    if( !lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getExitStubs: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tonumber(L,1);
    }

    // Previously threw a Lua error on non-existent room!
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getExitStubs: bad argument #1 value (number %d is not a valid room id).",
                        roomId);
        return 2;
    }
    else {
        QList<int> stubs = pR->exitStubs;
        if( stubs.size() ) {
            lua_newtable( L );
            for(int i = 0, total = stubs.size(); i < total; ++i ) {
                lua_pushnumber( L, i );
                lua_pushnumber( L, stubs.at(i) );
                lua_settable( L, -3 );
            }
            return 1;
        }
        else {
            lua_pushnil( L );
            lua_pushfstring(L, "getExitStubs: no stubs in this room with id %d.",
                           roomId);
            return 2;
        }
    }
}

int TLuaInterpreter::getExitStubs1( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getExitStubs1: no map present or loaded!");
        return 2;
    }

    int roomId;
    if( !lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getExitStubs1: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tonumber(L,1);
    }

    // Previously threw a Lua error on non-existent room!
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getExitStubs1: bad argument #1 value (number %d is not a valid room id).",
                        roomId);
        return 2;
    }
    else {
        QList<int> stubs = pR->exitStubs;
        if( stubs.size() ) {
            lua_newtable( L );
            for(int i = 0, total = stubs.size(); i < total; ++i ) {
                lua_pushnumber( L, i+1 );
                lua_pushnumber( L, stubs.at(i) );
                lua_settable( L, -3 );
            }
            return 1;
        }
        else {
            lua_pushnil( L );
            lua_pushfstring(L, "getExitStubs1: no stubs in this room with id %d.",
                            roomId);
            return 2;
        }
    }
}

int TLuaInterpreter::getModulePath( lua_State *L )
{
    QString moduleName;
    if (!lua_isstring(L,1)){
        lua_pushstring(L, "getModulePath: Module be be a string");
        lua_error(L);
        return 1;
    }
    else
        moduleName = lua_tostring( L, 1 );
    Host& host = getHostFromLua(L);
    QMap<QString, QStringList> modules = host.mInstalledModules;
    if (modules.contains(moduleName)){
        QString modPath = modules[moduleName][0];
        lua_pushstring( L, modPath.toLatin1().data() );
        return 1;
    }
    return 0;
}

int TLuaInterpreter::getModulePriority( lua_State * L  )
{
    QString moduleName;
    if (!lua_isstring(L,1)){
        lua_pushstring(L, "getModulePriority: Module be be a string");
        lua_error(L);
        return 1;
    }
    else
        moduleName = lua_tostring(L,1);
    Host& host = getHostFromLua(L);
    if (host.mModulePriorities.contains(moduleName)){
        int priority = host.mModulePriorities[moduleName];
        lua_pushnumber( L, priority );
        return 1;
    }
    else{
        lua_pushstring(L, "getModulePriority: Module doesn't exist");
        lua_error(L);
        return 1;
    }
    return 0;
}

int TLuaInterpreter::setModulePriority( lua_State * L  ){
    QString moduleName;
    int modulePriority;
    if (!lua_isstring(L,1)){
        lua_pushstring(L, "setModulePriority: Module be be a string");
        lua_error(L);
        return 1;
    }
    else
        moduleName = lua_tostring(L,1);
    if (!lua_isnumber(L,2)){
        lua_pushstring(L, "setModulePriority: Module priority must be an integer");
        lua_error(L);
        return 1;
    }
    else
        modulePriority = lua_tonumber(L,2);
    Host& host = getHostFromLua(L);
    if (host.mModulePriorities.contains(moduleName))
        host.mModulePriorities[moduleName] = modulePriority;
    else{
        lua_pushstring(L, "setModulePriority: Module doesn't exist");
        lua_error(L);
        return 1;
    }
    return 0;
}

// Now identifies and handles XML map files...
int TLuaInterpreter::loadMap( lua_State * L )
{
    Host& host = getHostFromLua(L);

    QString location;
    if( lua_gettop( L ) ) {
        if( ! lua_isstring( L, 1 ) ) {
            lua_pushfstring(L, "loadMap: bad argument #1 type (Map pathFile as string is optional {loads last\n"
                               "stored map if omitted}, got %s!)",
                            luaL_typename(L, 1));
            lua_error( L );
            return 1;
        }
        else {
            location = QString::fromUtf8( lua_tostring( L, 1 ) );
        }
    }

    bool isOk = false;
    if( ! location.isEmpty() && location.endsWith( QStringLiteral( ".xml" ), Qt::CaseInsensitive ) ) {
        QString errMsg;
        isOk = host.mpConsole->importMap( location, & errMsg );
        if( ! isOk ) {
            // A false was returned which indicates an error, convert it to a nil
            lua_pushnil( L );
            // And add the expected error message, is to be structured in a
            // compatible manner
            if( ! errMsg.isEmpty() ) {
                lua_pushstring( L, errMsg.toUtf8().constData() );
                return 2;
            }
            else {
                return 1;
            }
        }
    }
    else {
        isOk = host.mpConsole->loadMap( location );
    }
    lua_pushboolean( L, isOk );
    return 1;
}

// enableTimer( sess, timer_name )
int TLuaInterpreter::enableTimer( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "enableTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    bool error = host.getTimerUnit()->enableTimer( text );
    lua_pushboolean( L, error );
    return 1;
}

// disableTimer( session, timer_name )
int TLuaInterpreter::disableTimer( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "disableTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    bool error = host.getTimerUnit()->disableTimer( text );
    lua_pushboolean( L, error );
    return 1;
}

int TLuaInterpreter::enableKey( lua_State *L )
{
    QString keyName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushfstring(L, "enableKey: bad argument #1 type (key name as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    }
    else
    {
        keyName = QString::fromUtf8(lua_tostring(L, 1));
    }
    Host& host = getHostFromLua(L);
    bool error = host.getKeyUnit()->enableKey(keyName);
    lua_pushboolean( L, error );
    return 1;
}

// disableTimer( session, timer_name )
int TLuaInterpreter::disableKey( lua_State *L )
{
    QString keyName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushfstring(L, "disableKey: bad argument #1 type (key name as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    }
    else
    {
        keyName = QString::fromUtf8(lua_tostring(L, 1));
    }
    Host& host = getHostFromLua(L);
    bool error = host.getKeyUnit()->disableKey(keyName);
    lua_pushboolean( L, error );
    return 1;
}

int TLuaInterpreter::killKey( lua_State *L )
{
    QString keyName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushfstring(L, "killKey: bad argument #1 type (key name as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    }
    else
    {
        keyName = QString::fromUtf8(lua_tostring(L, 1));
    }
    Host& host = getHostFromLua(L);
    bool error = host.getKeyUnit()->killKey(keyName);
    lua_pushboolean( L, error );
    return 1;
}

int TLuaInterpreter::enableAlias( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "enableAlias: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    bool error = host.getAliasUnit()->enableAlias( text );
    lua_pushboolean( L, error );
    return 1;
}

// disableTimer( session, timer_name )
int TLuaInterpreter::disableAlias( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "disableAlias: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    bool error = host.getAliasUnit()->disableAlias( text );
    lua_pushboolean( L, error );
    return 1;
}

int TLuaInterpreter::killAlias( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "killAlias: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    lua_pushboolean( L, host.getAliasUnit()->killAlias( text ) );
    return 1;
}

// enableTimer( sess, timer_name )
int TLuaInterpreter::enableTrigger( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "enableTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    bool error = host.getTriggerUnit()->enableTrigger( text );
    lua_pushboolean( L, error );
    return 1;
}

// disableTimer( session, timer_name )
int TLuaInterpreter::disableTrigger( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "disableTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    bool error = host.getTriggerUnit()->disableTrigger( text );
    lua_pushboolean( L, error );
    return 1;
}


int TLuaInterpreter::killTimer( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "killTimer: killTimer requires a string ID" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    lua_pushboolean( L, host.killTimer( text ) );
    return 1;
}

int TLuaInterpreter::killTrigger( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "killTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    lua_pushboolean( L, host.killTrigger( text ) );
    return 1;
}

int TLuaInterpreter::closeMudlet(lua_State* L)
{
    mudlet::self()->forceClose();
    return 0;
}

int TLuaInterpreter::loadWindowLayout(lua_State *L) {
    lua_pushboolean( L, mudlet::self()->loadWindowLayout() );
    return 1;
}

int TLuaInterpreter::saveWindowLayout(lua_State *L) {
    mudlet::self()->mHasSavedLayout = false;
    lua_pushboolean( L, mudlet::self()->saveWindowLayout() );
    return 1;
}

int TLuaInterpreter::saveProfile(lua_State* L)
{
    Host& host = getHostFromLua(L);

    QString saveToDir;
    if (lua_isstring(L, 1)) {
        saveToDir = QString::fromUtf8(lua_tostring(L, 1));
    }

    std::tuple<bool, QString, QString> result = host.saveProfile(saveToDir);

    if (std::get<0>(result) == true) {
        lua_pushboolean(L, true);
        lua_pushstring(L, (std::get<1>(result).toUtf8().constData()));
        return 2;
    } else {
        lua_pushnil(L);
        lua_pushstring(L, QString("Couldn't save %1 to %2 because: %3").arg(host.getName(), std::get<1>(result), std::get<2>(result)).toUtf8().constData());
        return 2;
    }
}

// openUserWindow( session, string window_name )
int TLuaInterpreter::openUserWindow( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "openUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }

    bool loadLayout = true;
    if( ! lua_isnoneornil(L, 2) && lua_isboolean(L, 2) ) {
        loadLayout = lua_toboolean(L, 2);
    }

    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    lua_pushboolean( L, mudlet::self()->openWindow( &host, text, loadLayout ));
    return 1;
}

int TLuaInterpreter::createMiniConsole( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "createMiniConsole: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    int x,y,width,height;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "createMiniConsole: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tonumber( L, 2 );
    }
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "createMiniConsole: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y = lua_tonumber( L, 3 );
    }
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "createMiniConsole: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        width = lua_tonumber( L, 4 );
    }
    if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "createMiniConsole: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        height = lua_tonumber( L, 5 );
    }
    Host& host = getHostFromLua(L);
    QString name(luaSendText.c_str());
    lua_pushboolean( L, mudlet::self()->createMiniConsole( &host, name, x, y, width, height ) );
    return 1;
}

int TLuaInterpreter::createLabel( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "createLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    int x,y,width,height;
    bool fillBackground=false;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "createLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tonumber( L, 2 );
    }
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "createLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y = lua_tonumber( L, 3 );
    }
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "createLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        width = lua_tonumber( L, 4 );
    }
    if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "createLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        height = lua_tonumber( L, 5 );
    }
    if( ! lua_isnumber( L, 6 ) )
    {
        lua_pushstring( L, "createLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fillBackground = lua_toboolean( L, 6 );
    }
    Host& host = getHostFromLua(L);
    QString name(luaSendText.c_str());
    lua_pushboolean( L, mudlet::self()->createLabel( &host, name, x, y, width, height, fillBackground ) );
    return 1;
}

int TLuaInterpreter::createMapper( lua_State *L )
{
    int x,y,width,height;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "createMapper: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tonumber( L, 1 );
    }
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "createMapper: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y = lua_tonumber( L, 2 );
    }
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "createMapper: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        width = lua_tonumber( L, 3 );
    }
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "createMapper: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        height = lua_tonumber( L, 4 );
    }
    Host& host = getHostFromLua(L);
    host.mpConsole->createMapper( x, y, width, height );
    return 0;
}



int TLuaInterpreter::createButton( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "createButton: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    int x,y,width,height;
    bool fillBackground=false;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "createButton: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tonumber( L, 2 );
    }
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "createButton: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y = lua_tonumber( L, 3 );
    }
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "createButton: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        width = lua_tonumber( L, 4 );
    }
    if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "createButton: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        height = lua_tonumber( L, 5 );
    }
    if( ! lua_isnumber( L, 6 ) )
    {
        lua_pushstring( L, "createButton: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fillBackground = lua_toboolean( L, 6 );
    }
    Host& host = getHostFromLua(L);
    QString name(luaSendText.c_str());
    //TODO FIXME
    mudlet::self()->createLabel( &host, name, x, y, width, height, fillBackground );
    return 0;
}


int TLuaInterpreter::createBuffer( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "createBuffer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    mudlet::self()->createBuffer( &host, text );
    return 0;
}

int TLuaInterpreter::clearUserWindow( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        Host& host = getHostFromLua(L);
        host.mpConsole->buffer.clear();
        host.mpConsole->console->forceUpdate();
        return 0;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    mudlet::self()->clearWindow( &host, text );

    return 0;
}

int TLuaInterpreter::closeUserWindow( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "closeUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    mudlet::self()->closeWindow(&host, text);

    return 0;
}

int TLuaInterpreter::hideUserWindow( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "hideUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    mudlet::self()->hideWindow(&host, text);

    return 0;
}

int TLuaInterpreter::setBorderTop( lua_State *L )
{
    int x1;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setBorderTop: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mBorderTopHeight = x1;
    int x,y;
    x = host.mpConsole->width();
    y = host.mpConsole->height();
    QSize s = QSize(x,y);
    QResizeEvent event(s, s);
    QApplication::sendEvent( host.mpConsole, &event);
    return 0;
}

int TLuaInterpreter::setBorderBottom( lua_State *L )
{
    int x1;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setBorderBottom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mBorderBottomHeight = x1;
    int x,y;
    x = host.mpConsole->width();
    y = host.mpConsole->height();
    QSize s = QSize(x,y);
    QResizeEvent event(s, s);
    QApplication::sendEvent( host.mpConsole, &event);
    return 0;
}

int TLuaInterpreter::setBorderLeft( lua_State *L )
{
    int x1;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setBorderLeft: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mBorderLeftWidth = x1;
    int x,y;
    x = host.mpConsole->width();
    y = host.mpConsole->height();
    QSize s = QSize(x,y);
    QResizeEvent event(s, s);
    QApplication::sendEvent( host.mpConsole, &event);
    return 0;
}

int TLuaInterpreter::setBorderRight( lua_State *L )
{
    int x1;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setBorderRight: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mBorderRightWidth = x1;
    int x,y;
    x = host.mpConsole->width();
    y = host.mpConsole->height();
    QSize s = QSize(x,y);
    QResizeEvent event(s, s);
    QApplication::sendEvent( host.mpConsole, &event);
    return 0;
}

int TLuaInterpreter::resizeUserWindow( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "resizeUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    double x1;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "resizeUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 2 );
    }
    double y1;
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "resizeUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y1 = lua_tonumber( L, 3 );
    }

    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    mudlet::self()->resizeWindow( &host, text, static_cast<int>(x1), static_cast<int>(y1) );

    return 0;
}

int TLuaInterpreter::moveWindow( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "moveWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    double x1;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "moveWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 2 );
    }
    double y1;
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "moveWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y1 = lua_tonumber( L, 3 );
    }

    Host& host = getHostFromLua(L);

    QString text(luaSendText.c_str());
    mudlet::self()->moveWindow( &host, text, static_cast<int>(x1), static_cast<int>(y1) );
    return 0;
}

int TLuaInterpreter::setMainWindowSize( lua_State *L )
{
    int x1;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setMainWindowSize: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 1 );
    }
    int y1;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setMainWindowSize: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y1 = lua_tonumber( L, 2 );
    }

    mudlet::self()->resize( x1, y1 );

    return 0;
}

int TLuaInterpreter::setBackgroundColor( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "setBackgroundColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    double x1;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setBackgroundColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x1 = lua_tonumber( L, 2 );
    }
    double y1;
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "setBackgroundColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y1 = lua_tonumber( L, 3 );
    }
    double x2;
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "setBackgroundColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x2 = lua_tonumber( L, 4 );
    }
    double y2;
    if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "setBackgroundColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y2 = lua_tonumber( L, 5 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    mudlet::self()->setBackgroundColor( &host, text, static_cast<int>(x1), static_cast<int>(y1), static_cast<int>(x2), static_cast<int>(y2) );

    return 0;
}

int TLuaInterpreter::calcFontWidth( int size )
{
    QFont font = QFont("Bitstream Vera Sans Mono", size, QFont::Normal);
    return QFontMetrics( font ).width( QChar('W') );
}

int TLuaInterpreter::calcFontHeight( int size )
{
    QFont font = QFont("Bitstream Vera Sans Mono", size, QFont::Normal);
    int fontDescent = QFontMetrics( font ).descent();
    int fontAscent = QFontMetrics( font ).ascent();
    return fontAscent + fontDescent;
}

int TLuaInterpreter::calcFontSize( lua_State *L )
{
    int x = 0;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "calcFontSize: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tonumber( L, 1 );
    }

    lua_pushnumber( L, calcFontWidth( x ) );
    lua_pushnumber( L, calcFontHeight( x ) );
    return 2;
}

// Badly named, because it will STOP logging if the supplied argument is false
// Now returns 4 values:
// * true on sucessfully changing logging state; nil otherwise
// * an internationalizable/translated message
// * the log pathAndFile name involved (or nil if there wasn't one)
// * a numeric code indicating what happend:
//    0 = logging was just stopped
//    1 = logging has just started
//   -1 = logging was already in progress so no change in logging state
//   -2 = logging was already not in progress so no change in logging state
int TLuaInterpreter::startLogging( lua_State *L )
{
    Host& host = getHostFromLua(L);

    bool logOn = true;
    if( ! lua_isboolean( L, 1 ) ) {
        lua_pushfstring(L, "startLogging: bad argument #1 type (turn logging on/off, as boolean expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        logOn = lua_toboolean( L, 1 );
    }

    QString savedLogFileName;
    if( host.mpConsole->mLogToLogFile ) {
        savedLogFileName = host.mpConsole->mLogFileName;
    // Don't assume we will be able to find the file name once recording has
    // stopped.
    }

    if( host.mpConsole->mLogToLogFile != logOn ) {
        host.mpConsole->toggleLogging( false );
        // Changes state of host.mpConsole->mLogToLogFile, but that can't be
        // really be called a side-effect!

        lua_pushboolean( L, true );
        if( host.mpConsole->mLogToLogFile ) {
            host.mpConsole->logButton->setChecked(true);
            // Sets the button as checked but clicked() & pressed() signals are NOT generated
            lua_pushfstring(L, "Main console output has started to be logged to file: %s.",
                            host.mpConsole->mLogFileName.toUtf8().constData());
            lua_pushstring(L, host.mpConsole->mLogFileName.toUtf8().constData());
            lua_pushnumber(L, 1);
        }
        else {
            host.mpConsole->logButton->setChecked(false);
            lua_pushfstring(L, "Main console output has stopped being logged to file: %s.",
                            savedLogFileName.toUtf8().constData());
            lua_pushstring(L, host.mpConsole->mLogFileName.toUtf8().constData());
            lua_pushnumber(L, 0);
        }

    }
    else {
        lua_pushnil( L );
        if( host.mpConsole->mLogToLogFile ) {
            lua_pushfstring(L, "Main console output is already being logged to file: %s.",
                            host.mpConsole->mLogFileName.toUtf8().constData());
            lua_pushstring(L, host.mpConsole->mLogFileName.toUtf8().constData());
            lua_pushnumber(L, -1);
        }
        else {
            lua_pushstring(L, "Main console output was already not being logged to a file.");
            lua_pushnil(L);
            lua_pushnumber(L, -2);
        }

    }
    return 4;
}

int TLuaInterpreter::setBackgroundImage( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "setBackgroundImage: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    string luaName="";
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "setBackgroundImage: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaName = lua_tostring( L, 2 );
    }

    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    QString name(luaName.c_str());
    mudlet::self()->setBackgroundImage( &host, text, name );

    return 0;
}

int TLuaInterpreter::setLabelClickCallback( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString labelName;
    if (! lua_isstring(L, 1)) {
        lua_pushfstring(L, "setLabelClickCallback: bad argument #1 type (label name as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    } else {
        labelName = QString::fromUtf8(lua_tostring(L, 1));
        if (labelName.isEmpty()) {
            lua_pushnil(L);
            lua_pushstring(L, "setLabelClickCallback: bad argument #1 value (label name cannot be an empty string.)");
            return 2;
        }
    }

    QString eventName;
    if (! lua_isstring(L, 2)) {
        lua_pushfstring(L, "setLabelClickCallback: bad argument #2 type (event name as string expected, got %s!)",
                        luaL_typename(L, 2));
        return lua_error(L);
    } else {
        eventName = QString::fromUtf8(lua_tostring(L, 2));
    }

    TEvent event;
    int n = lua_gettop(L);
    for (int i = 3; i <= n; ++i) {
        if (lua_isnumber(L, i)) {
            event.mArgumentList.append(QString::number(lua_tonumber(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NUMBER);
        } else if(lua_isstring(L, i)) {
            event.mArgumentList.append(QString::fromUtf8(lua_tostring(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_STRING);
        } else if(lua_isboolean(L, i)) {
            event.mArgumentList.append(QString::number(lua_toboolean(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_BOOLEAN);
        } else if(lua_isnil(L, i)) {
            event.mArgumentList.append(QString());
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NIL);
        } else {
            lua_pushfstring(L, "setLabelClickCallback: bad argument #%d type (boolean, number, string or nil\n"
                               "expected, got a %s!)",
                            i, luaL_typename(L, i));
            return lua_error(L);
        }
    }

    if (mudlet::self()->setLabelClickCallback(&host, labelName, eventName, event)) {
        lua_pushboolean(L, true);
        return 1;
    } else {
        lua_pushnil(L);
        lua_pushfstring(L, R"(setLabelClickCallback: bad argument #1 value (label name "%s" not found.))",
                        labelName.toUtf8().constData());
        return 2;
    }
}

int TLuaInterpreter::setLabelReleaseCallback( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString labelName;
    if (! lua_isstring(L, 1)) {
        lua_pushfstring(L, "setLabelReleaseCallback: bad argument #1 type (label name as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    } else {
        labelName = QString::fromUtf8(lua_tostring(L, 1));
        if (labelName.isEmpty()) {
            lua_pushnil(L);
            lua_pushstring(L, "setLabelReleaseCallback: bad argument #1 value (label name cannot be an empty string.)");
            return 2;
        }
    }

    QString eventName;
    if (! lua_isstring(L, 2)) {
        lua_pushfstring(L, "setLabelReleaseCallback: bad argument #2 type (event name as string expected, got %s!)",
                        luaL_typename(L, 2));
        return lua_error(L);
    } else {
        eventName = QString::fromUtf8(lua_tostring(L, 2));
    }

    TEvent event;
    int n = lua_gettop(L);
    for (int i = 3; i <= n; ++i) {
        if (lua_isnumber(L, i)) {
            event.mArgumentList.append(QString::number(lua_tonumber(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NUMBER);
        } else if(lua_isstring(L, i)) {
            event.mArgumentList.append(QString::fromUtf8(lua_tostring(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_STRING);
        } else if(lua_isboolean(L, i)) {
            event.mArgumentList.append(QString::number(lua_toboolean(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_BOOLEAN);
        } else if(lua_isnil(L, i)) {
            event.mArgumentList.append(QString());
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NIL);
        } else {
            lua_pushfstring(L, "setLabelReleaseCallback: bad argument #%d type (boolean, number, string or nil\n"
                               "expected, got a %s!)",
                            i, luaL_typename(L, i));
            return lua_error(L);
        }
    }

    if (mudlet::self()->setLabelReleaseCallback(&host, labelName, eventName, event)) {
        lua_pushboolean(L, true);
        return 1;
    } else {
        lua_pushnil(L);
        lua_pushfstring(L, R"(setLabelReleaseCallback: bad argument #1 value (label name "%s" not found.))",
                        labelName.toUtf8().constData());
        return 2;
    }
}

int TLuaInterpreter::setLabelOnEnter( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString labelName;
    if (! lua_isstring(L, 1)) {
        lua_pushfstring(L, "setLabelOnEnter: bad argument #1 type (label name as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    } else {
        labelName = QString::fromUtf8(lua_tostring(L, 1));
        if (labelName.isEmpty()) {
            lua_pushnil(L);
            lua_pushstring(L, "setLabelOnEnter: bad argument #1 value (label name cannot be an empty string.)");
            return 2;
        }
    }

    QString eventName;
    if (! lua_isstring(L, 2)) {
        lua_pushfstring(L, "setLabelOnEnter: bad argument #2 type (event name as string expected, got %s!)",
                        luaL_typename(L, 2));
        return lua_error(L);
    } else {
        eventName = QString::fromUtf8(lua_tostring(L, 2));
    }

    TEvent event;
    int n = lua_gettop(L);
    for (int i = 3; i <= n; ++i) {
        if (lua_isnumber(L, i)) {
            event.mArgumentList.append(QString::number(lua_tonumber(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NUMBER);
        } else if (lua_isstring(L, i)) {
            event.mArgumentList.append(QString::fromUtf8(lua_tostring(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_STRING);
        } else if (lua_isboolean(L, i)) {
            event.mArgumentList.append(QString::number(lua_toboolean(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_BOOLEAN);
        } else if (lua_isnil(L, i)) {
            event.mArgumentList.append(QString());
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NIL);
        } else {
            lua_pushfstring(L, "setLabelOnEnter: bad argument #%d type (boolean, number, string or nil expected,\n"
                               "got a %s!)",
                            i, luaL_typename(L, i));
            return lua_error(L);
        }
    }

    if (mudlet::self()->setLabelOnEnter(&host, labelName, eventName, event)) {
        lua_pushboolean(L, true);
        return 1;
    } else {
        lua_pushnil(L);
        lua_pushfstring(L, R"(setLabelOnEnter: bad argument #1 value (label name "%s" not found.))",
                        labelName.toUtf8().constData());
        return 2;
    }
}

int TLuaInterpreter::setLabelOnLeave( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString labelName;
    if (! lua_isstring(L, 1)) {
        lua_pushfstring(L, "setLabelOnLeave: bad argument #1 type (label name as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error(L);
    } else {
        labelName = QString::fromUtf8(lua_tostring(L, 1));
        if (labelName.isEmpty()) {
            lua_pushnil(L);
            lua_pushstring(L, "setLabelOnLeave: bad argument #1 value (label name cannot be an empty string.)");
            return 2;
        }
    }

    QString eventName;
    if (! lua_isstring(L, 2)) {
        lua_pushfstring(L, "setLabelOnLeave: bad argument #2 type (event name as string expected, got %s!)",
                        luaL_typename(L, 2));
        return lua_error(L);
    } else {
        eventName = QString::fromUtf8(lua_tostring(L, 2));
    }

    TEvent event;
    int n = lua_gettop(L);
    for (int i = 3; i <= n; ++i) {
        if (lua_isnumber(L, i)) {
            event.mArgumentList.append(QString::number(lua_tonumber(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NUMBER);
        } else if (lua_isstring(L, i)) {
            event.mArgumentList.append(QString::fromUtf8(lua_tostring(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_STRING);
        } else if (lua_isboolean(L, i)) {
            event.mArgumentList.append(QString::number(lua_toboolean(L, i)));
            event.mArgumentTypeList.append(ARGUMENT_TYPE_BOOLEAN);
        } else if (lua_isnil(L, i)) {
            event.mArgumentList.append(QString());
            event.mArgumentTypeList.append(ARGUMENT_TYPE_NIL);
        } else {
            lua_pushfstring(L, "setLabelOnLeave: bad argument type #%d (boolean, number, string or nil expected,\n"
                               "got a %s!)",
                            i, luaL_typename(L, i));
            return lua_error(L);
        }
    }

    if (mudlet::self()->setLabelOnLeave(&host, labelName, eventName, event)) {
        lua_pushboolean(L, true);
        return 1;
    } else {
        lua_pushnil(L);
        lua_pushfstring(L, R"(setLabelOnLeave: bad argument #1 value (label name "%s" not found.))",
                        labelName.toUtf8().constData());
        return 2;
    }
}

int TLuaInterpreter::setTextFormat( lua_State * L )
{
    Host& host = getHostFromLua(L);

    int n = lua_gettop( L );
    int s = 0;

    QString windowName;
    if( ! lua_isstring( L, ++s ) )
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (window name as string {use \"main\" or\n"
                           "empty string for main console} expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        windowName = QString::fromUtf8( lua_tostring( L, s ) );
    }

    QVector<int>colorComponents(6); // 0-2 RGB foreground, 3-5 RGB background
    if( ! lua_isnumber( L, ++s ) )
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (red foreground color component as number\n"
                           "expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        colorComponents[0] = qRound( qBound( 0.0, lua_tonumber( L, s ), 255.0 ) );
    }

    if( ! lua_isnumber( L, ++s ) )
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (green foreground color component as number\n"
                           "expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        colorComponents[1] = qRound( qBound( 0.0, lua_tonumber( L, s ), 255.0 ) );
    }

    if( ! lua_isnumber( L, ++s ) )
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (blue foreground color component as number\n"
                           "expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        colorComponents[2] = qRound( qBound( 0.0, lua_tonumber( L, s ), 255.0 ) );
    }

    if( ! lua_isnumber( L, ++s ) )
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (red background color component as number\n"
                           "expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        colorComponents[3] = qRound( qBound( 0.0, lua_tonumber( L, s ), 255.0 ) );
    }

    if( ! lua_isnumber( L, ++s ) )
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (green background color component as number\n"
                           "expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        colorComponents[4] = qRound( qBound( 0.0, lua_tonumber( L, s ), 255.0 ) );
    }

    if( ! lua_isnumber( L, ++s ) )
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (blue background color component as number\n"
                           "expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        colorComponents[5] = qRound( qBound( 0.0, lua_tonumber( L, s ), 255.0 ) );
    }

    bool bold;
    if( lua_isboolean( L, ++s ) )
    {
        bold = lua_toboolean( L, s );
    }
    else if( lua_isnumber( L, s ) )
    {
        bold = ! qFuzzyCompare( 1.0, 1.0+lua_tonumber( L, s ) );
    }
    else
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (bold format as boolean {or number,\n"
                           "non-zero is true} expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }

    bool underline;
    if( lua_isboolean( L, ++s ) )
    {
        underline = lua_toboolean( L, s );
    }
    else if( lua_isnumber( L, s ) )
    {
        underline = ! qFuzzyCompare( 1.0, 1.0+lua_tonumber( L, s ) );
    }
    else
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (underline format as boolean {or number,\n"
                           "non-zero is true} expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }

    bool italics;
    if( lua_isboolean( L, ++s ) )
    {
        italics = lua_toboolean( L, s );
    }
    else if( lua_isnumber( L, s ) )
    {
        italics = ! qFuzzyCompare( 1.0, 1.0+lua_tonumber( L, s ) );
    }
    else
    {
        lua_pushfstring(L, "setTextFormat: bad argument #%d type (italic format as boolean {or number,\n"
                          "non-zero is true} expected, got %s!)",
                       s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }

    bool strikeout = false;
    if( s > n ) // s has not been incremented yet so this means we still have another argument!
    {
        if( lua_isboolean( L, ++s ) )
        {
            strikeout = lua_toboolean( L, s );
        }
        else if( lua_isnumber( L, s ) )
        {
            strikeout = ! qFuzzyCompare( 1.0, 1.0+lua_tonumber( L, s ) );
        }
        else
        {
            lua_pushfstring(L, "setTextFormat: bad argument #%d type (strikeout format as boolean {or number,\n"
                               "non-zero is true} optional, got %s!)",
                            s, luaL_typename(L, s));
            lua_error( L );
            return 1;
        }
    }

    if( windowName.isEmpty() || windowName.compare( QStringLiteral("main"), Qt::CaseSensitive ) )
    {
        TConsole * pC = host.mpConsole;
        pC->mFormatCurrent.bgR = colorComponents.at(0);
        pC->mFormatCurrent.bgG = colorComponents.at(1);
        pC->mFormatCurrent.bgB = colorComponents.at(2);
        pC->mFormatCurrent.fgR = colorComponents.at(3);
        pC->mFormatCurrent.fgG = colorComponents.at(4);
        pC->mFormatCurrent.fgB = colorComponents.at(5);
        int flags = (bold ? TCHAR_BOLD : 0)
                  + (underline ? TCHAR_UNDERLINE : 0)
                  + (italics ? TCHAR_ITALICS : 0)
                  + (strikeout ? TCHAR_STRIKEOUT : 0);
        pC->mFormatCurrent.flags &= ~(TCHAR_BOLD|TCHAR_UNDERLINE|TCHAR_ITALICS|TCHAR_STRIKEOUT) ;
        pC->mFormatCurrent.flags |= flags;
        lua_pushboolean( L, true );
    }
    else
    {
        lua_pushboolean( L, mudlet::self()->setTextFormat( &host, windowName,
                                                           colorComponents.at(0), colorComponents.at(1), colorComponents.at(2),
                                                           colorComponents.at(3), colorComponents.at(4), colorComponents.at(5),
                                                           bold, underline, italics, strikeout ) );
    }

    return 1;
}

int TLuaInterpreter::raiseWindow( lua_State *L )
{
    QString windowName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "raiseWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        windowName = QString::fromUtf8( lua_tostring( L, 1 ) );
    }
    Host& host = getHostFromLua(L);
    lua_pushboolean( L, host.mpConsole->raiseWindow( windowName ));
    return 1;
}

int TLuaInterpreter::lowerWindow( lua_State *L )
{
    QString windowName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "lowerWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        windowName = QString::fromUtf8( lua_tostring( L, 1 ) );
    }
    Host& host = getHostFromLua(L);
    lua_pushboolean( L, host.mpConsole->lowerWindow( windowName ));
    return 1;
}

int TLuaInterpreter::showUserWindow( lua_State *L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "showUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    lua_pushboolean(L, mudlet::self()->showWindow(&host, text));
    return 1;
}

// xRot, yRot, zRot, zoom
int TLuaInterpreter::setMapperView( lua_State *L )
{
    float x, y, z, zoom;

    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setMapperView: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tonumber( L, 1 );
    }

    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setMapperView: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y = lua_tonumber( L, 2 );
    }
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "setMapperView: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        z = lua_tonumber( L, 3 );
    }
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "setMapperView: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        zoom = lua_tonumber( L, 4 );
    }
    Host& host = getHostFromLua(L);

    host.mpMap->setView( x, y, z, zoom  );
    return 0;
}

int TLuaInterpreter::setRoomEnv( lua_State *L )
{
    int id, env;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setRoomEnv: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setRoomEnv: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        env = lua_tonumber( L, 2 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( pR )
    {
        pR->environment = env;
    }

    return 0;
}

int TLuaInterpreter::setRoomName( lua_State *L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "setRoomName: no map present or loaded!");
        return 2;
    }

    int id;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "setRoomName: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        id = lua_tonumber( L, 1 );
    }

    QString name;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, "setRoomName: bad argument #2 type (room name as string expected, got %s!)",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        name = QString::fromUtf8( lua_tostring( L, 2 ) );
    }

    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR ) {
        pR->name = name;
        lua_pushboolean( L, true ); // Might conceivably wish to update the mappers after this...!
        return 1;
    }
    else {
        lua_pushnil( L );
        lua_pushfstring(L, "setRoomName: bad argument #1 value (number %d is not a valid room id).",
                        id);
        return 2;
    }
}

int TLuaInterpreter::getRoomName( lua_State *L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getRoomName: no map present or loaded!");
        return 2;
    }

    int id;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getRoomName: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        id = lua_tonumber( L, 1 );
    }

    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR ) {
        lua_pushstring(L, pR->name.toUtf8().constData());
        return 1;
    }
    else {
        lua_pushnil( L );
        lua_pushfstring(L, "getRoomName: bad argument #1 value (number %d is not a valid room id).",
                        id);
        return 2;
    }
}

int TLuaInterpreter::setRoomWeight( lua_State *L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setRoomWeight: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }
    int w;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setRoomWeight: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        w = lua_tonumber( L, 2 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        pR->setWeight(w);
        host.mpMap->mMapGraphNeedsUpdate = true;
    }

    return 0;
}

int TLuaInterpreter::connectToServer(lua_State* L)
{
    // The lua_tointeger(...) call can return a 64-bit integer number, on
    // Windows Platform that is bigger than the int32_t type (a.k.a. "int" AND
    // "long" types on that platform)! 8-O
    lua_Integer port = 23;
    string url;
    bool isToSaveToProfile = false;

    Host& host = getHostFromLua(L);

    if (!lua_isstring(L, 1)) {
        lua_pushfstring(L, "connectToServer: bad argument #1 type (url as string expected, got %s!)", lua_typename(L, 1));
        return lua_error(L);
    } else {
        url = lua_tostring(L, 1);
    }

    if (!lua_isnoneornil(L, 2)) {
        if (!lua_isnumber(L, 2)) {
            lua_pushfstring(L, "connectToServer: bad argument #2 type (port number as number is optional {default = 23}, got %s!)", lua_typename(L, 2));
            return lua_error(L);
        } else {
            port = lua_tointeger(L, 2);
            if (port > 65535 || port < 1) {
                lua_pushnil(L);
                lua_pushfstring(L, "invalid port number %d given, if supplied it must be in range 1 to 65535, {defaults to 23 if not provided}", port);
                return 2;
            }
        }
    }

    // Optional argument to save this new connection to disk for this profile.
    if (!lua_isnoneornil(L, 3)) {
        if (!lua_isboolean(L, 3)) {
            lua_pushfstring(L, "connectToServer: bad argument #3 type (save host name and port number as boolean expected, got %1!)", lua_typename(L, 3));
            return lua_error(L);
        } else {
            isToSaveToProfile = lua_toboolean(L, 3);
        }
    }

    if (isToSaveToProfile) {
        QPair<bool, QString> result = host.writeProfileData(QLatin1String("url"), url.c_str());
        if (!result.first) {
            lua_pushnil(L);
            lua_pushfstring(L, "unable to save host name, reason: %s", result.second.toUtf8().constData());
            return 2;
        }

        result = host.writeProfileData(QLatin1String("url"), QString::number(port));
        if (!result.first) {
            lua_pushnil(L);
            lua_pushfstring(L, "unable to save port number, reason: %s", result.second.toUtf8().constData());
            return 2;
        }
    }

    host.mTelnet.connectIt(url.c_str(), port);

    lua_pushboolean(L, true);
    return 1;
}

int TLuaInterpreter::setRoomIDbyHash( lua_State *L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setRoomIDbyHash: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }
    string hash;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "setRoomIDbyHash: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        hash = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    host.mpMap->mpRoomDB->hashTable[QString(hash.c_str())] = id;
    return 0;
}

int TLuaInterpreter::getRoomIDbyHash( lua_State *L )
{
    string hash;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "getRoomIDbyHash() wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        hash = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    int retID = -1;
    QString _hash = hash.c_str();
    if( host.mpMap->mpRoomDB->hashTable.contains( _hash ) )
    {
        retID = host.mpMap->mpRoomDB->hashTable[_hash];
        lua_pushnumber( L, retID );
    }
    else
        lua_pushnumber( L, -1 );

    return 1;
}

int TLuaInterpreter::solveRoomCollisions( lua_State *L )
{
    return 0;
}

// At one stage there was an isRoomLocked() function as well but it was
// functionally identical - however as it was not registered by a call to
// lua_register() in initLuaGlobals() it was not available to the user!
int TLuaInterpreter::roomLocked( lua_State *L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "roomLocked: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        bool r = pR->isLocked;
        lua_pushboolean( L, r );
    }
    else
    {
        lua_pushboolean(L, false);
    }
    return 1;
}

int TLuaInterpreter::lockRoom( lua_State *L )
{
    bool b = true;
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "lockRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }

    if( ! lua_isboolean( L, 2 ) )
    {
        lua_pushstring( L, "lockRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        b = lua_toboolean( L, 2 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        pR->isLocked = b;
        host.mpMap->mMapGraphNeedsUpdate = true;
        lua_pushboolean(L, true);
    }
    else
    {
        lua_pushboolean(L, false);
    }
    return 1;
}

int TLuaInterpreter::lockExit( lua_State *L )
{
    bool b = true;
    int id;
    int dir;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "lockExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }

    dir = dirToNumber( L, 2 );
    if( ! dir )
    {
        lua_pushstring( L, "lockExit: wrong argument type" );
        lua_error( L );
        return 1;
    }

    if( ! lua_isboolean( L, 3 ) )
    {
        lua_pushstring( L, "lockExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        b = lua_toboolean( L, 3 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        pR->setExitLock( dir, b );
        host.mpMap->mMapGraphNeedsUpdate = true;
    }
    return 0;
}

int TLuaInterpreter::lockSpecialExit( lua_State *L )
{
    bool b = true;
    int id, to;
    std::string dir;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "lockSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }

    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "lockSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        to = lua_tonumber( L, 2 );
    }

    if( ! lua_isstring( L, 3 ) )
    {
        lua_pushstring( L, "lockSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        dir = lua_tostring( L, 3 );
    }

    if( ! lua_isboolean( L, 4 ) )
    {
        lua_pushstring( L, "lockSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        b = lua_toboolean( L, 4 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        QString _dir = dir.c_str();
        pR->setSpecialExitLock( to, _dir, b );
        host.mpMap->mMapGraphNeedsUpdate = true;
    }
    return 0;
}

int TLuaInterpreter::hasSpecialExitLock( lua_State *L )
{
    int id, to;
    std::string dir;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "hasSpecialExitLock: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }


    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "hasSpecialExitLock: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        to = lua_tonumber( L, 2 );
    }
    if( ! lua_isstring( L, 3 ) )
    {
        lua_pushstring( L, "hasSpecialExitLock: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        dir = lua_tostring( L, 3 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        QString _dir = dir.c_str();
        lua_pushboolean( L, pR->hasSpecialExitLock( to, _dir ) );
        return 1;
    }
    return 0;
}

int TLuaInterpreter::hasExitLock( lua_State *L )
{
    int id;
    int dir;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "hasExitLock: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }

    dir = dirToNumber( L, 2 );
    if( ! dir )
    {
        lua_pushstring( L, "hasExitLock: wrong argument type" );
        lua_error( L );
        return 1;
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        lua_pushboolean( L, pR->hasExitLock(dir) );
        return 1;
    }
    return 0;
}

int TLuaInterpreter::getRoomExits( lua_State *L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getRoomExits: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tonumber( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom(id);
    if( pR )
    {
        lua_newtable(L);
        if( pR->getNorth() != -1 )
        {
            lua_pushstring( L, "north" );
            lua_pushnumber( L, pR->getNorth() );
            lua_settable(L, -3);
        }
        if( pR->getNorthwest() != -1 )
        {
            lua_pushstring( L, "northwest" );
            lua_pushnumber( L, pR->getNorthwest() );
            lua_settable(L, -3);
        }
        if( pR->getNortheast() != -1 )
        {
            lua_pushstring( L, "northeast" );
            lua_pushnumber( L, pR->getNortheast() );
            lua_settable(L, -3);
        }
        if( pR->getSouth() != -1 )
        {
            lua_pushstring( L, "south" );
            lua_pushnumber( L, pR->getSouth() );
            lua_settable(L, -3);
        }
        if( pR->getSouthwest() != -1 )
        {
            lua_pushstring( L, "southwest" );
            lua_pushnumber( L, pR->getSouthwest() );
            lua_settable(L, -3);
        }
        if( pR->getSoutheast() != -1 )
        {
            lua_pushstring( L, "southeast" );
            lua_pushnumber( L, pR->getSoutheast() );
            lua_settable(L, -3);
        }
        if( pR->getWest() != -1 )
        {
            lua_pushstring( L, "west" );
            lua_pushnumber( L, pR->getWest() );
            lua_settable(L, -3);
        }
        if( pR->getEast() != -1 )
        {
            lua_pushstring( L, "east" );
            lua_pushnumber( L, pR->getEast() );
            lua_settable(L, -3);
        }
        if( pR->getUp() != -1 )
        {
            lua_pushstring( L, "up" );
            lua_pushnumber( L, pR->getUp() );
            lua_settable(L, -3);
        }
        if( pR->getDown() != -1 )
        {
            lua_pushstring( L, "down" );
            lua_pushnumber( L, pR->getDown() );
            lua_settable(L, -3);
        }
        if( pR->getIn() != -1 )
        {
            lua_pushstring( L, "in" );
            lua_pushnumber( L, pR->getIn() );
            lua_settable(L, -3);
        }
        if( pR->getOut() != -1 )
        {
            lua_pushstring( L, "out" );
            lua_pushnumber( L, pR->getOut() );
            lua_settable(L, -3);
        }
        return 1;
    }
    else
        return 0;
}

// Given a room id number, returns a lua list (monotonically increasing keys
// starting at 1) with (sorted) values being room id numbers that have exit(s)
// that enter the given room (even one way routes).
// TODO: Provide exit details:
int TLuaInterpreter::getAllRoomEntrances( lua_State *L )
{
    int roomId = 0;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getAllRoomEntrances: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error( L );
    }
    else {
       roomId = lua_tonumber( L, 1 );
    }

    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getAllRoomEntrances: no map present or loaded!");
        return 2;
    }
    else {
        TRoom * pR = host.mpMap->mpRoomDB->getRoom(roomId);
        if( ! pR ) {
            lua_pushnil( L );
            lua_pushfstring(L, "getAllRoomEntrances: bad argument #1 value (number %d is not a valid room id).",
                            roomId);
            return 2;
        }
        lua_newtable(L);
        QList<int> entrances = host.mpMap->mpRoomDB->getEntranceHash().values( roomId );
        // Could use a .toSet().toList() to remove duplicates values
        if( entrances.count() > 1 ) {
            std::sort( entrances.begin(), entrances.end() );
        }
        for( uint i = 0; i < entrances.size(); i++ ) {
            lua_pushnumber( L, i+1 );
            lua_pushnumber( L, entrances.at( i ) );
            lua_settable(L, -3);
        }
        return 1;
    }
}

// EITHER searchRoom( roomId ):
// Returns the room name for the given roomId number, or errors out if no such
// room exists.
// OR searchRoom( roomName ):
// Original implimentation did a case insensitive and matched on only part
// of the room name if a string is supplied as the argument.  Returns a table
// of room ids with the matching room name for each room id.
// NOW Enhanced in a compatible matter with two further optional boolean arguments:
// searchRoom( roomName, < caseSensitive < , exact match > > )
// which both default to false if omitted to reproduce the original action.
int TLuaInterpreter::searchRoom( lua_State *L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "searchRoom: no map present or loaded!");
        return 2;
    }

    int room_id = 0;
    int n = lua_gettop( L );
    bool gotRoomID = false;
    bool caseSensitive = false;
    bool exactMatch = false;
    QString room;

    if( lua_isnumber( L, 1 ) ) {
        room_id = lua_tointeger( L, 1 );
        gotRoomID = true;
    }
    else if( lua_isstring( L, 1 ) ) {
        if( n > 1 ) {
            if( lua_isboolean( L, 2) ) {
                caseSensitive = lua_toboolean( L, 2 );
                if( n > 2 ) {
                    if( lua_isboolean( L, 3) )
                        exactMatch = lua_toboolean( L, 3 );
                    else {
                        lua_pushfstring(L, R"(searchRoom: bad argument #3 type ("exact match" as boolean is optional, got %s!))",
                                        luaL_typename(L, 3));
                        lua_error( L );
                        return 1;
                    }
                }
            }
            else {
                lua_pushfstring(L, R"(searchRoom: bad argument #2 type ("case sensitive" as boolean is optional, got %s!))",
                                luaL_typename(L, 2));
                lua_error( L );
                return 1;
            }
        }
        room = QString::fromUtf8( lua_tostring( L, 1 ) );
    }
    else {
        lua_pushfstring(L, R"(searchRoom: bad argument #1 ("room name" as string expected, got %s!))",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }

    if( gotRoomID ) {
        TRoom * pR = host.mpMap->mpRoomDB->getRoom(room_id);
        if( pR ) {
            lua_pushstring(L, pR->name.toUtf8().constData());
            return 1;
        }
        else {
            lua_pushfstring(L, "searchRoom: bad argument #1 value (room id %d does not exist!)",
                            room_id);
            // Should've been a nil with this as an second returned string!
            return 1;
        }
    }
    else {
        QList<TRoom *> roomList = host.mpMap->mpRoomDB->getRoomPtrList();
        lua_newtable(L);
        QList<int> roomIdsFound;
        for(auto pR : roomList) {
            if( exactMatch ) {
                if( pR->name.compare( room, caseSensitive ? Qt::CaseSensitive : Qt::CaseInsensitive ) == 0 ) {
                    roomIdsFound.append(pR->getId());
                }
            }
            else {
                if( pR->name.contains( room, caseSensitive ? Qt::CaseSensitive : Qt::CaseInsensitive ) ) {
                    roomIdsFound.append(pR->getId());
                }
            }
        }
        if( ! roomIdsFound.isEmpty() ) {
            for(int i : roomIdsFound) {
                TRoom * pR = host.mpMap->mpRoomDB->getRoom( i );
                QString name = pR->name;
                int roomID = pR->getId();
                lua_pushnumber( L, roomID );
                lua_pushstring( L, name.toUtf8().constData() );
                lua_settable( L, -3 );
            }
        }
        return 1;
    }
}

// Derived from searchRoom, if we have:
// searchRoomUserData(key, value)
//     look through all room ids for a given user data "key" for the "value" and
//     return a lua "array" of roomids matching those
//     - linear search time, plus (q)sort(?) of roomIds found
// searchRoomUserData(key)
//     return a sorted lua "array" of the unique "values" found against that "key"
//     - linear search time, plus (q)sort(?) of values found
// searchRoomUserData() - LATER ADDED FEATURE
//     return a sorted lua "array" of the unique "keys" found in all rooms
int TLuaInterpreter::searchRoomUserData( lua_State *L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "searchRoomUserData: no map present or loaded!");
        return 2;
    }

    QString key = QString();
    QString value = QString(); //both of these assigns a null value which is detectably different from the empty value

    if( lua_gettop( L ) ) {
        if( ! lua_isstring( L, 1 ) ) {
            lua_pushfstring(L, R"(searchRoomUserData: bad argument #1 ("key" as string is optional, got %s!))",
                            luaL_typename(L, 1));
            lua_error( L );
            return 1;
        }
        else {
            key = QString::fromUtf8( lua_tostring( L, 1 ) );
        }

        if( lua_gettop( L ) > 1 ) {
            if( ! lua_isstring( L, 2 ) ) {
                lua_pushfstring(L, R"(searchRoomUserData: bad argument #2 ("value" as string is optional, got %s!))",
                                luaL_typename(L, 2));
                lua_error( L );
                return 1;
            }
            else {
                value = QString::fromUtf8( lua_tostring( L, 2 ) );
            }
        }
    }

    lua_newtable(L);

    QHashIterator<int, TRoom *> itRoom( host.mpMap->mpRoomDB->getRoomMap() );
    // For best performance do the three different types of action in three
    // different branches each with a loop - rather than choosing a branch
    // within a loop for each room

    lua_newtable( L );
    if( key.isNull() ) { // Find all keys everywhere
        QSet<QString> keysSet;
        while( itRoom.hasNext() ) {
            itRoom.next();
            keysSet.unite( itRoom.value()->userData.keys().toSet() );
        }

        QStringList keys = keysSet.toList();
        if( keys.size() > 1 ) {
            std::sort( keys.begin(), keys.end() );
        }

        for( unsigned int i=0, total = keys.size(); i<total; ++i ) {
            lua_pushnumber( L, i+1 );
            lua_pushstring( L, keys.at(i).toUtf8().constData() );
            lua_settable( L, -3 );
        }
    }
    else if( value.isNull() ) { // Find all values for a particular key in every room
        QSet<QString> valuesSet; // Use a set as it automatically eliminates duplicates
        while( itRoom.hasNext() ) {
            itRoom.next();
            QString roomValueForKey = itRoom.value()->userData.value( key, QString() );
            // If the key is NOT present, will return second argument which is a
            // null QString which is NOT the same as an empty QString.
            if( ! roomValueForKey.isNull() ) {
                valuesSet.insert( roomValueForKey );
            }
        }

        QStringList values = valuesSet.toList();
        if( values.size() > 1 ) {
            std::sort( values.begin(), values.end() );
        }

        for( unsigned int i=0, total = values.size(); i<total; ++i ) {
            lua_pushnumber( L, i+1 );
            lua_pushstring( L, values.at(i).toUtf8().constData() );
            lua_settable( L, -3 );
        }
    }
    else { // Find all rooms where key and value match
        QSet<int> roomIdsSet;
        while( itRoom.hasNext() ) {
            itRoom.next();

            QString roomDataValue = itRoom.value()->userData.value( key, QString() );
            if( ( ! roomDataValue.isNull() )
             && ( ! value.compare( roomDataValue , Qt::CaseSensitive ) ) ) {

                roomIdsSet.insert( itRoom.key() );
            }
        }

        QList<int> roomIds = roomIdsSet.toList();
        if( roomIds.size() > 1 ) {
            std::sort( roomIds.begin(), roomIds.end() );
        }

        for( unsigned int i=0, total = roomIds.size(); i<total; ++i ) {
            lua_pushnumber( L, i+1 );
            lua_pushnumber( L, roomIds.at(i) );
            lua_settable( L, -3 );
        }
    }

    return 1;
}

// Derived from searchRoomUserData(...)
int TLuaInterpreter::searchAreaUserData( lua_State *L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "searchAreaUserData: no map present or loaded!");
        return 2;
    }

    QString key = QString();
    QString value = QString(); //both of these assigns a null value which is detectably different from the empty value

    if( lua_gettop( L ) ) {
        if( ! lua_isstring( L, 1 ) ) {
            lua_pushfstring(L, R"(searchAreaUserData: bad argument #1 ("key" as string is optional, got %s!))",
                            luaL_typename(L, 1));
            lua_error( L );
            return 1;
        }
        else {
            key = QString::fromUtf8( lua_tostring( L, 1 ) );
        }

        if( lua_gettop( L ) > 1 ) {
            if( ! lua_isstring( L, 2 ) ) {
                lua_pushfstring(L, R"(searchAreaUserData: bad argument #2 ("value" as string is optional, got %s!))",
                                luaL_typename(L, 2));
                lua_error( L );
                return 1;
            }
            else {
                value = QString::fromUtf8( lua_tostring( L, 2 ) );
            }
        }
    }

    lua_newtable(L);

    QMapIterator<int, TArea *> itArea( host.mpMap->mpRoomDB->getAreaMap() );
    // For best performance do the three different types of action in three
    // different branches each with a loop - rather than choosing a branch
    // within a loop for each room

    lua_newtable( L );
    if( key.isNull() ) { // Find all keys everywhere
        QSet<QString> keysSet;
        while( itArea.hasNext() ) {
            itArea.next();
            keysSet.unite( itArea.value()->mUserData.keys().toSet() );
        }

        QStringList keys = keysSet.toList();
        if( keys.size() > 1 ) {
            std::sort( keys.begin(), keys.end() );
        }

        for( unsigned int i=0, total = keys.size(); i<total; ++i ) {
            lua_pushnumber( L, i+1 );
            lua_pushstring( L, keys.at(i).toUtf8().constData() );
            lua_settable( L, -3 );
        }
    }
    else if( value.isNull() ) { // Find all values for a particular key in every room
        QSet<QString> valuesSet; // Use a set as it automatically eliminates duplicates
        while( itArea.hasNext() ) {
            itArea.next();
            QString areaValueForKey = itArea.value()->mUserData.value( key, QString() );
            // If the key is NOT present, will return second argument which is a
            // null QString which is NOT the same as an empty QString.
            if( ! areaValueForKey.isNull() ) {
                valuesSet.insert( areaValueForKey );
            }
        }

        QStringList values = valuesSet.toList();
        if( values.size() > 1 ) {
            std::sort( values.begin(), values.end() );
        }

        for( unsigned int i=0, total = values.size(); i<total; ++i ) {
            lua_pushnumber( L, i+1 );
            lua_pushstring( L, values.at(i).toUtf8().constData() );
            lua_settable( L, -3 );
        }
    }
    else {
        QSet<int> areaIdsSet;
        while( itArea.hasNext() ) { // Find all areas with a particular key AND value
            itArea.next();

            QString areaDataValue = itArea.value()->mUserData.value( key, QString() );
            if( ( ! areaDataValue.isNull() )
            && ( ! value.compare( areaDataValue, Qt::CaseSensitive ) ) ) {

                areaIdsSet.insert( itArea.key() );
            }
        }

        QList<int> areaIds = areaIdsSet.toList();
        if( areaIds.size() > 1 ) {
            std::sort( areaIds.begin(), areaIds.end() );
        }

        for( unsigned int i=0, total = areaIds.size(); i<total; ++i ) {
            lua_pushnumber( L, i+1 );
            lua_pushnumber( L, areaIds.at(i) );
            lua_settable( L, -3 );
        }
    }

    return 1;
}

int TLuaInterpreter::getAreaTable( lua_State *L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getAreaTable: no map present or loaded!");
        return 2;
    }

    QMapIterator<int, QString> it( host.mpMap->mpRoomDB->getAreaNamesMap() );
    lua_newtable(L);
    while( it.hasNext() ) {
        it.next();
        int areaId = it.key();
        QString name = it.value();
        lua_pushstring( L, name.toUtf8().constData() );
        lua_pushnumber( L, areaId );
        lua_settable(L, -3);
    }
    return 1;
}

int TLuaInterpreter::getAreaTableSwap( lua_State *L )
{
    Host& host = getHostFromLua(L);
     if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getAreaTableSwap: no map present or loaded!");
        return 2;
    }

    QMapIterator<int, QString> it( host.mpMap->mpRoomDB->getAreaNamesMap() );
    lua_newtable(L);
    while( it.hasNext() ) {
        it.next();
        int areaId = it.key();
        QString name = it.value();
        lua_pushnumber( L, areaId );
        lua_pushstring( L, name.toUtf8().constData() );
        lua_settable(L, -3);
    }
    return 1;
}

int TLuaInterpreter::getAreaRooms( lua_State *L )
{
    int area;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getAreaRooms: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tonumber( L, 1 );
    }
    Host& host = getHostFromLua(L);
    TArea * pA = host.mpMap->mpRoomDB->getArea( area );
    if( !pA )
    {
        lua_pushnil(L);
        return 1;
    }
    lua_newtable(L);
    QSetIterator<int> itAreaRoom( pA->getAreaRooms() );
    int i = -1;
    while( itAreaRoom.hasNext() )
    {
        lua_pushnumber( L, ++i );
        // We should have started at 1 but past code had incorrectly started
        // with a zero index and we must maintain compatibilty with code written
        // for that
        lua_pushnumber( L, itAreaRoom.next() );
        lua_settable(L, -3);
    }
    return 1;
}

int TLuaInterpreter::getRooms( lua_State *L )
{
    Host& host = getHostFromLua(L);
    lua_newtable(L);
    QHashIterator<int,TRoom*> it(host.mpMap->mpRoomDB->getRoomMap());
    while( it.hasNext() )
    {
        it.next();
        lua_pushnumber( L, it.key() );
        lua_pushstring( L, it.value()->name.toLatin1().data() );
        lua_settable(L, -3);
    }
    return 1;
}

// Revised to take an optional second argument of a boolean to indicate whether
// to return just the list of rooms in the area which have exits out of the area
// (false) or nested tables of details (true). The latter case uses the "from"
// room numbers as keys for the outer table, the value is an inner table with
// the exit direction as key in the form of a text entry of either the text of
// the special exit or (translatable) standard names for normal exits, the value
// is the "to" room number.  In the event of an isolated area an empty table is
// returned.
int TLuaInterpreter::getAreaExits( lua_State *L )
{
    int area = 0;
    int n = lua_gettop( L );
    bool isFullDataRequired = false;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getAreaExits: bad argument #1 type (area id as number expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error( L );
    }
    else {
        area = lua_tonumber( L, 1 );
    }

    if( n > 1 ) {
        if( ! lua_isboolean( L, 2 ) ) {
            lua_pushfstring( L, "getAreaExits: bad argument #2 type (full data wanted as boolean is optional, got %s!)",
                             luaL_typename(L, 2));
            lua_error( L );
            return 1;
        }
        else {
            isFullDataRequired = lua_toboolean( L, 2 );
        }
    }

    Host& host = getHostFromLua(L);
    TArea * pA = host.mpMap->mpRoomDB->getArea( area );
    if( !pA ) {
        lua_pushnil(L);
        lua_pushfstring(L, "getAreaExits: bad argument #1 value (number %d is not a valid area id).",
                        area);
        return 2;
    }

    lua_newtable(L);
    if( n < 2 || (n > 1 && ! isFullDataRequired ) ) {
        // Replicate original implimentation
        QList<int> areaExits = pA->getAreaExitRoomIds();
        if( areaExits.size() > 1 ) {
            std::sort(areaExits.begin(),areaExits.end());
        }
        for( int i=0; i<areaExits.size(); i++ ) {
            lua_pushnumber( L, i+1 ); // Lua lists/arrays begin at 1 not 0!
            lua_pushnumber( L, areaExits.at(i) );
            lua_settable(L, -3);
        }
    }
    else {
        QMultiMap<int, QPair<QString, int> > areaExits = pA->getAreaExitRoomData();
        QList<int> fromRooms = areaExits.uniqueKeys();
        for(int fromRoom : fromRooms) {
            lua_pushnumber( L, fromRoom );
            lua_newtable(L);
            QList<QPair<QString, int> > toRoomsData = areaExits.values(fromRoom);
            for(const auto & j : toRoomsData) {
                lua_pushstring( L, j.first.toUtf8().constData() );
                lua_pushnumber( L, j.second );
                lua_settable(L, -3);
            }
            lua_settable(L, -3);
        }
    }
    return 1;
}

// Now audits the whole map
int TLuaInterpreter::auditAreas( lua_State * L )
{
    Host& host = getHostFromLua(L);
    host.mpMap->audit();
    return 0;
}

int TLuaInterpreter::getRoomWeight( lua_State *L )
{
    Host& host = getHostFromLua(L);
    int roomId;
    if( lua_gettop( L ) > 0 )
    {
        if( ! lua_isnumber( L, 1 ) )
        {
            lua_pushstring( L, "getRoomWeight: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            roomId = lua_tonumber( L, 1 );
        }
    }
    else
    {
        roomId = host.mpMap->mRoomIdHash.value( host.getName() );
    }

    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( pR )
    {
        lua_pushnumber( L, pR->getWeight() );
        return 1;
    }
    else
    {
        return 0;
    }


}

int TLuaInterpreter::gotoRoom( lua_State *L )
{
    int targetRoomId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "gotoRoom: bad argument #1 type (target room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        targetRoomId = lua_tonumber( L, 1 );
    }

    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "gotoRoom: no map present or loaded!");
        return 2;
    }
    else if( ! host.mpMap->mpRoomDB->getRoom( targetRoomId ) ) {
        lua_pushnil( L );
        lua_pushfstring(L, "gotoRoom: bad argument #1 value (number %d is not a valid target room id).",
                        targetRoomId);
        return 2;
    }

    if( host.mpMap->gotoRoom( targetRoomId ) ) {
        host.startSpeedWalk();
        lua_pushboolean( L, true );
        return 1;
    }
    else {
        int totalWeight = host.assemblePath(); // Needed if unsucessful to clear lua speedwalk tables
        Q_UNUSED(totalWeight);
        lua_pushboolean( L, false );
        lua_pushfstring(L, "gotoRoom: no path found from current room to room with id %d!",
                        targetRoomId);
        return 2;
    }
}

int TLuaInterpreter::getPath( lua_State *L )
{
    int originRoomId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getPath: bad argument #1 type (starting room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        originRoomId = lua_tonumber( L, 1 );
    }

    int targetRoomId;
    if( ! lua_isnumber( L, 2 ) ) {
        lua_pushfstring(L, "getPath: bad argument #2 type (target room id as number expected, got %s!)",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        targetRoomId = lua_tonumber( L, 2 );
    }

    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getPath: no map present or loaded!");
        return 2;
    }
    else if( ! host.mpMap->mpRoomDB->getRoom( originRoomId ) ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getPath: bad argument #1 value (number %d is not a valid source room id).",
                        originRoomId);
        return 2;
    }
    else if( ! host.mpMap->mpRoomDB->getRoom( targetRoomId ) ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getPath: bad argument #2 value (number %d is not a valid target room id).",
                        targetRoomId);
        return 2;
    }

    bool ret = host.mpMap->gotoRoom( originRoomId, targetRoomId );
    int totalWeight = host.assemblePath(); // Needed even if unsucessful, to clear lua tables then
    if( ret )
    {
        lua_pushboolean( L, true );
        lua_pushnumber( L, totalWeight );
        return 2;
    }
    else {
        lua_pushboolean( L, false );
        lua_pushnumber( L, -1 );
        lua_pushfstring(L, "getPath: no path found from room, with Id %d to room %d!",
                        originRoomId, targetRoomId);
        return 3;
    }
}

int TLuaInterpreter::deselect( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString windowName; // only for case with an argument, will be null if not assigned to which is different from being empty
    if( lua_gettop( L ) > 0 ) {
        if( ! lua_isstring( L, 1 ) ) {
            lua_pushfstring(L, R"(deselect: bad argument #1 type (window name as string, is optional {defaultsto "main" if omitted}, got %s!))",
                            luaL_typename(L, 1));
            lua_error( L );
            return 1;
        }
        else {
            // We cannot yet properly handle non-ASCII windows names but we will eventually!
            windowName = QString::fromUtf8( lua_tostring( L, 1 ) );
            if (windowName == QLatin1String("main")) {
                // This matches the identifier for the main window - so make it
                // appear so by emptying it...
                windowName.clear();
            }
        }
    }

    if( windowName.isEmpty() ) {
        host.mpConsole->deselect();
        lua_pushboolean( L, true );
    }
    else {
        lua_pushboolean( L, mudlet::self()->deselect( &host, windowName ) );
    }

    return 1;
}

int TLuaInterpreter::resetFormat( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString windowName; // only for case with an argument, will be null if not assigned to which is different from being empty
    if( lua_gettop( L ) > 0 ) {
        if( ! lua_isstring( L, 1 ) ) {
            lua_pushfstring(L, R"(resetFormat: bad argument #1 type (window name as string, is optional {defaultsto "main" if omitted}, got %s!))",
                            luaL_typename(L, 1));
            lua_error( L );
            return 1;
        }
        else {
            // We cannot yet properly handle non-ASCII windows names but we will eventually!
            windowName = QString::fromUtf8( lua_tostring( L, 1 ) );
            if (windowName == QLatin1String("main")) {
                // This matches the identifier for the main window - so make it
                // appear so by emptying it...
                windowName.clear();
            }
        }
    }

    if( windowName.isEmpty() ) {
        host.mpConsole->reset();
        lua_pushboolean( L, true );
    }
    else {
        lua_pushboolean( L, mudlet::self()->resetFormat( &host, windowName ) );
    }

    return 1;
}

int TLuaInterpreter::hasFocus( lua_State *L )
{
    Host& host = getHostFromLua(L);
    lua_pushboolean( L, host.mpConsole->hasFocus() );//FIXME
    return 1;
}

int TLuaInterpreter::echoUserWindow( lua_State *L )
{
    string luaWindowName="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "echoUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaWindowName = lua_tostring( L, 1 );
    }

    string luaSendText="";
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "echoUserWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    QString text(luaSendText.c_str());
    QString windowName(luaWindowName.c_str());
    mudlet::self()->echoWindow( &host, windowName, text );
    return 0;
}

int TLuaInterpreter::setAppStyleSheet( lua_State *L )
{
    if( lua_isstring( L, 1 ) )
    {
        string stylesheet = lua_tostring( L, 1 );
        qApp->setStyleSheet( stylesheet.c_str() );
    }

    return 0;
}

// this was an internal only function used by the package system, but it was
// inactive and has been removed
int TLuaInterpreter::showUnzipProgress( lua_State * L )
{
    lua_pushnil( L );
    lua_pushstring(L, "showUnzipProgress: removed command, this function is now inactive and does nothing!");
    return 2;
}

int TLuaInterpreter::playSoundFile( lua_State * L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "playSoundFile: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }

    QString sound = luaSendText.c_str();
    if( QDir::homePath().contains('\\') )
    {
        sound.replace('/', R"(\)");
    }
    else
    {
        sound.replace('\\', "/");
    }
    /* if no volume provided, substitute 100 (maximum) */
    mudlet::self()->playSound( sound, lua_isnumber( L, 2) ? lua_tointeger(L, 2) : 100 );
    return 0;
}

int TLuaInterpreter::stopSounds( lua_State *L )
{
    //doesn't take an argument
    mudlet::self()->stopSounds();
    return 0;
}

int TLuaInterpreter::moveCursorEnd( lua_State *L )
{
    string luaWindowName="";
    if( lua_isstring( L, 1 ) )
    {
        luaWindowName = lua_tostring( L, 1 );
    }
    else
        luaWindowName = "main";

    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    if (luaWindowName == "main") {
        host.mpConsole->moveCursorEnd();
    } else {
        mudlet::self()->moveCursorEnd(&host, windowName);
    }
    return 0;
}

int TLuaInterpreter::getLastLineNumber( lua_State *L )
{
    string luaWindowName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "getLastLineNumber: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaWindowName = lua_tostring( L, 1 );
    }

    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    int number;
    if( luaWindowName == "main" ) {
        number = host.mpConsole->getLastLineNumber();
    } else {
        number = mudlet::self()->getLastLineNumber( &host, windowName );
    }
    lua_pushnumber( L, number );
    return 1;
}



int TLuaInterpreter::getMudletHomeDir( lua_State * L )
{
    QString home = QDir::homePath();
    home.append( "/.config/mudlet/profiles/" );
    Host& host = getHostFromLua(L);
    QString name = host.getName();
    home.append( name );
    QString erg = QDir::toNativeSeparators( home );
    lua_pushstring( L, erg.toLatin1().data() );
    return 1;
}

// returns search paths for LuaGlobal itself to look at when loading other modules
// follows the principle of closest paths to the binary first, furthest away last
int TLuaInterpreter::getMudletLuaDefaultPaths( lua_State * L )
{
    int index = 1;
    lua_newtable( L );
#if defined(Q_OS_MAC)
    lua_createtable(L,3,0);
#else
    lua_createtable(L,2,0);
#endif
    // add filepath relative to the binary itself (one usecase is AppImage on Linux)
    QString nativePath = QDir::toNativeSeparators( QCoreApplication::applicationDirPath() + "/mudlet-lua/lua/" );
    lua_pushstring( L, nativePath.toUtf8().constData() );
    lua_rawseti(L, -2, index++);
#if defined(Q_OS_MAC)
    // add macOS lua path relative to the binary itself, which is part of the Mudlet.app package
    nativePath = QDir::toNativeSeparators( QCoreApplication::applicationDirPath() + "/../Resources/mudlet-lua/lua/" );
    lua_pushstring( L, nativePath.toUtf8().constData() );
    lua_rawseti(L, -2, index++);
#endif
    // add the default search path as specified by build file
    nativePath = QDir::toNativeSeparators( LUA_DEFAULT_PATH "/" );
    lua_pushstring( L, nativePath.toUtf8().constData() );
    lua_rawseti(L, -2, index++);
    return 1;
}

int TLuaInterpreter::disconnect( lua_State * L )
{
    Host& host = getHostFromLua(L);
    host.mTelnet.disconnect();
    return 0;
}

int TLuaInterpreter::reconnect( lua_State * L )
{
    Host& host = getHostFromLua(L);
    host.mTelnet.connectIt( host.getUrl(), host.getPort() );
    return 0;
}

int TLuaInterpreter::setTriggerStayOpen( lua_State *L )
{
    string luaWindowName;
    double b;
    int s = 1;
    if( lua_gettop( L ) > 1 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "setTriggerStayOpen: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            luaWindowName = lua_tostring( L, s );
            s++;
        }
    }
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setTriggerStayOpen: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        b = lua_tonumber( L, s );
    }

    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    host.getTriggerUnit()->setTriggerStayOpen( QString( luaWindowName.c_str() ), static_cast<int>(b) );
    return 0;
}

int TLuaInterpreter::setLink( lua_State * L )
{
    string luaWindowName;
    string linkText;
    string linkFunction;
    string linkHint;
    int s = 1;
    if( lua_gettop( L ) > 2 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "setLink: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            luaWindowName = lua_tostring( L, s );
            s++;
        }
    }

    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "setLink: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        linkFunction = lua_tostring( L, s );
        s++;
    }
    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "setLink: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        linkHint = lua_tostring( L, s );
        s++;
    }


    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    QString _linkText = "";//QString(linkText.c_str());
    QStringList _linkFunction;
    _linkFunction <<  QString(linkFunction.c_str());
    QStringList _linkHint;
    _linkHint << QString(linkHint.c_str());
    if( windowName.size() > 0 ) {
        mudlet::self()->setLink( &host, windowName, _linkText, _linkFunction, _linkHint );
    } else {
        host.mpConsole->setLink( _linkText, _linkFunction, _linkHint );
    }
    return 0;
}

int TLuaInterpreter::setPopup( lua_State *L )
{
    string a1 = "";
    string a2;
    QStringList _hintList;
    QStringList _commandList;
    int s = 1;
    int n = lua_gettop( L );
    // console name is an optional first argument
    if( n > 4 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "setPopup: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "setPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        a2 = lua_tostring( L, s );
        s++;
    }

    if( ! lua_istable( L, s ) )
    {
        lua_pushstring( L, "setPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, s ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString cmd = lua_tostring( L, -1 );
                _commandList << cmd;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
        s++;
    }
    if( ! lua_istable( L, s ) )
    {
        lua_pushstring( L, "setPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, s ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString hint = lua_tostring( L, -1 );
                _hintList << hint;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
        s++;
    }
/* N/U:
    if( n >= s )
    {
        customFormat = lua_toboolean( L, s );
    }
*/
    Host& host = getHostFromLua(L);
    QString txt = a2.c_str();
    QString name = a1.c_str();
    if( _commandList.size() != _hintList.size() )
    {
        lua_pushstring( L, "Error: command list size and hint list size do not match cannot create popup" );
        lua_error( L );
        return 1;
    }

    if( a1 == "" )
    {
        host.mpConsole->setLink( txt, _commandList, _hintList );
    }
    else
    {
        mudlet::self()->setLink( &host, name, txt, _commandList, _hintList );
    }

    return 0;
}

int TLuaInterpreter::setBold( lua_State * L )
{
    Host& host = getHostFromLua(L);

    QString windowName;
    int s = 0;
    if( lua_gettop( L ) > 1 )
    { // Have more than one argument so first must be a console name
        if( ! lua_isstring( L, ++s ) )
        {
            lua_pushfstring(L, "setBold: bad argument #%d type (more than one argument supplied and first,\n"
                               "window name, as string expected {omission selects \"main\" console window}, got %s!",
                            s, luaL_typename(L, s));
            lua_error( L );
            return 1;
        }
        else
        {
            windowName = QString::fromUtf8( lua_tostring( L, s ) );
        }
    }

    bool isAtttributeEnabled;
    if( ! lua_isboolean( L, ++s ) )
    {
        lua_pushfstring(L, "setBold: bad argument #%d type (enable bold attribute as boolean expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        isAtttributeEnabled = lua_toboolean( L, s );
    }

    if( windowName.isEmpty() || windowName.compare( QStringLiteral( "main" ), Qt::CaseSensitive ) )
    {
        host.mpConsole->setBold( isAtttributeEnabled );
    }
    else
    {
        mudlet::self()->setBold( &host, windowName, isAtttributeEnabled );
    }
    return 0;
}

int TLuaInterpreter::setItalics( lua_State * L )
{
    Host& host = getHostFromLua(L);

    QString windowName;
    int s = 0;
    if( lua_gettop( L ) > 1 )
    { // Have more than one argument so first must be a console name
        if( ! lua_isstring( L, ++s ) )
        {
            lua_pushfstring(L, "setItalics: bad argument #%d type (more than one argument supplied and first,\n"
                               "window name, as string expected {omission selects \"main\" console window}, got %s!",
                            s, luaL_typename(L, s));
            lua_error( L );
            return 1;
        }
        else
        {
            windowName = QString::fromUtf8( lua_tostring( L, s ) );
        }
    }

    bool isAtttributeEnabled;
    if( ! lua_isboolean( L, ++s ) )
    {
        lua_pushfstring(L, "setItalics: bad argument #%d type (enable italic attribute as boolean expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        isAtttributeEnabled = lua_toboolean( L, s );
    }

    if( windowName.isEmpty() || windowName.compare( QStringLiteral( "main" ), Qt::CaseSensitive ) )
    {
        host.mpConsole->setItalics( isAtttributeEnabled );
    }
    else
    {
        mudlet::self()->setItalics( &host, windowName, isAtttributeEnabled );
    }
    return 0;
}

int TLuaInterpreter::setUnderline( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString windowName;
    int s = 0;
    if( lua_gettop( L ) > 1 )
    { // Have more than one argument so first must be a console name
        if( ! lua_isstring( L, ++s ) )
        {
            lua_pushfstring(L, "setUnderline: bad argument #%d type (more than one argument supplied and first,\n"
                               "window name, as string expected {omission selects \"main\" console window}, got %s!",
                            s, luaL_typename(L, s));
            lua_error( L );
            return 1;
        }
        else
        {
            windowName = QString::fromUtf8( lua_tostring( L, s ) );
        }
    }

    bool isAtttributeEnabled;
    if( ! lua_isboolean( L, ++s ) )
    {
        lua_pushfstring(L, "setUnderline: bad argument #%d type (enable underline attribute as boolean expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        isAtttributeEnabled = lua_toboolean( L, s );
    }

    if( windowName.isEmpty() || windowName.compare( QStringLiteral( "main" ), Qt::CaseSensitive ) )
    {
        host.mpConsole->setUnderline( isAtttributeEnabled );
    }
    else
    {
        mudlet::self()->setUnderline( &host, windowName, isAtttributeEnabled );
    }
    return 0;
}

int TLuaInterpreter::setStrikeOut( lua_State * L )
{
    Host& host = getHostFromLua(L);

    QString windowName;
    int s = 0;
    if( lua_gettop( L ) > 1 )
    { // Have more than one argument so first must be a console name
        if( ! lua_isstring( L, ++s ) )
        {
            lua_pushfstring(L, "setStrikeOut: bad argument #%d type (more than one argument supplied and first,\n"
                               "window name, as string expected {omission selects \"main\" console window}, got %s!)",
                            s, luaL_typename(L, s));
            lua_error( L );
            return 1;
        }
        else
        {
            windowName = QString::fromUtf8( lua_tostring( L, s ) );
        }
    }

    bool isAtttributeEnabled;
    if( ! lua_isboolean( L, ++s ) )
    {
        lua_pushfstring(L, "setStrikeOut: bad argument #%d type (enable strikeout attribute as boolean expected, got %s!)",
                        s, luaL_typename(L, s));
        lua_error( L );
        return 1;
    }
    else
    {
        isAtttributeEnabled = lua_toboolean( L, s );
    }

    if( windowName.isEmpty() || windowName.compare( QStringLiteral( "main" ), Qt::CaseSensitive ) )
    {
        host.mpConsole->setStrikeOut( isAtttributeEnabled );
    }
    else
    {
        mudlet::self()->setStrikeOut( &host, windowName, isAtttributeEnabled );
    }
    return 0;
}

int TLuaInterpreter::debug( lua_State *L )
{
    Host& host = getHostFromLua(L);
    int nbargs = lua_gettop(L);
    QString luaDebugText="";
    for (int i=0; i<nbargs; i++)
    {
        luaDebugText += (nbargs > 1 ? " (" + QString::number(i+1) + ") " : " ") + lua_tostring( L, i+1 );
        auto green = QColor(Qt::green);
        auto blue = QColor(Qt::blue);
        auto black = QColor(Qt::black);
        QString s1 = QString("[DEBUG:]");
        QString s2 = QString("%1\n").arg(luaDebugText);
        if( host.mpEditorDialog )
        {
            host.mpEditorDialog->mpErrorConsole->printDebug(blue, black, s1);
            host.mpEditorDialog->mpErrorConsole->printDebug(green, black, s2);
        }
    }
    return 0;
}

int TLuaInterpreter::hideToolBar( lua_State *L )
{
    string luaWindowName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "hideToolBar: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaWindowName = lua_tostring( L, 1 );
    }

    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    host.getActionUnit()->hideToolBar( windowName );
    return 0;
}

int TLuaInterpreter::showToolBar( lua_State *L )
{
    string luaWindowName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "showToolBar: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaWindowName = lua_tostring( L, 1 );
    }

    Host& host = getHostFromLua(L);
    QString windowName(luaWindowName.c_str());
    host.getActionUnit()->showToolBar( windowName );
    return 0;
}

int TLuaInterpreter::sendATCP( lua_State *L )
{
    string msg;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "sendATCP: what do you want to send?" );
        lua_error( L );
        return 1;
    }
    else
    {
        msg = lua_tostring( L, 1 );
    }

    string what;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "sendATCP: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        what = lua_tostring( L, 2 );
    }
    string _h;
    _h += TN_IAC;
    _h += TN_SB;
    _h += static_cast<char>(200);
    _h += msg;
    if (what != "") {
      _h += " ";
      _h += what;
    }
    _h += TN_IAC;
    _h += TN_SE;

    Host& host = getHostFromLua(L);
    host.mTelnet.socketOutRaw( _h );
    return 0;
}

int TLuaInterpreter::sendGMCP( lua_State *L )
{
    string msg;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "sendGMCP: what do you want to send?" );
        lua_error( L );
        return 1;
    }
    else
    {
        msg = lua_tostring( L, 1 );
    }

    string what;
    if( lua_isstring( L, 2 ) )
    {
        what = lua_tostring( L, 2 );
    }
    string _h;
    _h += TN_IAC;
    _h += TN_SB;
    _h += GMCP;
    _h += msg;
    if( what != "" )
    {
        _h += " ";
        _h += what;
    }
    _h += TN_IAC;
    _h += TN_SE;

    Host& host = getHostFromLua(L);
    host.mTelnet.socketOutRaw( _h );
    return 0;
}

#define    MSDP_VAR              1
#define    MSDP_VAL              2
#define    MSDP_TABLE_OPEN      3
#define    MSDP_TABLE_CLOSE      4
#define    MSDP_ARRAY_OPEN      5
#define    MSDP_ARRAY_CLOSE      6
#define    IAC 255
#define    SB 250
#define    SE 240
int TLuaInterpreter::sendMSDP( lua_State *L )
{
    string variable;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "sendMSDP: what do you want to send?" );
        lua_error( L );
        return 1;
    }
    else
    {
        variable = lua_tostring( L, 1 );
    }

    string _h;
    _h += TN_IAC;
    _h += TN_SB;
    _h += MSDP;
    _h += MSDP_VAR;
    _h += variable;

    int n = lua_gettop( L );
    for( int i=2; i<=n; i++)
    {
        _h += MSDP_VAL;
        _h += lua_tostring( L, i );
    }

    _h += TN_IAC;
    _h += TN_SE;

    Host& host = getHostFromLua(L);
    host.mTelnet.socketOutRaw( _h );
    return 0;
}

int TLuaInterpreter::sendTelnetChannel102( lua_State *L )
{
    string msg;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "sendTelnetChannel102: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        msg = lua_tostring( L, 1 );
    }
    string _h;
    _h += TN_IAC;
    _h += TN_SB;
    _h += 102;
    _h += msg;
    _h += TN_IAC;
    _h += TN_SE;

    Host& host = getHostFromLua(L);
    host.mTelnet.socketOutRaw( _h );
    return 0;
}

int TLuaInterpreter::getButtonState( lua_State *L )
{
    Host& host = getHostFromLua(L);
    int state;
    state = host.mpConsole->getButtonState();
    lua_pushnumber( L, state );
    return 1;
}

int TLuaInterpreter::getNetworkLatency( lua_State *L )
{
    Host& host = getHostFromLua(L);
    double number;
    number = host.mTelnet.networkLatency;
    lua_pushnumber( L, number );
    return 1;
}

int TLuaInterpreter::getMainConsoleWidth( lua_State * L )
{
    Host& host = getHostFromLua(L);
    int fw = QFontMetrics(host.mDisplayFont).width("W");
    fw *= host.mWrapAt + 1;
    lua_pushnumber( L, fw );
    return 1;
}

int TLuaInterpreter::getMainWindowSize( lua_State *L )
{
    Host& host = getHostFromLua(L);
    QSize mainWindowSize = host.mpConsole->getMainWindowSize();

    lua_pushnumber( L, mainWindowSize.width() );
    lua_pushnumber( L, mainWindowSize.height() );

    return 2;
}

int TLuaInterpreter::getMousePosition( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QPoint pos = host.mpConsole->mapFromGlobal(QCursor::pos());

    lua_pushnumber( L, pos.x() );
    lua_pushnumber( L, pos.y() );

    return 2;
}

// tempTimer(int session, float seconds, string function to call, string name) // one shot timer.
int TLuaInterpreter::tempTimer( lua_State *L )
{
    double luaTimeout;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "tempTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTimeout = lua_tonumber( L, 1 );
    }

    string luaFunction;
    if( lua_isfunction( L, 2 ) )
    {
        Host& host = getHostFromLua(L);
        TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
        QString _fun;
        int timerID = pLuaInterpreter->startTempTimer( luaTimeout, _fun );
        TTimer * pT = host.getTimerUnit()->getTimer( timerID );
        pT->mRegisteredAnonymousLuaFunction = true;
        lua_pushlightuserdata( L, pT );
        lua_pushvalue( L, 2 );
        lua_settable( L, LUA_REGISTRYINDEX );
        lua_pushnumber( L, timerID );
        return 1;
    }
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 2 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _fun = luaFunction.c_str();
    int timerID = pLuaInterpreter->startTempTimer( luaTimeout, _fun );
    lua_pushnumber( L, timerID );
    return 1;
}

int TLuaInterpreter::tempExactMatchTrigger( lua_State *L )
{
    string luaRegex;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempExactMatchTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRegex = lua_tostring( L, 1 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempExactMatchTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 2 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _reg = luaRegex.c_str();
    QString _fun = luaFunction.c_str();
    int timerID = pLuaInterpreter->startTempExactMatchTrigger( _reg, _fun );
    lua_pushnumber( L, timerID );
    return 1;
}

int TLuaInterpreter::tempBeginOfLineTrigger( lua_State *L )
{
    string luaRegex;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempBeginOfLineTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRegex = lua_tostring( L, 1 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempBeginOfLineTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 2 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _reg = luaRegex.c_str();
    QString _fun = luaFunction.c_str();
    int timerID = pLuaInterpreter->startTempBeginOfLineTrigger( _reg, _fun );
    lua_pushnumber( L, timerID );
    return 1;
}


// tempTrigger( string regex, string function to call ) // one shot timer.
int TLuaInterpreter::tempTrigger( lua_State *L )
{
    string luaRegex;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRegex = lua_tostring( L, 1 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 2 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _reg = luaRegex.c_str();
    QString _fun = luaFunction.c_str();
    int timerID = pLuaInterpreter->startTempTrigger( _reg, _fun );
    lua_pushnumber( L, timerID );
    //lua_pushstring( L, _reg.toLatin1().data());
    return 1;
}


// temporary color trigger. args: ansiFGColorCode, ansiBgColorCode, luaCode
int TLuaInterpreter::tempColorTrigger( lua_State *L )
{
    int luaFrom;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "tempColorTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, 1 );
    }
    int luaTo;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "tempColorTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTo = lua_tointeger( L, 2 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 3 ) )
    {
        lua_pushstring( L, "tempColorTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 3 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _fun = luaFunction.c_str();
    int timerID = pLuaInterpreter->startTempColorTrigger( luaFrom, luaTo, _fun );
    lua_pushnumber( L, timerID );
    return 1;
}


// triggerID = tempLineTrigger( from, howmany, func )
int TLuaInterpreter::tempLineTrigger( lua_State *L )
{
    int luaFrom;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "tempLineTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFrom = lua_tointeger( L, 1 );
    }
    int luaTo;
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "tempLineTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTo = lua_tointeger( L, 2 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 3 ) )
    {
        lua_pushstring( L, "tempLineTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 3 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _fun = luaFunction.c_str();
    int timerID = pLuaInterpreter->startTempLineTrigger( luaFrom, luaTo, _fun );
    lua_pushnumber( L, timerID );
    return 1;
}

// tempTrigger( string name, string regex, string function to call, multiline, fg, bg, filter, match all(perlSlashG), highlight,
// play sound, fire length(mStayOpen), lineDelta).
int TLuaInterpreter::tempComplexRegexTrigger( lua_State *L )
{
    bool multiLine, matchAll, highlight, playSound, filter, colorTrigger;
    int fireLength, lineDelta;
    QString fgColor, bgColor;
    QStringList regexList;
    QString script, parent, pattern, soundFile;
    QColor hlFgColor, hlBgColor;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        parent = lua_tostring( L, 1 );
    }

    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        pattern = lua_tostring( L, 2 );
    }
    if( ! lua_isstring( L, 3 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        script = lua_tostring( L, 3 );
    }
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        multiLine = lua_tonumber( L, 4 );
    }
    if( lua_isnumber( L, 5 ) )
    {
        colorTrigger = false;
    }
    else
    {
        colorTrigger = true;
        fgColor = lua_tostring( L, 5 );
    }
    if( lua_isnumber( L, 6 ) )
    {
        colorTrigger = false;
    }
    else
    {
        bgColor = lua_tostring( L, 6 );
    }

    if( ! lua_isnumber( L, 7 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        filter = lua_tonumber( L, 7 );
    }
    if( ! lua_isnumber( L, 8 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        matchAll = lua_tonumber( L, 8 );
    }
    if(lua_isnumber( L, 9 ) )
    {
        highlight = false;
    }
    else
    {
        highlight = true;
        hlFgColor.setNamedColor(lua_tostring( L, 9 ));
    }
    if(lua_isnumber( L, 9 ) )
    {
        highlight = false;
    }
    else
    {
        highlight = true;
        hlBgColor.setNamedColor(lua_tostring( L, 9 ));
    }
    //lineDelta).
    if(lua_isnumber( L, 10 ) )
    {
        playSound = false;
    }
    else
    {
        playSound = true;
        soundFile = lua_tostring( L, 10 );
    }
    if( ! lua_isnumber( L, 11 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fireLength = lua_tonumber( L, 11 );
    }
    if( ! lua_isnumber( L, 12 ) )
    {
        lua_pushstring( L, "tempComplexRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lineDelta = lua_tonumber( L, 12 );
    }

    Host& host = getHostFromLua(L);
    TTrigger * pT;
    QList<int> propertyList;

    TTrigger * pP = host.getTriggerUnit()->findTrigger( parent );

    if( !pP )
    {
        regexList << pattern;
        if (colorTrigger)
            propertyList << REGEX_COLOR_PATTERN;
        else
            propertyList << REGEX_PERL;
    }
    else{
        regexList = pP->getRegexCodeList();
        propertyList = pP->getRegexCodePropertyList();
    }

    pT = new TTrigger( "a", regexList, propertyList, multiLine, &host );
    //pT->setRegexCodeList( regexList, propertyList );
    pT->setIsFolder( 0 );
    pT->setIsActive( true );
    pT->setIsTempTrigger( true );
    pT->registerTrigger();
    pT->setScript( script );
    pT->setName( pattern );
    //pT->setIsMultiline( multiLine );
    pT->mPerlSlashGOption = matchAll;//match all
    pT->mFilterTrigger = filter;
    pT->setConditionLineDelta( lineDelta );//line delta
    pT->mStayOpen = fireLength;//fire length
    pT->mSoundTrigger = playSound;//sound trigger, need to set sound file if true
    if (playSound){
        pT->setSound(soundFile);
    }
    pT->setIsColorizerTrigger(highlight); //highlight
    if (highlight){
        pT->setFgColor( hlFgColor );
        pT->setBgColor( hlBgColor );
    }
    //lua_pushnumber( L, pT->getID() );
    lua_pushstring( L, pattern.toLatin1().data());
    return 1;
}

int TLuaInterpreter::tempButton( lua_State *L){
    //args: parent, name, orientation
    QString toolbar, name;
    QString cmdButtonUp = "";
    QString cmdButtonDown = "";
    QString script = "";
    QStringList nameL;
    nameL << toolbar;
    int orientation;
    if(!lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempButton: wrong first arg" );
        lua_error( L );
        return 1;
    }
    else
    {
        toolbar = lua_tostring( L, 1 );
    }
    if(!lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempButton: wrong second arg" );
        lua_error( L );
        return 1;
    }
    else
    {
        name = lua_tostring( L, 2 );
    }
    if(!lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "tempButton: wrong third arg" );
        lua_error( L );
        return 1;
    }
    else
    {
        orientation = lua_tonumber( L, 3 );
    }

    Host& host = getHostFromLua(L);
    TAction * pP = host.getActionUnit()->findAction( toolbar );
    if (!pP) return 0;
    TAction * pT = host.getActionUnit()->findAction( name );
    if (pT) return 0;
    pT = new TAction( pP, &host );
    pT->setName( name );
    pT->setCommandButtonUp( cmdButtonUp );
    pT->setCommandButtonDown( cmdButtonDown );
    pT->setIsPushDownButton( false );
    pT->mLocation = pP->mLocation;
    pT->mOrientation = orientation;
    pT->setScript( script );
    pT->setIsFolder( false );
    pT->setIsActive( true );



//    pT->setIsPushDownButton( isChecked );
//    pT->mLocation = location;
//    pT->mOrientation = orientation;
//    pT->setIsActive( pT->shouldBeActive() );
//    pT->setButtonColor( color );
//    pT->setButtonRotation( rotation );
//    pT->setButtonColumns( columns );
////      pT->setButtonFlat( flatButton );
//    pT->mUseCustomLayout = useCustomLayout;
//    pT->mPosX = posX;
//    pT->mPosY = posY;
//    pT->mSizeX = sizeX;
//    pT->mSizeY = sizeY;
//    pT->css = mpActionsMainArea->css->toPlainText();


    pT->registerAction();
// N/U:     int childID = pT->getID();
    host.getActionUnit()->updateToolbar();
    return 1;
}

int TLuaInterpreter::tempButtonToolbar( lua_State *L  )
{//args: name, location(0-4), orientation(0/1)
    QString name;
    QString cmdButtonUp = "";
    QString cmdButtonDown = "";
    QString script = "";
    QStringList nameL;
    nameL << name;
    int location, orientation;

    if(!lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempButtonToolbar: wrong first arg" );
        lua_error( L );
        return 1;
    }
    else
    {
        name = lua_tostring( L, 1 );
    }
    if(!lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "tempButtonToolbar: wrong first arg" );
        lua_error( L );
        return 1;
    }
    else
    {
        location = lua_tonumber( L, 2 );
    }
    if(!lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "tempButtonToolbar: wrong first arg" );
        lua_error( L );
        return 1;
    }
    else
    {
        orientation = lua_tonumber( L, 3 );
    }

    if( location > 0 ) location++;
    Host& host = getHostFromLua(L);
    TAction * pT = host.getActionUnit()->findAction( name );
    if (pT) return 0;

        //insert a new root item
    //ROOT_ACTION:

    pT = new TAction( name, &host );
    pT->setCommandButtonUp( cmdButtonUp );
    QStringList nl;
    nl << name;

    pT->setName( name );
    pT->setCommandButtonUp( cmdButtonUp );
    pT->setCommandButtonDown( cmdButtonDown );
    pT->setIsPushDownButton( false );
    pT->mLocation = location;
    pT->mOrientation = orientation;
    pT->setScript( script );
    pT->setIsFolder( true );
    pT->setIsActive( true );
    pT->registerAction();
// N/U:     int childID = pT->getID();
    host.getActionUnit()->updateToolbar();




    return 1;
}

// tempTrigger( string regex, string function to call ) // one shot timer.
int TLuaInterpreter::tempRegexTrigger( lua_State *L )
{
    string luaRegex;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRegex = lua_tostring( L, 1 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 2 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _luaFunction = luaFunction.c_str();
    QString _luaRegex = luaRegex.c_str();
    int timerID = pLuaInterpreter->startTempRegexTrigger( _luaRegex, _luaFunction );
    lua_pushnumber( L, timerID );
    return 1;
}

int TLuaInterpreter::tempAlias( lua_State *L )
{
    string luaRegex;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "tempAlias: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRegex = lua_tostring( L, 1 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "tempAlias: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 2 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _luaFunction = luaFunction.c_str();
    QString _luaRegex = luaRegex.c_str();
    int aliasID = pLuaInterpreter->startTempAlias( _luaRegex, _luaFunction );
    lua_pushnumber( L, aliasID );
    return 1;
}

int TLuaInterpreter::exists( lua_State * L )
{
    string _name;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "exists: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        _name = lua_tostring( L, 1 );
    }
    string _type;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "exists: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        _type = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    int cnt = 0;
    QString type = _type.c_str();
    type = type.toLower();
    QString name = _name.c_str();
    if( type == "timer")
    {
        cnt += host.getTimerUnit()->mLookupTable.count( name );
    }
    else if( type == "trigger")
    {
        cnt += host.getTriggerUnit()->mLookupTable.count( name );
    }
    else if( type == "alias")
    {
        cnt += host.getAliasUnit()->mLookupTable.count( name );
    }
    else if( type == "keybind")
    {
        cnt += host.getKeyUnit()->mLookupTable.count( name );
    }
    lua_pushnumber( L, cnt );
    return 1;
}

int TLuaInterpreter::isActive( lua_State * L )
{
    string _name;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "isActive: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        _name = lua_tostring( L, 1 );
    }
    string _type;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "isActive: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        _type = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    int cnt = 0;
    QString type = _type.c_str();
    type = type.toLower();
    QString name = _name.c_str();
    if( type == "timer")
    {
        QMap<QString, TTimer *>::const_iterator it1 = host.getTimerUnit()->mLookupTable.find( name );
        while( it1 != host.getTimerUnit()->mLookupTable.end() && it1.key() == name )
        {
            if( it1.value()->isActive() )
            {
                cnt++;
            }
            it1++;
        }
    }
    else if( type == "trigger")
    {
        QMap<QString, TTrigger *>::const_iterator it1 = host.getTriggerUnit()->mLookupTable.find( name );
        while( it1 != host.getTriggerUnit()->mLookupTable.end() && it1.key() == name )
        {
            if( it1.value()->isActive() )
            {
                cnt++;
            }
            it1++;
        }
    }
    else if( type == "alias")
    {
        QMap<QString, TAlias *>::const_iterator it1 = host.getAliasUnit()->mLookupTable.find( name );
        while( it1 != host.getAliasUnit()->mLookupTable.end() && it1.key() == name )
        {
            if( it1.value()->isActive() )
            {
                cnt++;
            }
            it1++;
        }
    }
    else if( type == "keybind")
    {
        QMap<QString, TKey *>::const_iterator it1 = host.getKeyUnit()->mLookupTable.find( name );
        while( it1 != host.getKeyUnit()->mLookupTable.end() && it1.key() == name )
        {
            if( it1.value()->isActive() )
            {
                cnt++;
            }
            it1++;
        }
    }
    lua_pushnumber( L, cnt );
    return 1;
}


int TLuaInterpreter::permAlias( lua_State *L )
{
    string luaName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "permAlias: need a name for this alias" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaName = lua_tostring( L, 1 );
    }

    string luaParent;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "permAlias: need a parent alias/group to add this alias to" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaParent = lua_tostring( L, 2 );
    }

    string luaRegex;
    if( ! lua_isstring( L, 3 ) )
    {
        lua_pushstring( L, "permAlias: need the pattern for the alias" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRegex = lua_tostring( L, 3 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 4 ) )
    {
        lua_pushstring( L, "permAlias: need Lua code for this alias" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 4 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _luaName = luaName.c_str();
    QString _luaParent = luaParent.c_str();
    QString _luaFunction = luaFunction.c_str();
    QString _luaRegex = luaRegex.c_str();
    int aliasID = pLuaInterpreter->startPermAlias( _luaName, _luaParent, _luaRegex, _luaFunction );
    lua_pushnumber( L, aliasID );
    return 1;
}

int TLuaInterpreter::permTimer( lua_State * L )
{
    string luaName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "permTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaName = lua_tostring( L, 1 );
    }
    string luaParent;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "permTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaParent = lua_tostring( L, 2 );
    }

    double luaTimeout;
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "permTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTimeout = lua_tonumber( L, 3 );
    }

    string luaFunction;
    if( ! lua_isstring( L, 4 ) )
    {
        lua_pushstring( L, "permTimer: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 4 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _name = luaName.c_str();
    QString _parent = luaParent.c_str();
    QString _fun = luaFunction.c_str();
    int timerID = pLuaInterpreter->startPermTimer( _name, _parent, luaTimeout, _fun );
    lua_pushnumber( L, timerID );
    return 1;
}

int TLuaInterpreter::permSubstringTrigger( lua_State * L )
{
    string name;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "permSubstringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        name = lua_tostring( L, 1 );
    }

    string parent;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "permSubstringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        parent = lua_tostring( L, 2 );
    }
    QStringList _regList;
    if( ! lua_istable( L, 3 ) )
    {
        lua_pushstring( L, "permSubstringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, 3 ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString regex = lua_tostring( L, -1 );
                _regList << regex;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
    }

    string luaFunction;
    if( ! lua_isstring( L, 4 ) )
    {
        lua_pushstring( L, "permSubstringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 4 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _name = name.c_str();
    QString _parent = parent.c_str();
    QString _luaFunction = luaFunction.c_str();
    int ret = pLuaInterpreter->startPermSubstringTrigger( _name,
                                                          _parent,
                                                          _regList,
                                                          _luaFunction );
    lua_pushnumber( L, ret );
    return 1;
}

int TLuaInterpreter::permKey( lua_State *L )
{
    uint_fast8_t argIndex = 0;
    QString keyName;
    if (!lua_isstring(L, ++argIndex)) {
        lua_pushfstring(L, "permKey: bad argument #1 type (key name as string expected, got %s!)", luaL_typename(L, argIndex));
        return lua_error(L);
    } else {
        keyName = QString::fromUtf8(lua_tostring(L, argIndex));
    }

    QString parentGroup;
    if (!lua_isstring(L, ++argIndex)) {
        lua_pushfstring(L, "permKey: bad argument #2 type (key parent group as string expected, got %s!)", luaL_typename(L, argIndex));
        return lua_error(L);
    } else {
        parentGroup = QString::fromUtf8(lua_tostring(L, argIndex));
    }

    int keyModifier = Qt::NoModifier;
    if (lua_gettop(L) > 4) {
        if (!lua_isnumber(L, ++argIndex) && !lua_isnil(L, argIndex)) {
            lua_pushfstring(L, "permKey: bad argument #%d type (key modifier as number is optional, got %s!)", argIndex, luaL_typename(L, argIndex));
            return lua_error(L);
        } else {
            keyModifier = lua_tointeger(L, argIndex);
        }
    }

    int keyCode = 0;
    if (!lua_isnumber(L, ++argIndex)) {
        lua_pushfstring(L, "permKey: bad argument #%d type (key code as number expected, got %s!)", argIndex, luaL_typename(L, argIndex));
        return lua_error(L);
    } else {
        keyCode = lua_tointeger(L, argIndex);
    }

    QString luaFunction;
    if (!lua_isstring(L, ++argIndex)) {
        lua_pushfstring(L, "permKey: bad argument #%d type (lua script as string expected, got %s!)", argIndex, luaL_typename(L, argIndex));
        return lua_error(L);
    } else {
        luaFunction = QString::fromUtf8(lua_tostring(L, argIndex));
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter* pLuaInterpreter = host.getLuaInterpreter();
    // FIXME: The script in the luaFunction could fail to compile - although this will still create a key (which will error each time it is encountered)
    int keyID = pLuaInterpreter->startPermKey(keyName, parentGroup, keyCode, keyModifier, luaFunction);
    lua_pushnumber(L, keyID);
    return 1;
}

int TLuaInterpreter::tempKey( lua_State *L )
{
    uint_fast8_t argIndex = 0;
    int keyModifier = Qt::NoModifier;
    if (lua_gettop(L) > 2) {
        if (!lua_isnumber(L, ++argIndex) && !lua_isnil(L, argIndex)) {
            lua_pushfstring(L, "tempKey: bad argument #%d type (key modifier as number is optional, got %s!)", argIndex, luaL_typename(L, argIndex));
            return lua_error(L);
        } else {
            keyModifier = lua_tointeger(L, argIndex);
        }
    }

    int keyCode = 0;
    if (!lua_isnumber(L, ++argIndex)) {
        lua_pushfstring(L, "tempKey: bad argument #%d type (key code as number expected, got %s!)", argIndex, luaL_typename(L, argIndex));
        return lua_error(L);
    } else {
        keyCode = lua_tointeger(L, argIndex);
    }

    QString luaFunction;
    if (!lua_isstring(L, ++argIndex)) {
        lua_pushfstring(L, "tempKey: bad argument #%d type (lua script as string expected, got %s!)", argIndex, luaL_typename(L, argIndex));
        return lua_error(L);
    } else {
        luaFunction = QString::fromUtf8(lua_tostring(L, argIndex));
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter* pLuaInterpreter = host.getLuaInterpreter();
    int timerID = pLuaInterpreter->startTempKey(keyModifier, keyCode, luaFunction);
    lua_pushnumber(L, timerID);
    return 1;
}

int TLuaInterpreter::permBeginOfLineStringTrigger( lua_State * L )
{
    string name;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "permBeginOfLineStringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        name = lua_tostring( L, 1 );
    }

    string parent;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "permBeginOfLineStringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        parent = lua_tostring( L, 2 );
    }
    QStringList _regList;
    if( ! lua_istable( L, 3 ) )
    {
        lua_pushstring( L, "permBeginOfLineStringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, 3 ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString regex = lua_tostring( L, -1 );
                _regList << regex;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
    }

    string luaFunction;
    if( ! lua_isstring( L, 4 ) )
    {
        lua_pushstring( L, "permBeginOfLineStringTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 4 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _name = name.c_str();
    QString _parent = parent.c_str();
    QString _luaFunction = luaFunction.c_str();
    int ret = pLuaInterpreter->startPermBeginOfLineStringTrigger( _name,
                                                                  _parent,
                                                                  _regList,
                                                                  _luaFunction );
    lua_pushnumber( L, ret );
    return 1;
}

int TLuaInterpreter::permRegexTrigger( lua_State *L )
{
    string name;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "permRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        name = lua_tostring( L, 1 );
    }

    string parent;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "permRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        parent = lua_tostring( L, 2 );
    }
    QStringList _regList;
    if( ! lua_istable( L, 3 ) )
    {
        lua_pushstring( L, "permRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, 3 ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString regex = lua_tostring( L, -1 );
                _regList << regex;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
    }

    string luaFunction;
    if( ! lua_isstring( L, 4 ) )
    {
        lua_pushstring( L, "permRegexTrigger: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaFunction = lua_tostring( L, 4 );
    }

    Host& host = getHostFromLua(L);
    TLuaInterpreter * pLuaInterpreter = host.getLuaInterpreter();
    QString _name = name.c_str();
    QString _parent = parent.c_str();
    QString _luaFunction = luaFunction.c_str();
    int ret = pLuaInterpreter->startPermRegexTrigger( _name,
                                                      _parent,
                                                      _regList,
                                                      _luaFunction );
    lua_pushnumber( L, ret );
    return 1;
}


int TLuaInterpreter::invokeFileDialog( lua_State * L )
{
    bool luaDir = false; //default is to choose a directory
    if( ! lua_isboolean( L, 1 ) )
    {
        lua_pushstring( L, "invokeFileDialog: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaDir = lua_toboolean( L, 1 );
    }
    string luaTitle;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "invokeFileDialog: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaTitle = lua_tostring( L, 2 );
    }
    if( ! luaDir )
    {
        QString fileName = QFileDialog::getExistingDirectory(0, QString( luaTitle.c_str()),
                                                        QDir::currentPath() );
        lua_pushstring( L, fileName.toLatin1().data() );
        return 1;
    }
    else
    {
        QString fileName = QFileDialog::getOpenFileName(0, QString( luaTitle.c_str()),
                                                        QDir::currentPath() );
        lua_pushstring( L, fileName.toLatin1().data() );
        return 1;
    }
}

int TLuaInterpreter::getTimestamp( lua_State * L )
{
    int luaLine;
    int args = lua_gettop( L );
    int n = 1;
    string name = "";
    if( args < 1 )
    {

        return 0;
    }
    if( args == 2 )
    {
        if( lua_isstring( L, n ) )
        {
            name = lua_tostring( L, n );
            n++;
        }
    }

    if( ! lua_isnumber( L, n ) )
    {
        lua_pushstring( L, "getTimestamp: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaLine = lua_tointeger( L, n );
    }
    Host& host = getHostFromLua(L);
    if( name == "" )
    {
        if( luaLine > 0 && luaLine < host.mpConsole->buffer.timeBuffer.size() )
        {
            lua_pushstring( L, host.mpConsole->buffer.timeBuffer.at(luaLine).toLatin1().data() );
        }
        else
        {
            lua_pushstring( L, "getTimestamp: invalid line number");
        }
        return 1;
    }
    QString _name = name.c_str();
    QMap<QString, TConsole *> & dockWindowConsoleMap = mudlet::self()->mHostConsoleMap[&host];
    if( dockWindowConsoleMap.contains( _name ) )
    {
        TConsole * pC = dockWindowConsoleMap[_name];
        if( luaLine > 0 && luaLine < pC->buffer.timeBuffer.size() )
        {
            lua_pushstring( L, pC->buffer.timeBuffer.at(luaLine).toLatin1().data() );
        }
        else
        {
            lua_pushstring( L, "getTimestamp: invalid line number");
        }
        return 1;
    }
    return 0;
}

int TLuaInterpreter::setBorderColor( lua_State *L )
{
    int luaRed;
    int luaGreen;
    int luaBlue;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setBorderColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRed = lua_tointeger( L, 1 );
    }

    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setBorderColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaGreen=lua_tointeger( L, 2 );
    }

    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "setBorderColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaBlue = lua_tointeger( L, 3 );
    }

    Host& host = getHostFromLua(L);
    QPalette framePalette;
    framePalette.setColor( QPalette::Text, QColor(Qt::black) );
    framePalette.setColor( QPalette::Highlight, QColor(55,55,255) );
    framePalette.setColor( QPalette::Window, QColor( luaRed, luaGreen, luaBlue, 255 ) );
    host.mpConsole->mpMainFrame->setPalette( framePalette );
    return 0;
}


int TLuaInterpreter::setRoomCoordinates( lua_State *L )
{
    int id;
    int x;
    int y;
    int z;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setRoomCoordinates: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }

    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setRoomCoordinates: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tointeger( L, 2 );
    }

    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "setRoomCoordinates: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y = lua_tointeger( L, 3 );
    }

    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "setRoomCoordinates: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        z = lua_tointeger( L, 4 );
    }

    Host& host = getHostFromLua(L);
    lua_pushboolean(L, host.mpMap->setRoomCoordinates( id, x, y, z ) );
    return 1;
}

int TLuaInterpreter::setCustomEnvColor( lua_State *L )
{
    int id;
    int r;
    int g;
    int b;
    int alpha;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setCustomEnvColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }

    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setCustomEnvColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        r = lua_tointeger( L, 2 );
    }

    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "setCustomEnvColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        g = lua_tointeger( L, 3 );
    }

    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "setCustomEnvColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        b = lua_tointeger( L, 4 );
    }

    if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "setCustomEnvColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        alpha = lua_tointeger( L, 5 );
    }

    Host& host = getHostFromLua(L);
    host.mpMap->customEnvColors[id] = QColor( r,g,b,alpha );
    return 0;
}

int TLuaInterpreter::setAreaName( lua_State *L )
{
    int id = -1;
    QString existingName;
    QString newName;
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "setAreaName: no map present or loaded!");
        return 2;
    }

    if( lua_isnumber( L, 1 ) ) {
        id = lua_tonumber( L, 1 );
        if( id < 1 ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setAreaName: bad argument #1 value (number %d is not a valid area id as it is\n"
                               "less than 1).",
                            id);
            return 2;
        }
// Strangely, previous code allowed this command to create a NEW area's name
// with this ID, but without a TArea instance to accompany it (the latter was/is
// instantiated as needed when a room is moved to the relevent area...) and we
// need to continue to allow this - Slysven
//        else if( ! host.mpMap->mpRoomDB->getAreaIDList().contains( id ) ) {
//            lua_pushnil( L );
//            lua_pushstring(L, "setAreaName: bad argument #1 value (number %d is not a valid area id)."
//                           id);
//            return 2;
//        }
    }
    else if( lua_isstring( L, 1 ) ) {
        existingName = QString::fromUtf8( lua_tostring( L, 1 ) );
        id = host.mpMap->mpRoomDB->getAreaNamesMap().key( existingName, 0 );
        if( existingName.isEmpty() ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setAreaName: bad argument #1 value (area name cannot be empty).");
            return 2;
        }
        else if( ! host.mpMap->mpRoomDB->getAreaNamesMap().values().contains( existingName ) ) {
            lua_pushnil( L );
            lua_pushfstring(L, R"(setAreaName: bad argument #1 value (area name "%s" does not exist).)",
                            existingName.toUtf8().constData());
            return 2;
        }
        else if( host.mpMap->mpRoomDB->getAreaNamesMap().value( -1 ).contains( existingName ) ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setAreaName: bad argument #1 value (area name \"%s\" is reserved and\n"
                               "protected - it cannot be changed).",
                            existingName.toUtf8().constData());
            return 2;
        }
    }
    else {
        lua_pushfstring(L, "setAreaName: bad argument #1 type (area id as number or area name as string\n"
                           "expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }

    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, "setAreaName: bad argument #2 type (area name as string expected, got %s!)",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        newName = QString::fromUtf8( lua_tostring( L, 2 ) ).trimmed();
        // Now allow non-Ascii names but eliminate any leading or trailing spaces
    }

    if( newName.isEmpty() ) {
        // Empty name not allowed (any more)
        lua_pushnil( L );
        lua_pushfstring(L, "setAreaName: bad argument #2 value (area names may not be empty strings\n"
                           "{and spaces are trimmed from the ends})!");
        return 2;
    }
    else if( host.mpMap->mpRoomDB->getAreaNamesMap().values().count( newName ) > 0 ) {
        // That name is already IN the areaNamesMap, and since we now enforce
        // uniqueness there can be only one of it - so we can check if this is a
        // problem or just pointless quite easily...!
        if( host.mpMap->mpRoomDB->getAreaNamesMap().value( id ) != newName ) {
            lua_pushnil( L );
            // And it isn't the trivial case, where the given areaID already IS that name
            lua_pushfstring(L, "setAreaName: bad argument #2 value (area names may not be duplicated and area\n"
                               "id %d already has the name \"%s\").",
                            host.mpMap->mpRoomDB->getAreaNamesMap().key(newName),
                            newName.toUtf8().constData());
            return 2;
        }
        else {
            // Renaming an area to the same name is pointlessly successful!
            lua_pushboolean( L, true );
            return 1;
        }
    }

    bool isCurrentAreaRenamed = false;
    if( host.mpMap->mpMapper ) {
        if( id > 0 && host.mpMap->mpRoomDB->getAreaNamesMap().value( id ) == host.mpMap->mpMapper->showArea->currentText() ) {
            isCurrentAreaRenamed = true;
        }
    }

    bool result = host.mpMap->mpRoomDB->setAreaName( id, newName );
    if( result ) {
        // Update mapper Area names widget, using method designed for it...!
        if( host.mpMap->mpMapper ) {
            host.mpMap->mpMapper->updateAreaComboBox();
            if( isCurrentAreaRenamed ) {
                host.mpMap->mpMapper->showArea->setCurrentText( newName );
            }
        }
    }
    lua_pushboolean( L, result );
    return 1;
}

// Despite the name this actually returns either the area Id or name
// respectively if given the other...
int TLuaInterpreter::getRoomAreaName( lua_State *L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getRoomAreaName: no map present or loaded!");
        return 2;
    }

    int id;
    QString name;
    if( ! lua_isnumber( L, 1 ) ) {
        if( ! lua_isstring( L, 1 ) ) {
            lua_pushfstring(L, "getRoomAreaName: bad argument #1 type (area id as number or area name as string\n"
                               "expected, got %s!)",
                            luaL_typename(L, 1));
            lua_error( L );
            return 1;
        }
        else {
            name = QString::fromUtf8( lua_tostring( L, 1 ) );
        }
    }
    else {
        id = lua_tonumber( L, 1 );
    }

    if( ! name.isNull() ) {
        int result = host.mpMap->mpRoomDB->getAreaNamesMap().key( name, -1 );
        lua_pushnumber( L, result );
        if( result != -1 ) {
            return 1;
        }
        else {
            lua_pushfstring(L, "getRoomAreaName: bad argument #1 value (string \"%s\" is\n"
                               "not a valid area name).",
                            name.toUtf8().constData());
            return 2;
        }
    }
    else {
        if( host.mpMap->mpRoomDB->getAreaNamesMap().contains( id ) ) {
            lua_pushstring( L, host.mpMap->mpRoomDB->getAreaNamesMap().value(id).toUtf8().constData() );
            return 1;
        }
        else {
            lua_pushnumber( L, -1 );
            lua_pushfstring(L, "getRoomAreaName: bad argument #1 value (number %d is not a valid area id).",
                            id);
            return 2;
        }
    }
}

// Note that adding an area name implicitly creates an underlying TArea instance
int TLuaInterpreter::addAreaName( lua_State *L )
{
    QString name;

    if( ! lua_isstring( L, 1 ) ) {
        lua_pushfstring(L, "addAreaName: bad argument #1 type (area name as string expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        name = QString::fromUtf8( lua_tostring( L, 1 ) ).trimmed();
    }

    Host& host = getHostFromLua(L);
    if( ( ! host.mpMap ) || ( ! host.mpMap->mpRoomDB ) ) {
        lua_pushnil( L );
        lua_pushstring(L, "addAreaName: error, no map seems to be loaded!");
        return 2;
    }
    else if( name.isEmpty() ) {
        // Empty names now not allowed
        lua_pushnil( L );
        lua_pushfstring(L, "addAreaName: bad argument #1 value (area names may not be empty strings {and\n"
                           "spaces are trimmed from the ends})!");
        return 2;
    }
    else if( host.mpMap->mpRoomDB->getAreaNamesMap().values().count( name ) > 0 ) {
        // That name is already IN the areaNamesMap
        lua_pushnil( L );
        lua_pushfstring(L, "addAreaName: bad argument #2 value (area names may not be duplicated and area\n"
                           "id %d already has the name \"%s\").",
                        host.mpMap->mpRoomDB->getAreaNamesMap().key(name),
                        name.toUtf8().constData());
        return 2;
    }

    lua_pushnumber( L, host.mpMap->mpRoomDB->addArea( name ) );

    // Update mapper Area names widget, using method designed for it...!
    if( host.mpMap->mpMapper ) {
        host.mpMap->mpMapper->updateAreaComboBox();
    }

    return 1;
}

int TLuaInterpreter::deleteArea( lua_State *L )
{
    int id = 0;
    QString name;

    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "deleteArea: no map present or loaded!");
        return 2;
    }

    if( lua_isnumber( L, 1 ) ) {
        id = lua_tonumber( L, 1 );
        if( id < 1 ) {
            lua_pushnil( L );
            lua_pushfstring(L, "deleteArea: bad argument #1 value (number %d is not a valid area id greater\n"
                               "than zero).",
                            id);
            return 2;
        }
        else if(    ! host.mpMap->mpRoomDB->getAreaIDList().contains( id )
                 && ! host.mpMap->mpRoomDB->getAreaNamesMap().contains( id ) ) {
            lua_pushnil( L );
            lua_pushfstring(L, "deleteArea: bad argument #1 value (number %d is not a valid area id).",
                            id);
            return 2;
        }
    }
    else if( lua_isstring( L, 1 ) ) {
        name = QString::fromUtf8( lua_tostring( L, 1 ) );
        if( name.isEmpty() ) {
            lua_pushnil( L );
            lua_pushstring(L, "deleteArea: bad argument #1 value (an empty string is not a valid area name).");
            return 2;
        }
        else if( ! host.mpMap->mpRoomDB->getAreaNamesMap().values().contains( name ) ) {
            lua_pushnil( L );
            lua_pushfstring(L, "deleteArea: bad argument #1 value (string \"%s\" is not a valid\n"
                               "area name).",
                            name.toUtf8().constData());
            return 2;
        }
    }
    else {
        lua_pushfstring(L, "deleteArea: bad argument #1 type (area Id as number or area name as string\n"
                           "expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }

    bool result = false;
    if( ! id ) {
        result = host.mpMap->mpRoomDB->removeArea( name );
    }
    else {
        result = host.mpMap->mpRoomDB->removeArea( id );
    }

    if( result ) {
        // Update mapper Area names widget, using method designed for it...!
        if( host.mpMap->mpMapper ) {
            host.mpMap->mpMapper->updateAreaComboBox();
        }
        host.mpMap->mMapGraphNeedsUpdate = true;
    }
    lua_pushboolean( L, result );
    return 1;
}

int TLuaInterpreter::deleteRoom( lua_State *L )
{
    int id;

    if( lua_isnumber( L, 1 ) )
    {
        id = lua_tonumber( L, 1 );
        if( id <= 0 ) return 0;
    }
    else
    {
        lua_pushstring( L, "deleteRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }

    Host& host = getHostFromLua(L);
    lua_pushboolean( L, host.mpMap->mpRoomDB->removeRoom( id ) );
    return 1;
}


int TLuaInterpreter::setExit( lua_State *L )
{
    int from, to;
    int dir;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        from = lua_tointeger( L, 1 );
    }

    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "setExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        to = lua_tointeger( L, 2 );
    }
    dir = dirToNumber( L, 3 );
    if( ! dir )
    {
        lua_pushstring( L, "setExit: wrong argument type" );
        lua_error( L );
        return 1;
    }

    Host& host = getHostFromLua(L);
    lua_pushboolean(L, host.mpMap->setExit( from, to, dir ) );
    host.mpMap->mMapGraphNeedsUpdate = true;
    return 1;
}

int TLuaInterpreter::getRoomCoordinates( lua_State * L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getRoomCoordinates: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( !pR )
    {
        lua_pushnil( L );
        lua_pushnil( L );
        lua_pushnil( L );
        return 3;
    }
    else
    {
        lua_pushnumber( L, pR->x );
        lua_pushnumber( L, pR->y );
        lua_pushnumber( L, pR->z );
        return 3;
    }
}

int TLuaInterpreter::getRoomArea( lua_State * L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getRoomArea: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( !pR )
    {
        lua_pushnil(L);
    }
    else
    {
        lua_pushnumber( L, pR->getArea() );
    }
    return 1;
}


int TLuaInterpreter::roomExists( lua_State * L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) || ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "roomExists: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( pR )
        lua_pushboolean( L, true );
    else
        lua_pushboolean( L, false );
    return 1;
}

int TLuaInterpreter::addRoom( lua_State * L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "addRoom: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        id = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    bool added = host.mpMap->addRoom( id );
    lua_pushboolean( L, added );
    if( added ) {
        host.mpMap->setRoomArea( id, -1, false );
        host.mpMap->mMapGraphNeedsUpdate = true;
    }

    return 1;
}

int TLuaInterpreter::createRoomID( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "createRoomID: no map present or loaded!");
        return 2;
    }

    if( lua_gettop( L ) > 0 ) {
        if( ! lua_isnumber( L, 1 ) ) {
            lua_pushfstring(L, "createRoomID: bad argument #1 type (minimum room Id as number is optional,\n"
                               "got %s!)",
                            luaL_typename(L, 1));
            lua_error( L );
        }
        else {
            int minId = lua_tointeger( L, 1 );
            if( minId <  1 ) {
                lua_pushnil( L );
                lua_pushfstring(L, "createRoomID: bad argument #1 value (minimum room id %d is an optional value\n"
                                   "but if provided it must be greater than zero.)",
                                minId);
                return 2;
            }
        }
        lua_pushnumber( L, host.mpMap->createNewRoomID( lua_tointeger( L, 1 ) ) );
    }
    else {
        lua_pushnumber( L, host.mpMap->createNewRoomID() );
    }
    return 1;
}

int TLuaInterpreter::unHighlightRoom( lua_State * L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "unHighlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( pR )
    {
        pR->highlight = false;
        if( host.mpMap )
            if( host.mpMap->mpMapper )
                host.mpMap->mpMapper->mp2dMap->update();
        lua_pushboolean( L, true );
    }
    else
        lua_pushboolean( L, false );
    return 1;
}

// highlightRoom( roomID, colorRed, colorGreen, colorBlue, col2Red, col2Green, col2Blue, (float)highlightRadius, alphaColor1, alphaColor2 )

int TLuaInterpreter::highlightRoom( lua_State * L )
{
    int id, fgr, fgg, fgb, bgr, bgg, bgb;
    float radius;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }

    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fgr = lua_tointeger( L, 2 );
    }

    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fgg = lua_tointeger( L, 3 );
    }

    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fgb = lua_tointeger( L, 4 );
    }
    if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        bgr = lua_tointeger( L, 5 );
    }

    if( ! lua_isnumber( L, 6 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        bgg = lua_tointeger( L, 6 );
    }

    if( ! lua_isnumber( L, 7 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        bgb = lua_tointeger( L, 7 );
    }
    if( ! lua_isnumber( L, 8 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        radius = lua_tonumber( L, 8 );
    }
    int alpha1, alpha2;
    if( ! lua_isnumber( L, 9 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        alpha1 = lua_tointeger( L, 9 );
    }
    if( ! lua_isnumber( L, 10 ) )
    {
        lua_pushstring( L, "highlightRoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        alpha2 = lua_tointeger( L, 10 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( pR )
    {
        auto fg = QColor(fgr,fgg,fgb,alpha1);
        auto bg = QColor(bgr,bgg,bgb,alpha2);
        pR->highlight = true;
        pR->highlightColor = fg;
        pR->highlightColor2 = bg;
        pR->highlightRadius = radius;

        if( host.mpMap->mpMapper )
            if( host.mpMap->mpMapper->mp2dMap )
                host.mpMap->mpMapper->mp2dMap->update();
        lua_pushboolean( L, true );
    }
    else
        lua_pushboolean( L, false );
    return 1;
}


//SYNTAX: int labelID = createMapLabel( int area, string text, float posx, float posy, int fgRed, int fgGreen, int fgBlue, bgRed, int bgGreen, int bgBlue, bool showOnTop=true, bool noScaling=true )
int TLuaInterpreter::createMapLabel( lua_State * L )
{
    int area, fgr, fgg, fgb, bgr, bgg, bgb;
    float posx, posy, posz;
    int fontSize = 50;
    float zoom = 30.0;
    string text;
    bool showOnTop = true;
    bool noScaling = true;

    int args = lua_gettop(L);
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tointeger( L, 1 );
    }

    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        text = lua_tostring( L, 2 );
    }

    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        posx = lua_tonumber( L, 3 );
    }

    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        posy = lua_tonumber( L, 4 );
    }

        if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        posz = lua_tonumber( L, 5 );
    }

    if( ! lua_isnumber( L, 6 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fgr = lua_tointeger( L, 6 );
    }

    if( ! lua_isnumber( L, 7 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fgg = lua_tointeger( L, 7 );
    }

    if( ! lua_isnumber( L, 8 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        fgb = lua_tointeger( L, 8 );
    }

    if( ! lua_isnumber( L, 9 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        bgr = lua_tointeger( L, 9 );
    }

    if( ! lua_isnumber( L, 10 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        bgg = lua_tointeger( L, 10 );
    }

    if( ! lua_isnumber( L, 11 ) )
    {
        lua_pushstring( L, "createMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        bgb = lua_tointeger( L, 11 );
    }

    if( args > 11 )
    {
        if( ! lua_isnumber( L, 12 ) )
        {
            lua_pushstring( L, "createMapLabel: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            zoom = lua_tonumber( L, 12 );
        }
        if( ! lua_isnumber( L, 13 ) )
        {
            lua_pushstring( L, "createMapLabel: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            fontSize = lua_tointeger( L, 13 );
        }
        if( args > 13 )
        {
            if( ! lua_isboolean( L, 14 ) )
            {
                lua_pushstring( L, "createMapLabel: wrong argument type" );
                lua_error( L );
                return 1;
            }
            else
            {
                showOnTop = lua_toboolean( L, 14 );
            }

        }
        if( args > 14 )
        {
            if( ! lua_isboolean( L, 15 ) )
            {
                lua_pushstring( L, "createMapLabel: wrong argument type" );
                lua_error( L );
                return 1;
            }
            else
            {
                noScaling = lua_toboolean( L, 15 );
            }

        }
    }

    QString _text = text.c_str();
    Host& host = getHostFromLua(L);
    auto fg = QColor(fgr,fgg,fgb);
    auto bg = QColor(bgr, bgg, bgb);
    lua_pushinteger(L, host.mpMap->createMapLabel(area, _text, posx, posy, posz, fg, bg, showOnTop, noScaling, zoom, fontSize));
    return 1;
}

int TLuaInterpreter::setMapZoom( lua_State * L )
{
    int zoom = 3;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setMapZoom: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        zoom = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    if( host.mpMap )
        if( host.mpMap->mpMapper )
            if( host.mpMap->mpMapper->mp2dMap )
                host.mpMap->mpMapper->mp2dMap->setMapZoom( zoom );
    return 0;
}

//SYNTAX: int labelID = createMapImageLabel( int area, string filePath, float posx, float posy, float posz, float width, float height, float zoom, bool showOnTop=true )
int TLuaInterpreter::createMapImageLabel( lua_State * L )
{
    int area;
    float posx, posy, posz, width, height, zoom;
    string text;
    bool showOnTop = true;

// N/U:     int args = lua_gettop(L);
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tointeger( L, 1 );
    }

    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        text = lua_tostring( L, 2 );
    }

    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        posx = lua_tonumber( L, 3 );
    }

    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        posy = lua_tonumber( L, 4 );
    }

    if( ! lua_isnumber( L, 5 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        posz = lua_tonumber( L, 5 );
    }

    if( ! lua_isnumber( L, 6 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        width = lua_tonumber( L, 6 );
    }

    if( ! lua_isnumber( L, 7 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        height = lua_tonumber( L, 7 );
    }

    if( ! lua_isnumber( L, 8 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        zoom = lua_tonumber( L, 8 );
    }

    if( ! lua_isboolean( L, 9 ) )
    {
        lua_pushstring( L, "createMapImageLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        showOnTop = lua_toboolean( L, 9 );
    }

    QString _text = text.c_str();
    Host& host = getHostFromLua(L);
    lua_pushinteger( L, host.mpMap->createMapImageLabel( area, _text, posx, posy, posz, width, height, zoom, showOnTop, false ) );
    return 1;
}

//SYNTAX: setDoor( roomId, exitCommand, doorStatus )
// doorStatus: 0=no door, 1=open, 2=closed, 3=locked
//        { to remove a door set doorStatus to 0 }
// Directions for NORMAL exits:
// * "n"
// * "ne"
// * "e"
// * "se"
// * "s"
// * "sw"
// * "w"
// * "nw"
// * "up"
// * "down"
// * "in"
// * "out"
// The command is now validated against normal exits and stub exits and special
// exits and returns a nil + error message if there is not a valid thing for
// given exit command.
// Returns:
// * nil + (string) message on run-time (value type errors)
// * true if a change was made
// * false if valid but ineffective (door status unchanged)
int TLuaInterpreter::setDoor( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "setDoor: no map present or loaded!");
        return 2;
    }

    int roomId;
    TRoom * pR;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "setDoor: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
        pR = host.mpMap->mpRoomDB->getRoom( roomId );
        if( ! pR ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setDoor: bad argument #1 value (number %d is not a valid room id.)",
                            roomId);
            return 2;
        }
    }

    QString exitCmd;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, "setDoor: bad argument #2 type (door command as string expected, got %s!)",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        exitCmd = QString::fromUtf8( lua_tostring( L, 2 ) );
        if(   exitCmd.compare(QStringLiteral(  "n"   ))
           && exitCmd.compare(QStringLiteral(  "e"   ))
           && exitCmd.compare(QStringLiteral(  "s"   ))
           && exitCmd.compare(QStringLiteral(  "w"   ))
           && exitCmd.compare(QStringLiteral(  "ne"  ))
           && exitCmd.compare(QStringLiteral(  "se"  ))
           && exitCmd.compare(QStringLiteral(  "sw"  ))
           && exitCmd.compare(QStringLiteral(  "nw"  ))
           && exitCmd.compare(QStringLiteral(  "up"  ))
           && exitCmd.compare(QStringLiteral( "down" ))
           && exitCmd.compare(QStringLiteral(  "in"  ))
           && exitCmd.compare(QStringLiteral(  "out" )) ) {

            // One of the above WILL BE ZERO if the exitCmd is ONE of the above QStringLiterals
            // So the above will be TRUE if NONE of above strings match - which
            // means we must treat the exitCmd as a SPECIAL exit
            if( ! (   pR->getOtherMap().values().contains( exitCmd )
                                || pR->getOtherMap().values().contains( QStringLiteral( "0%1" ).arg( exitCmd ) )
                                || pR->getOtherMap().values().contains( QStringLiteral( "1%1" ).arg( exitCmd ) ) ) ) {

                        // And NOT a special one either
                        lua_pushnil( L );
                        lua_pushfstring(L, "setDoor: bad argument #2 value (room with id %d does not have a special\n"
                                           "exit in direction \"%s\".)",
                                        roomId, exitCmd.toUtf8().constData());
                        return 2;
            }
            // else IS a valid special exit - so fall out of if and continue
        }
        else {
            // Is a normal exit so see if it is valid
            if( ! (   ((! exitCmd.compare(QStringLiteral(  "n"   ))) && (pR->getExit(DIR_NORTH    )>0||pR->exitStubs.contains(DIR_NORTH    )))
                   || ((! exitCmd.compare(QStringLiteral(  "e"   ))) && (pR->getExit(DIR_EAST     )>0||pR->exitStubs.contains(DIR_EAST     )))
                   || ((! exitCmd.compare(QStringLiteral(  "s"   ))) && (pR->getExit(DIR_SOUTH    )>0||pR->exitStubs.contains(DIR_SOUTH    )))
                   || ((! exitCmd.compare(QStringLiteral(  "w"   ))) && (pR->getExit(DIR_WEST     )>0||pR->exitStubs.contains(DIR_WEST     )))
                   || ((! exitCmd.compare(QStringLiteral(  "ne"  ))) && (pR->getExit(DIR_NORTHEAST)>0||pR->exitStubs.contains(DIR_NORTHEAST)))
                   || ((! exitCmd.compare(QStringLiteral(  "se"  ))) && (pR->getExit(DIR_SOUTHEAST)>0||pR->exitStubs.contains(DIR_SOUTHEAST)))
                   || ((! exitCmd.compare(QStringLiteral(  "sw"  ))) && (pR->getExit(DIR_SOUTHWEST)>0||pR->exitStubs.contains(DIR_SOUTHWEST)))
                   || ((! exitCmd.compare(QStringLiteral(  "nw"  ))) && (pR->getExit(DIR_NORTHWEST)>0||pR->exitStubs.contains(DIR_NORTHWEST)))
                   || ((! exitCmd.compare(QStringLiteral(  "up"  ))) && (pR->getExit(DIR_UP       )>0||pR->exitStubs.contains(DIR_UP       )))
                   || ((! exitCmd.compare(QStringLiteral( "down" ))) && (pR->getExit(DIR_DOWN     )>0||pR->exitStubs.contains(DIR_DOWN     )))
                   || ((! exitCmd.compare(QStringLiteral(  "in"  ))) && (pR->getExit(DIR_IN       )>0||pR->exitStubs.contains(DIR_IN       )))
                   || ((! exitCmd.compare(QStringLiteral(  "out" ))) && (pR->getExit(DIR_OUT      )>0||pR->exitStubs.contains(DIR_OUT      ))) ) ) {

                // No there IS NOT a stub or real exit in the exitCmd direction
                lua_pushnil( L );
                lua_pushfstring(L, "setDoor: bad argument #2 value (room with id %d does not have a normal exit\n"
                                   "or a stub exit in direction \"%s\".)",
                                roomId, exitCmd.toUtf8().constData());
                return 2;
            }
            // else IS a valid stub or real normal exit -fall through to continue
        }
    }

    int doorStatus;
    if( ! lua_isnumber( L, 3 ) ) {
        lua_pushfstring(L, "setDoor: bad argument #3 type (door type as number expected {0=\"none\",\n"
                           "1=\"open\", 2=\"closed\", 3=\"locked\"}, got %s!)",
                        luaL_typename(L, 3));
        lua_error( L );
        return 1;
    }
    else {
        doorStatus = lua_tointeger( L, 3 );
        if( doorStatus < 0 || doorStatus > 3 ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setDoor: bad argument #3 value (door type %d is not one of 0=\"none\", 1=\"open\",\n"
                               "2=\"closed\" or 3=\"locked\".)",
                            doorStatus);
            return 2;
        }
    }

    bool result = pR->setDoor( exitCmd, doorStatus );
    if( result ) {
        if( host.mpMap->mpMapper && host.mpMap->mpMapper->mp2dMap ) {
            host.mpMap->mpMapper->mp2dMap->update();
        }
    }
    lua_pushboolean( L, result );
    return 1;
}

//SYNTAX: doors table = getDoors( roomId )
int TLuaInterpreter::getDoors( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getDoors: no map present or loaded!");
        return 2;
    }

    int roomId;
    TRoom * pR;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getDoors: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
        pR = host.mpMap->mpRoomDB->getRoom( roomId );
        if( ! pR ) {
            lua_pushnil( L );
            lua_pushfstring(L, "getDoors: bad argument #1 value (number %d is not a valid room id).",
                            roomId);
            return 2;
        }
    }

    lua_newtable( L );
    QStringList keys = pR->doors.keys();
    for( unsigned int i = 0, total = keys.size(); i < total; ++i ) {
        lua_pushstring( L, keys.at(i).toUtf8().constData() );
        lua_pushnumber( L, pR->doors.value( keys.at( i ) ) );
        lua_settable( L, -3 );
    }
    return 1;
}


//SYNTAX: setExitWeight( roomID, exitCommand, exitWeight )
int TLuaInterpreter::setExitWeight( lua_State * L )
{
    int roomID;
    int weight;
    QString text;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setExitWeight: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        roomID = lua_tointeger( L, 1 );
    }
    text = dirToString( L, 2 );
    if( text == 0 )
    {
        lua_pushstring( L, "setExitWeight: wrong argument type" );
        lua_error( L );
        return 1;
    }

    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "setExitWeight: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        weight = lua_tonumber( L, 3 );
    }

    text = text.toLower();
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomID );
    if( pR )
    {
        pR->setExitWeight(text, weight );
    }
    return 0;
}

int TLuaInterpreter::addCustomLine( lua_State * L )
{
    //args: from id, id_to, direction, style, line color, arrow (bool)
    int id_from, id_to, r=255, g=0, b=0;
    QString line_style("solid line");
    QString direction;
    QList<qreal> x;
    QList<qreal> y;
    QList<int> z;
    bool arrow = false;
    if ( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "addCustomLine: First argument must be room number" );
        lua_error( L );
        return 1;
    }
    else
        id_from = lua_tointeger( L, 1 );
    if ( ! lua_isnumber( L, 2 ) && ! lua_istable( L, 2) )
    {
        lua_pushstring( L, "addCustomLine: Second argument must be room number or coordinate list" );
        lua_error( L );
        return 1;
    }
    else if ( lua_isnumber( L, 2 ) )
    {
        id_to = lua_tointeger( L, 2 );
        Host& host = getHostFromLua(L);
        TRoom * pR = host.mpMap->mpRoomDB->getRoom( id_to );
        if (pR) {
            x.append((qreal)pR->x);
            y.append((qreal)pR->y);
            z.append(pR->z);
        }
    }
    else if ( lua_istable( L, 2 ) )
    {
        lua_pushnil( L );
        while ( lua_next( L, 2 ) != 0 )
        {
            if ( lua_type( L, -1 ) != LUA_TTABLE )
            {
                lua_pushstring( L, "addCustomLine: Coordinate list must be a table of tabled coordinates" );
                lua_error( L );
                return 1;
            }
            lua_pushnil( L );
            int j=1;
            while ( lua_next( L, -2 ) != 0 )
            {
                if ( lua_type( L, -1 ) != LUA_TNUMBER )
                {
                    lua_pushstring( L, "addCustomLine: Coordinates must be numeric." );
                    lua_error( L );
                    return 1;
                }
                if ( j==1 )
                    x.append( lua_tonumber( L, -1 ) );
                else if ( j==2 )
                    y.append( lua_tonumber( L, -1 ) );
                else if ( j==3 )
                    z.append( lua_tonumber( L, -1 ) );
                j++;
                lua_pop( L, 1 );
            }
            lua_pop( L, 1 );
        }
    }
    direction = dirToString( L, 3 );
    if ( direction == 0 )
    {
        lua_pushstring( L, "addCustomLine: Third argument must be direction" );
        lua_error( L );
        return 1;
    }
    if ( lua_isstring( L, 4 ) )
    {
        QStringList validLines;
        validLines << "solid line" << "dot line" << "dash line" << "dash dot line" << "dash dot dot line";
        line_style = QString(lua_tostring( L, 4 ));
        if ( ! validLines.contains(line_style) )
        {
            lua_pushstring( L, R"(addCustomLine: Valid line styles: "solid line", "dot line", "dash line", "dash dot line" or "dash dot dot line".)");
            lua_error( L );
            return 1;
        }
    }
    if ( lua_istable( L, 5) )
    {
        lua_pushnil( L );
        int tind = 0;
        while ( lua_next( L, 5 ) != 0 )
        {
            if ( lua_type( L, -1 ) != LUA_TNUMBER )
            {
                lua_pushstring( L, "addCustomLine: Colors must be a number between 0 and 255" );
                lua_error( L );
                return 1;
            }
            if ( tind==0 )
                r = lua_tonumber( L, -1 );
            else if ( tind==1 )
                g = lua_tonumber( L, -1 );
            else if ( tind==2 )
                b = lua_tonumber( L, -1 );
            tind++;
            lua_pop( L, 1 );
        }
    }
    if ( lua_isboolean( L, 6 ) )
    {
        arrow = lua_toboolean( L, 6 );
    }
    int lz=0;
    QList<QPointF> points;
    for(int i=0;i<z.size();i++)
    {
        if (i==0)
            lz=z.at(i);
        else if (lz != z.at(i))
        {
            lua_pushstring( L, "addCustomLine: All z values must be on same level." );
            lua_error( L );
            return 1;
        }
        points.append(QPointF(x.at(i),y.at(i)));
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id_from );
    if( pR ) //note: pR is 0 for non existing rooms
    {
        QList<int> colors;
        colors.append(r);
        colors.append(g);
        colors.append(b);
        //Heiko: direction/line relationship must be unique
        pR->customLines[direction] = points;
        pR->customLinesArrow[direction] = arrow;
        pR->customLinesStyle[direction] = line_style;
        pR->customLinesColor[direction] = colors;
    }
    return 0;
}

int TLuaInterpreter::getCustomLines( lua_State * L )
{
    int roomID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getCustomLines: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        roomID = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomID );
    if( pR )
    {
        lua_newtable(L); //return table customLines[]
        QStringList exits = pR->customLines.keys();
        for( int i=0; i<exits.size(); i++ )
        {
            lua_pushstring(L, exits[i].toLocal8Bit().data());
            lua_newtable(L);//customLines[direction]
            lua_pushstring(L, "attributes");
            lua_newtable(L); //customLines[attributes]
            lua_pushstring(L, "style");
            lua_pushstring(L,pR->customLinesStyle[exits[i]].toLocal8Bit().data());
            lua_settable(L, -3);
            lua_pushstring(L, "arrow");
            lua_pushboolean(L,pR->customLinesArrow[exits[i]]);
            lua_settable(L, -3);
            lua_pushstring(L, "color");
            lua_newtable(L);
            lua_pushstring(L, "r");
            lua_pushinteger(L, pR->customLinesColor[exits[i]][0]);
            lua_settable(L, -3);
            lua_pushstring(L, "g");
            lua_pushinteger(L, pR->customLinesColor[exits[i]][1]);
            lua_settable(L, -3);
            lua_pushstring(L, "b");
            lua_pushinteger(L, pR->customLinesColor[exits[i]][2]);
            lua_settable(L, -3);
            lua_settable(L, -3);//color
            lua_settable(L, -3); //attributes
            lua_pushstring(L,"points");
            lua_newtable(L);//customLines[points]
            QList<QPointF> pointL = pR->customLines[exits[i]];
            for( int k=0; k<pointL.size(); k++ )
            {
                lua_pushnumber( L, k );
                lua_newtable(L);
                lua_pushstring(L, "x");
                lua_pushnumber( L, pointL[k].x() );
                lua_settable(L, -3);
                lua_pushstring(L, "y");
                lua_pushnumber( L, pointL[k].y() );
                lua_settable(L, -3);
                lua_settable(L, -3);
            }
            lua_settable(L, -3);//customLines[direction][points]
            lua_settable(L,-3);//customLines[direction]
        }
    }
    else
    {
        lua_pushnil(L);//if the room doesnt exist return nil
    }
    return 1;
}


//SYNTAX: exit weight table = getExitWeights( roomID )
int TLuaInterpreter::getExitWeights( lua_State * L )
{
    int roomID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getExitWeights: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        roomID = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomID );
    lua_newtable(L);
    if( pR )
    {
        QStringList keys = pR->getExitWeights().keys();
        for( int i=0; i<keys.size(); i++ )
        {
            lua_pushstring( L, keys[i].toLatin1().data() );
            lua_pushnumber( L, pR->getExitWeight(keys[i]) );
            lua_settable(L, -3);
        }
    }
    return 1;
}

int TLuaInterpreter::deleteMapLabel( lua_State * L )
{
    int area, labelID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "deleteMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tointeger( L, 1 );
    }
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "deleteMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        labelID = lua_tointeger( L, 2 );
    }
    Host& host = getHostFromLua(L);
    host.mpMap->deleteMapLabel( area, labelID );
    return 0;
}

int TLuaInterpreter::getMapLabels( lua_State * L )
{
    int area;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getMapLabels: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    if( host.mpMap->mapLabels.contains( area ) )
    {
        lua_newtable(L);
        QMapIterator<int,TMapLabel> it(host.mpMap->mapLabels[area]);
        while( it.hasNext() )
        {
            it.next();
            lua_pushnumber( L, it.key() );
            lua_pushstring( L, it.value().text.toLatin1().data() );
            lua_settable(L, -3);
        }
    }
    return 1;
}

int TLuaInterpreter::getMapLabel( lua_State * L )
{
    int area, labelId = -1;
    QString labelText;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tointeger( L, 1 );
    }
    if (!lua_isstring(L,2) && !lua_isnumber(L,2)){
        lua_pushstring( L, "getMapLabel: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else{
        if (lua_isnumber(L,2))
            labelId = lua_tointeger(L,2);
        else
            labelText = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    if( host.mpMap->mapLabels.contains( area ) )
    {
        lua_newtable(L);
        if (labelId != -1){
            if (host.mpMap->mapLabels[area].contains(labelId)){
                TMapLabel label =  host.mpMap->mapLabels[area][labelId];
                int x = label.pos.x();
                int y = label.pos.y();
                int z = label.pos.z();
                float height = label.size.height();
                float width = label.size.width();
                QString text = label.text;
                lua_pushstring( L, "X" );
                lua_pushnumber( L, x );
                lua_settable(L, -3);
                lua_pushstring( L, "Y" );
                lua_pushnumber( L, y );
                lua_settable(L, -3);
                lua_pushstring( L, "Z" );
                lua_pushnumber( L, z );
                lua_settable(L, -3);
                lua_pushstring( L, "Height" );
                lua_pushnumber( L, height );
                lua_settable(L, -3);
                lua_pushstring( L, "Width" );
                lua_pushnumber( L, width );
                lua_settable(L, -3);
                lua_pushstring( L, "Text" );
                lua_pushstring( L, text.toLatin1().data() );
                lua_settable(L, -3);
            }
            else{
                lua_pushstring( L, "getMapLabel: labelId doesn't exist" );
                lua_error( L );
                return 1;
            }
        }
        else{
            QMapIterator<int,TMapLabel> it(host.mpMap->mapLabels[area]);
            while( it.hasNext() )
            {
                it.next();
                if(it.value().text==labelText){
                    TMapLabel label = it.value();
                    lua_newtable(L);
                    int id = it.key();
                    int x = label.pos.x();
                    int y = label.pos.y();
                    int z = label.pos.z();
                    float height = label.size.height();
                    float width = label.size.width();
                    QString text = label.text;
                    lua_pushstring( L, "X" );
                    lua_pushnumber( L, x );
                    lua_settable(L, -3);
                    lua_pushstring( L, "Y" );
                    lua_pushnumber( L, y );
                    lua_settable(L, -3);
                    lua_pushstring( L, "Z" );
                    lua_pushnumber( L, z );
                    lua_settable(L, -3);
                    lua_pushstring( L, "Height" );
                    lua_pushnumber( L, height );
                    lua_settable(L, -3);
                    lua_pushstring( L, "Width" );
                    lua_pushnumber( L, width );
                    lua_settable(L, -3);
                    lua_pushstring( L, "Text" );
                    lua_pushstring( L, text.toLatin1().data() );
                    lua_settable(L, -3);
                    lua_pushnumber(L, id);
                    lua_insert(L,-2);
                    lua_settable(L, -3);

                }
            }
        }
    }
    return 1;
}


int TLuaInterpreter::addSpecialExit( lua_State * L )
{
    int id_from, id_to;
    string dir;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "addSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id_from = lua_tointeger( L, 1 );
    }
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "addSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id_to = lua_tointeger( L, 2 );
    }
    if( ! lua_isstring( L, 3 ) )
    {
        lua_pushstring( L, "addSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        dir = lua_tostring( L, 3 );
    }
    QString _dir = dir.c_str();
    Host& host = getHostFromLua(L);
    TRoom * pR_from = host.mpMap->mpRoomDB->getRoom( id_from );
    TRoom * pR_to = host.mpMap->mpRoomDB->getRoom( id_to );
    if( pR_from && pR_to )
    {
        pR_from->setSpecialExit( id_to, _dir );
        pR_from->setSpecialExitLock( id_to, _dir, false );
    }
    return 0;
}

int TLuaInterpreter::removeSpecialExit( lua_State * L )
{
    int id;
    string dir;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "removeSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "removeSpecialExit: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        dir = lua_tostring( L, 2 );
    }
    QString _dir = dir.c_str();
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( pR )
    {
        pR->setSpecialExit( -1, _dir );
    }
    return 0;
}

// clearRoomUserData( roomID )
// Now returns a boolean true if any data was removed, and nil if room not
// found for given roomID
int TLuaInterpreter::clearRoomUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "clearRoomUserData: no map present or loaded!");
        return 2;
    }

    int roomId;
    if(! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "clearRoomUserData: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
    }

    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        lua_pushnil( L );
        lua_pushfstring(L, "clearRoomUserData: bad argument #1 value (number %d is not a valid room id).",
                        roomId);
        return 2;
    }
    else {
        if( ! pR->userData.isEmpty() ) {
            pR->userData.clear();
            lua_pushboolean( L , true );
        }
        else {
            lua_pushboolean( L, false );
        }
        return 1;
    }
}

// clearRoomUserDataItem( roomID, key )
// Returns a boolean true if data was found against the give key in the user
// data for the given room and it is removed, will return false if exact key not
// present in the data. Returns nil if the room for the roomID not found.
int TLuaInterpreter::clearRoomUserDataItem( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "clearRoomUserDataItem: no map present or loaded!");
        return 2;
    }

    int roomId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "clearRoomUserDataItem: bad argument #1 type (room id as number expected,\n"
                           "got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
    }

    QString key = QString(); // This assigns the null value which is different from an empty one
    if ( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, R"(clearRoomUserDataItem: bad argument #2 type ("key" as string expected, got %s!))",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 2 ) );
    }

    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        lua_pushnil( L );
        lua_pushfstring(L, "clearRoomUserDataItem: bad argument #1 value (number %d is not a valid room id).",
                        roomId);
        return 2;
    }
    else {
// Turns out that an empty key IS possible, but if this changes this should be uncommented
//        if( key.isEmpty() ) {
//           // If the user accidently supplied an white-space only or empty key
//           // string we don't do anything, but we, sucessfully, fail to do it... 8-)
//            lua_pushboolean( L, false );
//        }
/*      else */ if( pR->userData.contains(key) ) {
            pR->userData.remove(key);
            lua_pushboolean( L , true );
        }
        else {
            lua_pushboolean( L, false );
        }
        return 1;
    }
}

// Derived from clearRoomUserData
int TLuaInterpreter::clearAreaUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "clearAreaUserData: no map present or loaded!");
        return 2;
    }

    int areaId;
    if(! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "clearAreaUserData: bad argument #1 type (area id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        areaId = lua_tointeger( L, 1 );
    }

    TArea * pA = host.mpMap->mpRoomDB->getArea( areaId );
    if( ! pA ) {
        lua_pushnil( L );
        lua_pushfstring(L, "clearAreaUserData: bad argument #1 value (number %d is not a valid area id).",
                        areaId);
        return 2;
    }
    else {
        if( ! pA->mUserData.isEmpty() ) {
            pA->mUserData.clear();
            lua_pushboolean( L, true );
        }
        else {
            lua_pushboolean( L, false );
        }
        return 1;
    }
}

// Derived from clearRoomUserDataItem
int TLuaInterpreter::clearAreaUserDataItem( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "clearAreaUserDataItem: no map present or loaded!");
        return 2;
    }

    int areaId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "clearAreaUserDataItem: bad argument #1 type (area id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        areaId = lua_tointeger( L, 1 );
    }

    QString key = QString(); // This assigns the null value which is different from an empty one
    if ( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, R"(clearAreaUserDataItem: bad argument #2 type ("key" as string expected, got %s!))",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 2 ) );
    }

    TArea * pA = host.mpMap->mpRoomDB->getArea( areaId );
    if( ! pA ) {
        lua_pushnil( L );
        lua_pushfstring(L, "clearAreaUserDataItem: bad argument #1 value (number %d is not a valid area id).",
                        areaId);
        return 2;
    }
    else {
        if( key.isEmpty() ) {
            lua_pushnil( L );
            lua_pushfstring(L, R"(clearAreaUserDataItem: bad argument #2 value ("key" can not be an empty string).)");
            return 2;
        }
        else {
            lua_pushboolean( L, (pA->mUserData.remove(key) > 0) );
        }
        return 1;
    }
}

// Derived from clearRoomUserData
// But as there is only one instance it takes no arguments
int TLuaInterpreter::clearMapUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap ) {
        lua_pushnil( L );
        lua_pushstring(L, "clearMapUserData: no map present or loaded!");
        return 2;
    }

    if( ! host.mpMap->mUserData.isEmpty() ) {
        host.mpMap->mUserData.clear();
        lua_pushboolean( L, true );
    }
    else {
        lua_pushboolean( L, false );
    }
    return 1;
}

// Derived from clearRoomUserDataItem
// But as there is only one instance it only takes one argument
int TLuaInterpreter::clearMapUserDataItem( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap ) {
        lua_pushnil( L );
        lua_pushstring(L, "clearMapUserDataItem: no map present or loaded!");
        return 2;
    }

    QString key = QString(); // This assigns the null value which is different from an empty one
    if ( ! lua_isstring( L, 1 ) ) {
        lua_pushfstring(L, R"(clearMapUserDataItem: bad argument #1 type ("key" as string expected, got %s!))",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 1 ) );
        if( key.isEmpty() ) {
            lua_pushnil( L );
            lua_pushfstring(L, R"(clearMapUserDataItem: bad argument #1 value ("key" can not be an empty string).)");
            return 2;
        }
        else {
            lua_pushboolean( L, (host.mpMap->mUserData.remove(key) > 0) );
            return 1;
        }
    }
}

int TLuaInterpreter::clearSpecialExits( lua_State * L )
{
    int id_from;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "clearSpecialExits: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id_from = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id_from );
    if( pR )
    {
        pR->clearSpecialExits();
    }
    return 0;
}

int TLuaInterpreter::getSpecialExits( lua_State * L )
{
    int id_from;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getSpecialExits: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id_from = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id_from );
    if( pR )
    {
        QMapIterator<int, QString> it(pR->getOtherMap());
        lua_newtable(L);
        while( it.hasNext() )
        {
            it.next();
            lua_newtable(L);
            int id_to = it.key();
            QString dir = it.value();
            QString exitStatus;
            if( dir.size() > 0 && ( dir.startsWith('0') || dir.startsWith('1')) )
                exitStatus = dir.left(1);
            else
                exitStatus = "0";
            QString exit;
            if( dir.size() > 0 && ( dir.startsWith('0') || dir.startsWith('1')) )
                exit = dir.remove(0,1);
            else
                exit = dir;
            lua_pushstring( L, exit.toLatin1().data() );//done to remove the prepended special exit status
            lua_pushstring( L, exitStatus.toLatin1().data() );//done to remove the prepended special exit status
            lua_settable(L, -3);
            lua_pushnumber(L, id_to);
            lua_insert(L,-2);
            lua_settable(L, -3);
        }
        return 1;
    }
    return 0;
}

int TLuaInterpreter::getSpecialExitsSwap( lua_State * L )
{
    int id_from;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getSpecialExitsSwap: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id_from = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id_from );
    if( pR )
    {
        QMapIterator<int, QString> it(pR->getOtherMap());
        lua_newtable(L);
        while( it.hasNext() )
        {
            it.next();
            int id_to = it.key();
            QString dir = it.value();
            //lua_pushstring( L, dir.toLatin1().data() );
            QString exitStatus;
            QString exit;
            if( dir.size() > 0 && ( dir.startsWith('0') || dir.startsWith('1')) )
                exitStatus = dir.left(1);
            else
                exitStatus = "0";

            if( dir.size() > 0 && ( dir.startsWith('0') || dir.startsWith('1')) )
                exit = dir.remove(0,1);
            else
                exit = dir;
            lua_pushstring( L, exit.toLatin1().data() );
            lua_pushnumber( L, id_to );
            lua_settable(L, -3);
        }
        return 1;
    }
    return 0;
}

int TLuaInterpreter::getRoomEnv( lua_State * L )
{
    int roomID;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getRoomEnv: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        roomID = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomID );
    if( pR )
    {
        lua_pushnumber( L, pR->environment );
        return 1;
    }
    return 0;
}

// Past code returned an empty string if room or user data item with given key
// didn't exist - to enable the more modern behaviour that produces a
// nil + error message (recommended) in those cases a third (boolean)true is
// required. This "correct" behaviour being non-default is to retain backwards
// compatibility with existing scripts/packages that expect an empty string,
// even though the past code would allow the user to assign such an empty string
// against a key which cannot be distinguished in such circumstances.
// This fix is specific to the Room User Data as the need for it was introduced
// at the same time as Area and Map User Data was added but they were not
// documented until later and their Wiki entries did/will not mention returning
// an empty string in the cases of no room with id or no key with given name.
int TLuaInterpreter::getRoomUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getRoomUserData: no map present or loaded!");
        return 2;
    }

    int roomId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getRoomUserData: bad argument #1 (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
    }

    QString key;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, "getRoomUserData: bad argument #2 (key as string expected, got %s!)",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 2 ) );
    }

    bool isBackwardCompatibilityRequired = true;
    if( lua_gettop( L ) > 2 ) {
        if( ! lua_isboolean( L, 3 ) ) {
            lua_pushfstring(L, "getRoomUserData: bad argument #3 (enableFullErrorReporting as boolean {default\n"
                               "= false} is optional, got %s!)",
                            luaL_typename(L, 1));
            lua_error( L );
            return 1;
        }
        else {
            isBackwardCompatibilityRequired = ! lua_toboolean( L, 3 );
        }
    }

    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        if( isBackwardCompatibilityRequired ) {
            lua_pushstring( L, QString().toUtf8().constData() );
            return 1;
        }
        else {
            lua_pushnil( L );
            lua_pushfstring(L, "getRoomUserData: bad argument #1 value (number %d is not a valid room id).",
                            roomId);
            return 2;
        }
    }
    else {
        if( pR->userData.contains( key ) ) {
            lua_pushstring( L, pR->userData.value( key ).toUtf8().constData() );
            return 1;
        }
        else {
            if( isBackwardCompatibilityRequired ) {
                lua_pushstring( L, QString().toUtf8().constData() );
                return 1;
            }
            else {
                lua_pushnil( L );
                lua_pushfstring(L, R"(getRoomUserData: bad argument #2 value (no user data with key:"%s" in room with id: %d).)",
                                key.toUtf8().constData(), roomId);
                return 2;
            }
        }
    }
}

// Derived from getRoomUserData(...)
int TLuaInterpreter::getAreaUserData( lua_State * L )
{
    int areaId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getAreaUserData: bad argument #1 (area id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        areaId = lua_tointeger( L, 1 );
    }

    QString key;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, "getAreaUserData: bad argument #2 (key as string expected, got %s!)",
                       luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 2 ) );
        if( key.isEmpty() ) {
            lua_pushnil( L );
            lua_pushstring(L, "getAreaUserData: bad argument #2 value (\"key\" is not allowed to be an\n"
                              "empty string).");
            return 2;
        }
    }

    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getAreaUserData: no map present or loaded!");
        return 2;
    }
    TArea * pA = host.mpMap->mpRoomDB->getArea( areaId );
    if( ! pA ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getAreaUserData: bad argument #1 value (number %d is not a valid area id).",
                        areaId);
        return 2;
    }
    else {
        if( pA->mUserData.contains( key ) ) {
            lua_pushstring( L, pA->mUserData.value( key ).toUtf8().constData() );
            return 1;
        }
        else {
            lua_pushnil( L );
            lua_pushfstring(L, "getAreaUserData: bad argument #2 value (no user data with key:\"%s\"\n"
                               "in area with id:%d).",
                            key.toUtf8().constData(), areaId);
            return 2;
        }
    }
}

// Derived from getRoomUserData(...) but as there is only one instance only one
// argument is needed
int TLuaInterpreter::getMapUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap ) {
        lua_pushnil( L );
        lua_pushstring(L, "getMapUserData: no map present or loaded!");
        return 2;
    }

    QString key;
    if( ! lua_isstring( L, 1 ) ) {
        lua_pushfstring(L, "getMapUserData: bad argument #1 (key as string expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 1 ) );
    }

    if( host.mpMap->mUserData.contains( key ) ) {
        lua_pushstring( L, host.mpMap->mUserData.value( key ).toUtf8().constData() );
        return 1;
    }
    else {
        lua_pushnil( L );
        lua_pushfstring(L, R"(getMapUserData: bad argument #1 value (no user data with key:"%s" in map).)",
                        key.toUtf8().constData());
        return 2;
    }
}

int TLuaInterpreter::setRoomUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "setRoomUserData: no map present or loaded!");
        return 2;
    }

    int roomId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "setRoomUserData: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
    }

    QString key;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, R"(setRoomUserData: bad argument #2 type ("key" as string expected, got %s!))",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        // Ideally should reject empty keys but this could break existing scripts so we can't
        key = QString::fromUtf8( lua_tostring( L, 2 ) );
    }

    QString value;
    if( ! lua_isstring( L, 3 ) ) {
        lua_pushfstring(L, R"(setRoomUserData: bad argument #3 type ("value" as string expected, got %s!))",
                        luaL_typename(L, 3));
        lua_error( L );
        return 1;
    }
    else {
        value = QString::fromUtf8( lua_tostring( L, 3 ) );
    }

    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        lua_pushnil( L );
        lua_pushfstring(L, "setRoomUserData: bad argument #1 value (number %d is not a valid room id).",
                        roomId);
        return 2;
    }
    else {
        pR->userData[key] = value;
        lua_pushboolean( L, true );
        return 1;
    }
}

// Derived from setRoomUserData(...)
int TLuaInterpreter::setAreaUserData( lua_State * L )
{
    int areaId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "setAreaUserData: bad argument #1 type (area id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        areaId = lua_tointeger( L, 1 );
    }

    QString key;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, R"(setAreaUserData: bad argument #2 type ("key" as string expected, got %s!))",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 2 ) );
        if( key.isEmpty() ) {
            lua_pushnil( L );
            lua_pushstring(L, "setAreaUserData: bad argument #2 value (\"key\" is not allowed to be an\n"
                                             "empty string).");
            return 2;
        }
    }

    QString value;
    if( ! lua_isstring( L, 3 ) ) {
        lua_pushfstring(L, R"(setAreaUserData: bad argument #3 type ("value" as string expected, got %s!))",
                        luaL_typename(L, 3));
        lua_error( L );
        return 1;
    }
    else {
        value = QString::fromUtf8( lua_tostring( L, 3 ) );
    }

    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "setAreaUserData: no map present or loaded!");
        return 2;
    }

    // TODO: Remove this block of code once it is not needed (map file format updated to 17)
    {
        static bool isWarningIssued = false;
        if( !isWarningIssued && host.mpMap->mDefaultVersion <= 16 && host.mpMap->mSaveVersion < 17 ) {
            QString warnMsg = tr( "[ WARN ]  - Lua command setAreaUserData() used - it is currently flagged as experimental!" );
            QString infoMsg = tr( "[ INFO ]  - To be fully functional the above command requests a revision to the map file format\n"
                                              "and although that has been coded it is NOT enabled so this feature's effects\n"
                                              "will NOT persist between sessions as the relevent data IS NOT SAVED.\n\n"
                                              "To avoid filling the screen up with repeated messages, this is your only warning about\n"
                                              "this command...!" );
            host.postMessage( warnMsg );
            host.postMessage( infoMsg );
            isWarningIssued = true;
        }
    }

    TArea * pA = host.mpMap->mpRoomDB->getArea( areaId );
    if( ! pA ) {
        lua_pushnil( L );
        lua_pushfstring(L, "setAreaUserData: bad argument #1 value (number %d is not a valid area id).",
                        areaId);
        return 2;
    }
    else {
        pA->mUserData[key] = value;
        lua_pushboolean( L, true );
        return 1;
    }
}

// Derived from setRoomUserData(...)
// But as there is only one instance there is only two arguments, key and value
int TLuaInterpreter::setMapUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap ) {
        lua_pushnil( L );
        lua_pushstring(L, "setMapUserData: no map present or loaded!");
        return 2;
    }

    QString key;
    if( ! lua_isstring( L, 1 ) ) {
        lua_pushfstring(L, R"(setMapUserData: bad argument #1 type ("key" as string expected, got %s!))",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        key = QString::fromUtf8( lua_tostring( L, 1 ) );
        if( key.isEmpty() ) {
            lua_pushnil( L );
            lua_pushfstring(L, R"(setMapUserData: bad argument #1 value ("key" is not allowed to be an empty string).)" );
            return 2;
        }
    }

    QString value;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, R"(setMapUserData: bad argument #2 type ("value" as string expected, got %s!))",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        value = QString::fromUtf8( lua_tostring( L, 2 ) );
    }

    // TODO: Remove this block of code once it is not needed (map file format updated to 17)
    {
        static bool isWarningIssued = false;
        if( !isWarningIssued && host.mpMap->mDefaultVersion <= 16 && host.mpMap->mSaveVersion < 17 ) {
            QString warnMsg = tr( "[ WARN ]  - Lua command setMapUserData() used - it is currently flagged as experimental!" );
            QString infoMsg = tr( "[ INFO ]  - To be fully functional the above command requests a revision to the map file format\n"
                                              "and although that has been coded it is NOT enabled so this feature's effects\n"
                                              "will NOT persist between sessions as the relevent data IS NOT SAVED.\n\n"
                                              "To avoid filling the screen up with repeated messages, this is your only warning about\n"
                                              "this command...!" );
            host.postMessage( warnMsg );
            host.postMessage( infoMsg );
            isWarningIssued = true;
        }
    }

    host.mpMap->mUserData[key] = value;
    lua_pushboolean( L, true );
    return 1;
}

// getRoomUserDataKeys( roomID )
// returns a sorted list of the user data keys for the given room.  Will return
// an empty table if no user data or nil if the room does not exist for the
// given roomID. This will be useful if the user is not the creator of the data
// and does not know what has been stored in the user data area!
// In hindsight - is a little pointless when we can use getAllRoomUserData() directly
int TLuaInterpreter::getRoomUserDataKeys( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getRoomUserDataKeys: no map present or loaded!");
        return 2;
    }

    int roomId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getRoomUserDataKeys: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
    }

    QStringList keys;
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getRoomUserDataKeys: bad argument #1 value (number %d is not a valid room id).",
                        roomId);
        return 2;
    }
    else {
        keys = pR->userData.keys();
        lua_newtable( L );
        for( int i=0; i<keys.size(); i++ ) {
            lua_pushnumber( L, i+1 );
            lua_pushstring( L, keys.at(i).toUtf8().constData() );
            lua_settable(L, -3);
        }
        return 1;
    }
}

// getAllRoomUserData( roomID )
// returns ALL the room user data items for the given room as a table, will be
// an empty table if no data.  Returns nil if the room not found for given
// roomID.
int TLuaInterpreter::getAllRoomUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getAllRoomUserData: no map present or loaded!");
        return 2;
    }

    int roomId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getAllRoomUserData: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        roomId = lua_tointeger( L, 1 );
    }

    QStringList keys;
    QStringList values;
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( roomId );
    if( ! pR ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getAllRoomUserData: bad argument #1 value (number %d is not a valid room id).",
                        roomId);
        return 2;
    }
    else {
        keys = pR->userData.keys();
        values = pR->userData.values();
        lua_newtable( L );
        for( int i=0; i<keys.size(); i++ ) {
            lua_pushstring( L, keys.at(i).toUtf8().constData() );
            lua_pushstring( L, values.at(i).toUtf8().constData() );
            lua_settable(L, -3);
        }
        return 1;
    }
}

// Derived from getAllRoomUserData(...)
int TLuaInterpreter::getAllAreaUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "getAllAreaUserData: no map present or loaded!");
        return 2;
    }

    int areaId;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "getAllAreaUserData: bad argument #1 type (area id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        areaId = lua_tointeger( L, 1 );
    }

    QStringList keys;
    QStringList values;
    TArea * pA = host.mpMap->mpRoomDB->getArea( areaId );
    if( ! pA ) {
        lua_pushnil( L );
        lua_pushfstring(L, "getAllAreaUserData: bad argument #1 value (number %d is not a valid area id).",
                        areaId);
        return 2;
    }
    else {
        keys = pA->mUserData.keys();
        values = pA->mUserData.values();
        lua_newtable( L );
        for( int i=0; i<keys.size(); i++ ) {
            lua_pushstring( L, keys.at(i).toUtf8().constData() );
            lua_pushstring( L, values.at(i).toUtf8().constData() );
            lua_settable(L, -3);
        }
        return 1;
    }
}

// Derived from getAllRoomUserData(...)
// But as there is only one instance there are no arguments
int TLuaInterpreter::getAllMapUserData( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap ) {
        lua_pushnil( L );
        lua_pushstring(L, "getAllMapUserData: no map present or loaded!");
        return 2;
    }

    QStringList keys;
    QStringList values;
    keys = host.mpMap->mUserData.keys();
    values = host.mpMap->mUserData.values();
    lua_newtable( L );
    for( int i=0; i<keys.size(); i++ ) {
        lua_pushstring( L, keys.at(i).toUtf8().constData() );
        lua_pushstring( L, values.at(i).toUtf8().constData() );
        lua_settable(L, -3);
    }
    return 1;
}

int TLuaInterpreter::downloadFile( lua_State * L )
{
    Host& host = getHostFromLua(L);

    QString localFile;
    if( ! lua_isstring( L, 1 ) ) {
        lua_pushfstring(L, "downloadFile: bad argument #1 type (local filename as string expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        localFile = QString::fromUtf8( lua_tostring( L, 1 ) );
    }

    QString urlString;
    if( ! lua_isstring( L, 2 ) ) {
        lua_pushfstring(L, "downloadFile: bad argument #2 type (remote url as string expected, got %s!)",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }
    else {
        urlString = QString::fromUtf8( lua_tostring( L, 2 ) );
    }

    QUrl url = QUrl::fromUserInput( urlString );

    if( ! url.isValid() ) {
        lua_pushnil( L );
        lua_pushfstring(L, "downloadFile: bad argument #2 value (url is not deemed valid), validation\n"
                           "produced the following error message:\n%s.",
                        url.errorString().toUtf8().constData());
        return 2;
    }

    QNetworkRequest request = QNetworkRequest( url );
    // This should fix: https://bugs.launchpad.net/mudlet/+bug/1366781
    qDebug() << QByteArray(QStringLiteral("Mozilla/5.0 (Mudlet/%1%2)").arg(APP_VERSION, APP_BUILD).toUtf8().constData());
    request.setRawHeader(QByteArray("User-Agent"), QByteArray(QStringLiteral("Mozilla/5.0 (Mudlet/%1%2)").arg(APP_VERSION, APP_BUILD).toUtf8().constData()));
#ifndef QT_NO_OPENSSL
    if( url.scheme() == QStringLiteral( "https" ) ) {
        QSslConfiguration config( QSslConfiguration::defaultConfiguration() );
        request.setSslConfiguration( config );
    }
#endif
    QNetworkReply * reply = host.mLuaInterpreter.mpFileDownloader->get( request );
    host.mLuaInterpreter.downloadMap.insert( reply, localFile );
    lua_pushboolean( L, true );
    lua_pushstring( L, reply->url().toString().toUtf8().constData() ); // Returns the Url that was ACTUALLY used
    return 2;

}

// Can now take area as a Name (non-Ascii characters in area names are now
// permitted) instead of an Id number as the second argument.  Can set the room
// to an area which does not have a TArea instance but does appear in the
// TRoomDB::areaNamesMap...
int TLuaInterpreter::setRoomArea( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "setRoomArea: no map present or loaded!");
        return 2;
    }

    int id;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "setRoomArea: bad argument #1 type (room id as number expected, got %s!)",
                        luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        id = lua_tointeger( L, 1 );
        if( ! host.mpMap->mpRoomDB->getRoomIDList().contains( id ) ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setRoomArea: bad argument #1 value (number %d is not a valid room id).",
                            id);
            return 2;
        }
    }

    int areaId;
    QString areaName;
    if( lua_isnumber( L, 2 ) ) {
        areaId = lua_tonumber( L, 2 );
        if( areaId < 1 ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setRoomArea: bad argument #2 value (number %d is not a valid area id greater\n"
                               "than zero.  To remove a room's area, use resetRoomArea( roomId ) ).",
                            areaId);
            return 2;
        }
        else if( !host.mpMap->mpRoomDB->getAreaNamesMap().contains( areaId ) ) {
            lua_pushnil( L );
            lua_pushfstring(L, "setRoomArea: bad argument #2 value (number %d is not a valid area id as it does not exist).",
                            areaId);
            return 2;
        }
    }
    else if( lua_isstring( L, 2 ) ) {
        areaName = QString::fromUtf8( lua_tostring( L, 2 ) );
        // areaId will be zero if not found!
        if( areaName.isEmpty() ) {
            lua_pushnil( L );
            lua_pushstring(L, "setRoomArea: bad argument #2 value (area name cannot be empty).");
            return 2;
        }
        areaId = host.mpMap->mpRoomDB->getAreaNamesMap().key( areaName, 0 );
        if( ! areaId ) {
            lua_pushnil( L );
            lua_pushfstring(L, R"(setRoomArea: bad argument #2 value (area name "%s" does not exist).)",
                            areaName.toUtf8().constData());
            return 2;
        }
    }
    else {
        lua_pushfstring(L, "setRoomArea: bad argument #2 type (area Id as number or area name as string\n"
                           "expected, got %s!)",
                        luaL_typename(L, 2));
        lua_error( L );
        return 1;
    }

    bool result = host.mpMap->setRoomArea( id, areaId, false );
    if( result ) {
        // As a sucessfull result WILL change the area a room is in then the map
        // should be updated.  The GUI code that modifies room(s) areas already
        // includes such a call to update the mapper.
        if( host.mpMap->mpMapper ) {
            host.mpMap->mpMapper->mp2dMap->update();
        }
        if( host.mpMap->mpM ) {
            host.mpMap->mpM->update();
        }
    }
    lua_pushboolean( L, result );
    return 1;
}

int TLuaInterpreter::resetRoomArea( lua_State * L )
{
    //will reset the room area to our void area
    int id;
    if( ! lua_isnumber( L, 1 ) ) {
        lua_pushfstring(L, "resetRoomArea: bad argument #1 type (room id as number expected, got %s!)",
                       luaL_typename(L, 1));
        lua_error( L );
        return 1;
    }
    else {
        id = lua_tointeger( L, 1 );
    }

    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "resetRoomArea: no map present or loaded!");
        return 2;
    }
    else if( ! host.mpMap->mpRoomDB->getRoomIDList().contains( id ) ) {
        lua_pushnil( L );
        lua_pushfstring(L, "resetRoomArea: bad argument #1 value (number %d is not a valid room id).",
                        id);
        return 2;
    }
    else {
        bool result = host.mpMap->setRoomArea( id, -1, false );
        if( result ) {
            // As a sucessfull result WILL change the area a room is in then the map
            // should be updated.  The GUI code that modifies room(s) areas already
            // includes such a call to update the mapper.
            if( host.mpMap->mpMapper ) {
                host.mpMap->mpMapper->mp2dMap->update();
            }
            if( host.mpMap->mpM ) {
                host.mpMap->mpM->update();
            }
        }
        lua_pushboolean( L, result );
        return 1;
    }
}

int TLuaInterpreter::setRoomChar( lua_State * L )
{
    int id;
    string c;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setRoomChar: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "setRoomChar: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        c = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( !pR )
    {
        lua_pushstring( L, "setRoomChar: room ID does not exist");
        lua_error( L );
        return 1;
    }
    else
    {
        if( c.size() >= 1 )
        {
            pR->c = c[0];
        }
    }
    return 0;
}

int TLuaInterpreter::getRoomChar( lua_State * L )
{
    int id;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getRoomChar: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        id = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    TRoom * pR = host.mpMap->mpRoomDB->getRoom( id );
    if( !pR )
    {
        lua_pushstring( L, "getRoomChar: room ID does not exist");
        lua_error( L );
        return 1;
    }
    else
    {
        QString c = (QString)pR->c;
        lua_pushstring( L, c.toLatin1().data() );
        return 1;
    }
    return 0;
}


int TLuaInterpreter::getRoomsByPosition( lua_State * L )
{
    int area, x, y, z;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "getRoomsByPosition: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tointeger( L, 1 );
    }
    if( ! lua_isnumber( L, 2 ) )
    {
        lua_pushstring( L, "getRoomsByPosition: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        x = lua_tointeger( L, 2 );
    }
    if( ! lua_isnumber( L, 3 ) )
    {
        lua_pushstring( L, "getRoomsByPosition: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        y = lua_tointeger( L, 3 );
    }
    if( ! lua_isnumber( L, 4 ) )
    {
        lua_pushstring( L, "getRoomsByPosition: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        z = lua_tointeger( L, 4 );
    }


    Host& host = getHostFromLua(L);
    TArea * pA = host.mpMap->mpRoomDB->getArea( area );
    if( !pA )
    {
        lua_pushnil( L );
        return 1;
    }

    QList<int> rL = pA->getRoomsByPosition( x, y, z);
    lua_newtable( L );
    for( int i=0; i<rL.size(); i++ )
    {
        lua_pushnumber( L, i );
        lua_pushnumber( L, rL[i] );
        lua_settable(L, -3);
    }
    return 1;
}


// returns true if area exits, otherwise false
int TLuaInterpreter::setGridMode( lua_State * L )
{
    int area;
    bool gridMode = false;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "setGridMode: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        area = lua_tointeger( L, 1 );
    }
    if( ! lua_isboolean( L, 2 ) )
    {
        lua_pushstring( L, "setGridMode: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        gridMode = lua_toboolean( L, 2 );
    }

    Host& host = getHostFromLua(L);
    TArea * pA = host.mpMap->mpRoomDB->getArea( area );
    if( !pA )
    {
        lua_pushboolean( L, false);
        return 1;
    }
    else
    {
        pA->gridMode = gridMode;
        pA->calcSpan();
        if( host.mpMap->mpMapper )
        {
            if( host.mpMap->mpMapper->mp2dMap )
            {
// Not needed IMHO - Slysven
//                host.mpMap->mpMapper->mp2dMap->init();
//                cout << "NEW GRID MAP: init" << endl;
// But this is:
                host.mpMap->mpMapper->update();
            }
        }
    }
    lua_pushboolean( L, true );
    return 1;
}



int TLuaInterpreter::setFgColor( lua_State *L )
{
    int s = 1;
    int n = lua_gettop( L );
    string a1;
    int luaRed;
    int luaGreen;
    int luaBlue;
    if( n > 3 )
    {
        if( lua_isstring( L, s ) )
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setFgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRed = lua_tointeger( L, s );
        s++;
    }

    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setFgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaGreen=lua_tointeger( L, s );
        s++;
    }

    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setFgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaBlue = lua_tointeger( L, s );
    }

    QString _name( a1.c_str() );
    Host& host = getHostFromLua(L);
    if( n < 4 ) {
        host.mpConsole->setFgColor( luaRed, luaGreen, luaBlue );
    } else {
        mudlet::self()->setFgColor( &host, _name, luaRed, luaGreen, luaBlue );
    }
    return 0;
}

int TLuaInterpreter::setBgColor( lua_State *L )
{
    int s = 1;
    int n = lua_gettop( L );
    string a1;
    int luaRed;
    int luaGreen;
    int luaBlue;
    if( n > 3 )
    {
        if( lua_isstring( L, s ) )
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setBgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaRed = lua_tointeger( L, s );
        s++;
    }

    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setBgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaGreen=lua_tointeger( L, s );
        s++;
    }

    if( ! lua_isnumber( L, s ) )
    {
        lua_pushstring( L, "setBgColor: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaBlue = lua_tointeger( L, s );
    }

    QString _name( a1.c_str() );
    Host& host = getHostFromLua(L);
    if( n < 4 )
        host.mpConsole->setBgColor( luaRed, luaGreen, luaBlue );
    else
        mudlet::self()->setBgColor( &host, _name, luaRed, luaGreen, luaBlue );
    return 0;
}

// params: [windowName,] "printWhat", "LuaScript", "hint", [boolean=true -> use current format else use standard link format]
int TLuaInterpreter::insertLink( lua_State *L )
{
    QStringList sL;
    int n = lua_gettop( L );
    int s = 1;
    bool b = false;
// N/U:     bool gotBool = false;
    for( ; s<=n; s++ )
    {
        if( lua_isstring( L, s ) )
        {
            string _str = lua_tostring( L, s );
            QString qs = _str.c_str();
            sL << qs;
        }
        else if( lua_isboolean( L, s ) )
        {
// N/U:             gotBool = true;
            b = lua_toboolean( L, s );
        }
    }

    if( sL.size() < 4 ) sL.prepend("main");
    if( sL.size() < 4 )
    {
        lua_pushstring( L, "insertLink: wrong number of params or wrong type of params" );
        lua_error( L );
        return 1;
    }

    QString _name( sL[0] );
    QString printScreen = sL[1];
    QStringList command;
    QStringList hint;
    command << sL[2];
    hint << sL[3];

    Host& host = getHostFromLua(L);
    if( _name == "main" )
    {
        host.mpConsole->insertLink( printScreen, command, hint, b );
    }
    else
    {
        mudlet::self()->insertLink( &host, _name, printScreen, command, hint, b );
    }

    return 0;
}

int TLuaInterpreter::insertPopup( lua_State *L )
{
    string a1 = "";
    string a2;
    QStringList _hintList;
    QStringList _commandList;
    bool customFormat = false;
    int s = 1;
    int n = lua_gettop( L );
    // console name is an optional first argument
    if( n > 4 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "insertPopup: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "insertPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        a2 = lua_tostring( L, s );
        s++;
    }

    if( ! lua_istable( L, s ) )
    {
        lua_pushstring( L, "insertPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, s ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString cmd = lua_tostring( L, -1 );
                _commandList << cmd;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
        s++;
    }
    if( ! lua_istable( L, s ) )
    {
        lua_pushstring( L, "insertPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, s ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString hint = lua_tostring( L, -1 );
                _hintList << hint;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
        s++;
    }
    if( n >= s )
    {
        customFormat = lua_toboolean( L, s );
    }

    Host& host = getHostFromLua(L);
    QString txt = a2.c_str();
    QString name = a1.c_str();
    if( _commandList.size() != _hintList.size() )
    {
        lua_pushstring( L, "Error: command list size and hint list size do not match cannot create popup" );
        lua_error( L );
        return 1;
    }

    if( a1 == "" )
    {
        host.mpConsole->insertLink( txt, _commandList, _hintList, customFormat );
    }
    else
    {
        mudlet::self()->insertLink( &host, name, txt, _commandList, _hintList, customFormat );
    }

    return 0;
}

int TLuaInterpreter::insertText( lua_State *L )
{
    string a1;
    string a2;
    int n = lua_gettop( L );
    int s = 1;
    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "insertText: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        a1 = lua_tostring( L, s );
        s++;
    }
    QString _name( a1.c_str() );

    if( n > 1 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "insertText: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a2 = lua_tostring( L, s );
        }
    }
    Host& host = getHostFromLua(L);
    if (n == 1) {
        host.mpConsole->insertText(QString(a1.c_str()));
    } else {
        mudlet::self()->insertText(&host, _name, QString(a2.c_str()));
    }
    return 0;
}

int TLuaInterpreter::insertHTML( lua_State *L )
{
    string luaSendText;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "insertHTML: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mpConsole->insertHTML( QString(luaSendText.c_str()) );
    return 0;
}

int TLuaInterpreter::addSupportedTelnetOption( lua_State *L )
{
    int option;
    if( ! lua_isnumber( L, 1 ) )
    {
        lua_pushstring( L, "addSupportedTelnetOption: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        option = lua_tointeger( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mTelnet.supportedTelnetOptions[option] = true;
    return 0;
}

// Although this is coded here as "Echo" it is registered in the Lua system as
// "echo" - so THAT is the name that should be displayed as the function name!
int TLuaInterpreter::Echo( lua_State *L )
{
    Host& host = getHostFromLua(L);

    QString consoleName;
    QString displayText;
    int n = lua_gettop(L);

    if (n > 1) {
        if (! lua_isstring(L, 1)) {
            lua_pushfstring(L, "echo: bad argument #1 type (console name as string, is optional, got %s!)",
                            luaL_typename(L, 1));
            return lua_error(L);
        } else {
            consoleName = QString::fromUtf8(lua_tostring(L, 1));
            if (!consoleName.isEmpty()) {
                if (consoleName == QLatin1String("main")) {
                    // QString::compare is zero for a match on the "default"
                    // case so clear the variable - to flag this as the main
                    // window case - as is the case for an empty string
                    consoleName.clear();
                }
            }
        }
    } else if (!n) {
        // Handle case with NO arguments
        lua_pushstring(L, "echo: bad argument #1 type (text to display as string expected, got nil!)");
        return lua_error(L);
    }

    if (! lua_isstring(L, n)) {
        lua_pushfstring(L, "echo: bad argument #%d type (text to display as string expected, got %s!)",
                        n, luaL_typename(L, n));
        return lua_error(L);
    } else {
        displayText = QString::fromUtf8(lua_tostring(L, n));
    }

    if (consoleName.isEmpty()) {
        host.mpConsole->buffer.mEchoText = true;
        host.mpConsole->echo(displayText);
        host.mpConsole->buffer.mEchoText = false;
        // Writing to the main window must always succeed, but for consistent
        // results, we now return a true for that
        lua_pushboolean(L, true);
        return 1;
    } else {
        if (mudlet::self()->echoWindow(&host, consoleName, displayText)) {
            lua_pushboolean(L, true);
            return 1;
        } else {
            lua_pushnil(L);
            lua_pushfstring(L, R"(echo: bad argument #1 value (console name "%s" does not exist, omit this{or use the default "main"} to send text to main console!))",
                            consoleName.toUtf8().constData());
            return 2;
        }
    }
}

int TLuaInterpreter::echoPopup( lua_State *L )
{
    string a1 = "";
    string a2;
    QStringList _hintList;
    QStringList _commandList;
    bool customFormat = false;
    int s = 1;
    int n = lua_gettop( L );
    // console name is an optional first argument
    if( n > 4 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "echoPopup: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "echoPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        a2 = lua_tostring( L, s );
        s++;
    }

    if( ! lua_istable( L, s ) )

    {
        lua_pushstring( L, "echoPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, s ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString cmd = lua_tostring( L, -1 );
                _commandList << cmd;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
        s++;
    }
    if( ! lua_istable( L, s ) )
    {
        lua_pushstring( L, "echoPopup: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        lua_pushnil( L );
        while( lua_next( L, s ) != 0 )
        {
            // key at index -2 and value at index -1
            if( lua_type(L, -1) == LUA_TSTRING )
            {
                QString hint = lua_tostring( L, -1 );
                _hintList << hint;
            }
            // removes value, but keeps key for next iteration
            lua_pop(L, 1);
        }
        s++;
    }
    if( n >= s )
    {
        customFormat = lua_toboolean( L, s );
    }

    Host& host = getHostFromLua(L);
    QString txt = a2.c_str();
    QString name = a1.c_str();
    if( _commandList.size() != _hintList.size() )
    {
        lua_pushstring( L, "Error: command list size and hint list size do not match cannot create popup" );
        lua_error( L );
        return 1;
    }

    if( a1 == "" )
    {
        host.mpConsole->echoLink( txt, _commandList, _hintList, customFormat );
    }
    else
    {
        mudlet::self()->echoLink( &host, name, txt, _commandList, _hintList, customFormat );
    }

    return 0;
}


int TLuaInterpreter::echoLink( lua_State *L )
{
    string a1;
    string a2;
    string a3;
    string a4;
    bool a5 = false;
    bool gotBool = false;

    int s = 1;
    int n = lua_gettop( L );

    if( ! lua_isstring( L, s ) )
    {
        lua_pushstring( L, "echoLink: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        a1 = lua_tostring( L, s );
        s++;
    }
    if( n > 1 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "echoLink: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a2 = lua_tostring( L, s );
            s++;
        }
    }
    if( n > 2 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "echoLink: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a3 = lua_tostring( L, s );
            s++;
        }
    }
    if( n > 3 )
    {
        if( lua_isstring( L, s ) )
        {
            a4 = lua_tostring( L, s );
            s++;
        }
        else if( lua_isboolean( L, s ) )
        {
            gotBool = true;
            a5 = lua_toboolean( L, s );
            s++;
        }
    }
    if( n > 4 )
    {
        if( ! lua_isboolean( L, s ) )
        {
            lua_pushstring( L, "echoLink: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a5 = lua_toboolean( L, s );
            gotBool = true;
            s++;
        }
    }
    Host& host = getHostFromLua(L);
    QString txt;
    QString name;
    QStringList func;
    QStringList hint;
    if( n == 3 || ( n == 4 && gotBool ) )
    {
        txt = a1.c_str();
        func << a2.c_str();
        hint << a3.c_str();
        host.mpConsole->echoLink( txt, func, hint, a5 );
    }
    else
    {
        txt = a2.c_str();
        func << a3.c_str();
        hint << a4.c_str();
        name = a1.c_str();
        mudlet::self()->echoLink( &host, name, txt, func, hint, a5 );
    }

    return 0;
}

int TLuaInterpreter::setMergeTables( lua_State * L )
{
    Host& host = getHostFromLua(L);

    QStringList modulesList;
    int n = lua_gettop(L);
    for (int i = 1; i <= n; i++)
    {
        if (!lua_isstring(L, i))
        {
            lua_pushfstring( L, "setMergeTables: bad argument #%d (string expected, got %s)", i, luaL_typename(L, 1) );
            lua_error(L);
            return 1;
        }
        modulesList << QString(lua_tostring(L, i));
    }

    host.mGMCP_merge_table_keys = host.mGMCP_merge_table_keys + modulesList;
    host.mGMCP_merge_table_keys.removeDuplicates();

    return 0;
}

int TLuaInterpreter::pasteWindow( lua_State *L )
{
    string luaName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "pasteWindow: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaName = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString name( luaName.c_str());
    mudlet::self()->pasteWindow( &host, name );
    return 0;
}

int TLuaInterpreter::exportAreaImage( lua_State *L )
{
    int areaID;
    if( lua_isnumber( L, 1 ) )
    {
        areaID = lua_tointeger( L, 1 );
        Host& host = getHostFromLua(L);
        if( host.mpMap->mpMapper )
            host.mpMap->mpMapper->mp2dMap->exportAreaImage( areaID );
    }
    return 0;
}

int TLuaInterpreter::openUrl( lua_State *L )
{
    string luaName;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "openUrl: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaName = lua_tostring( L, 1 );
    }
    QString url( luaName.c_str());
    QDesktopServices::openUrl(url);
    return 0;
}

int TLuaInterpreter::setLabelStyleSheet( lua_State * L )
{
    string luaSendText="";
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "setLabelStyleSheet: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    string a2;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "setLabelStyleSheet: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        a2 = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    //qDebug()<<"CSS: name:"<<luaSendText.c_str()<<"<"<<a2.c_str()<<">";
    host.mpConsole->setLabelStyleSheet( luaSendText, a2 );
    return 0;
}

int TLuaInterpreter::getCustomEnvColorTable( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( host.mpMap->customEnvColors.size() > 0 )
    {
        lua_newtable( L );
        QList<int> colorList = host.mpMap->customEnvColors.keys();
        for(int & idx : colorList)
        {
            lua_pushnumber( L, idx );
            lua_newtable( L );
            // red component
            {
                lua_pushnumber( L, 1 );
                lua_pushnumber( L, host.mpMap->customEnvColors[idx].red() );
                lua_settable( L, -3 );//match in matches
            }
            // green component
            {
                lua_pushnumber( L, 2 );
                lua_pushnumber( L, host.mpMap->customEnvColors[idx].green() );
                lua_settable( L, -3 );//match in matches
            }
            // blue component
            {
                lua_pushnumber( L, 3 );
                lua_pushnumber( L, host.mpMap->customEnvColors[idx].blue() );
                lua_settable( L, -3 );//match in matches
            }
            lua_settable( L, -3 );//matches in regex
        }
    }
    else
    {
        lua_newtable( L );
    }
    return 1;
}


// syntax: getVersion()
// returns: all values (i.e. 4 return values!) of this mudlet version including
// build (if present, that value should be nil in a release version so might be
// used as a test for that.)
//
// syntax: getVersion({"major"|"minor"|"revision"|"build"|"string"|"table"})
// returns:           { number| number| number   | string| string | table }
//    part of version information, the last being a key-value table form of all
// the components, and the string form a printable string of all components.
//
// Introduced in 3.0.1-rc2, to assist package writers to allow for undocumented
// software features to be accommodated if there is **absolutely** no *other* way
// to detect if there are things that do not work as they should in a particular
// build of Mudlet.
int TLuaInterpreter::getMudletVersion( lua_State * L )
{
    QByteArray version = QByteArray(APP_VERSION).trimmed();
    QByteArray build = QByteArray(APP_BUILD).trimmed();

    QList<QByteArray> versionData = version.split('.');
    if( versionData.size() != 3 )
    {
        qWarning() << "TLuaInterpreter::getMudletVersion(): ERROR: Version data not correctly set on compilation,\n"
                   << "   is the VERSION value in the project file present?";
        lua_pushstring( L, "getMudletVersion: sorry, version information not available." );
        lua_error( L );
        return 1;
    }

    bool ok = true;
    int major = 0;
    int minor = 0;
    int revision = 0;
    {
        major = versionData.at(0).toInt( & ok );
        if( ok )
            minor = versionData.at(1).toInt( & ok );
        if( ok )
            revision = versionData.at(2).toInt( & ok );
    }
    if( ! ok )
    {
        qWarning("TLuaInterpreter::getMudletVersion(): ERROR: Version data not correctly parsed,\n"
                 "   was the VERSION value in the project file correct at compilation time?");
        lua_pushstring( L, "getMudletVersion: sorry, version information corrupted." );
        lua_error( L );
        return 1;
    }

    int n = lua_gettop( L );

    if( n == 1 )
    {
        if( ! lua_isstring( L, 1 ) )
        {
            lua_pushstring( L, "getMudletVersion: wrong argument type." );
            lua_error( L );
        }
        else
        {
            string what = lua_tostring( L, 1 );
            QString tidiedWhat = QString( what.c_str() ).toLower().trimmed();
            if( tidiedWhat.contains("major"))
            {
                lua_pushinteger( L, major );
            }
            else if( tidiedWhat.contains("minor"))
            {
                lua_pushinteger( L, minor );
            }
            else if( tidiedWhat.contains("revision"))
            {
                lua_pushinteger( L, revision );
            }
            else if( tidiedWhat.contains("build"))
            {
                if( build.isEmpty() )
                    lua_pushnil( L );
                else
                    lua_pushstring( L, build );
            }
            else if( tidiedWhat.contains("string"))
            {
                if( build.isEmpty() )
                    lua_pushstring( L, version.constData() );
                else
                    lua_pushstring( L, version.append(build).constData() );
            }
            else if( tidiedWhat.contains("table"))
            {
                lua_pushinteger( L, major );
                lua_pushinteger( L, minor );
                lua_pushinteger( L, revision );
                if( build.isEmpty() )
                    lua_pushnil( L );
                else
                    lua_pushstring( L, build );
                return 4;
            }
            else
            {
                lua_pushstring( L, "getMudletVersion: takes one (optional) argument:\n"
                                "   \"major\", \"minor\", \"revision\", \"build\", \"string\" or \"table\".");
                lua_error( L );
            }
        }
    }
    else if( n == 0)
    {
        lua_newtable( L );
        lua_pushstring( L, "major" );
        lua_pushinteger( L, major );
        lua_settable( L, -3 );
        lua_pushstring( L, "minor" );
        lua_pushinteger( L, minor );
        lua_settable( L, -3 );
        lua_pushstring( L, "revision" );
        lua_pushinteger( L, revision );
        lua_settable( L, -3 );
        lua_pushstring( L, "build" );
        lua_pushstring( L, QByteArray(APP_BUILD).trimmed().data() );
        lua_settable( L, -3 );
    }
    else
    {
        lua_pushstring( L, "getMudletVersion: only takes one (optional) argument:\n"
                        "   \"major\", \"minor\", \"revision\", \"build\", \"string\" or \"table\".");
        lua_error( L );
    }
    return 1;
}

int TLuaInterpreter::openWebPage( lua_State * L )
{
    if(lua_isstring(L, 1)){
        QString url = lua_tostring(L, 1);
        lua_pushboolean(L, mudlet::self()->openWebPage(url));
    }
    else{
        lua_pushfstring( L, "openWebPage: bad argument #%d (string expected, got %s)", 1, luaL_typename(L, 1) );
        lua_error(L);
    }
    return 1;

}


//syntax: getTime( bool return_string, string time_format ) with return_string == false -> return table
int TLuaInterpreter::getTime( lua_State * L )
{
    int n = lua_gettop( L );
    bool return_string = false;
    QString fmt = "yyyy.MM.dd hh:mm:ss.zzz";
    QString tm;
    if( n > 0 )
    {
        return_string = lua_toboolean( L, 1 );
        if( n > 1 )
        {
            if( ! lua_isstring( L, 2 ) )
            {
                lua_pushstring( L, "getTime: wrong argument type" );
                lua_error( L );
                return 1;
            }
            else
            {
                fmt = lua_tostring( L, 2 );
            }
        }
    }
    QDateTime time = QDateTime::currentDateTime();
    if( return_string )
    {
        tm = time.toString( fmt );
        lua_pushstring( L, tm.toLatin1().data() );
    }
    else
    {
        QDate dt = time.date();
        QTime tm = time.time();
        lua_createtable( L, 0, 4 );
        lua_pushstring( L, "hour" );
        lua_pushinteger( L, tm.hour() );
        lua_rawset( L, n+1 );
        lua_pushstring( L, "min" );
        lua_pushinteger( L, tm.minute() );
        lua_rawset( L, n+1 );
        lua_pushstring( L, "sec" );
        lua_pushinteger( L, tm.second() );
        lua_rawset( L, n+1 );
        lua_pushstring( L, "msec" );
        lua_pushinteger( L, tm.msec() );
        lua_rawset( L, n+1 );
        lua_pushstring( L, "year" );
        lua_pushinteger( L, dt.year() );
        lua_rawset( L, n+1 );
        lua_pushstring( L, "month" );
        lua_pushinteger( L, dt.month() );
        lua_rawset( L, n+1 );
        lua_pushstring( L, "day" );
        lua_pushinteger( L, dt.day() );
        lua_rawset( L, n+1 );
    }
    return 1;
}


int TLuaInterpreter::appendBuffer( lua_State *L )
{
    string a1;
    string a2;
    int s = 1;
    int n = lua_gettop( L );
    if( n > 0 )
    {
        if( ! lua_isstring( L, s ) )
        {
            lua_pushstring( L, "appendBuffer: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            a1 = lua_tostring( L, s );
            s++;
        }
    }
    Host& host = getHostFromLua(L);

    if( s == 1 )
    {
        host.mpConsole->appendBuffer();
    }
    else
    {
        QString name = a1.c_str();
        mudlet::self()->appendBuffer( &host, name );
    }

    return 0;
}

int TLuaInterpreter::appendCmdLine( lua_State * L )
{
    string luaSendText;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "appendCmdLine(): wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString curText = host.mpConsole->mpCommandLine->toPlainText();
    host.mpConsole->mpCommandLine->setPlainText( curText + QString( luaSendText.c_str() ) );
    QTextCursor cur = host.mpConsole->mpCommandLine->textCursor();
    cur.clearSelection();
    cur.movePosition(QTextCursor::EndOfLine);
    host.mpConsole->mpCommandLine->setTextCursor(cur);
    return 0;
}

int TLuaInterpreter::getCmdLine( lua_State * L )
{
    Host& host = getHostFromLua(L);
    QString curText = host.mpConsole->mpCommandLine->toPlainText();
    lua_pushstring( L, curText.toUtf8().constData() );
    return 1;
}

int TLuaInterpreter::installPackage( lua_State * L )
{
    string event;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "installPackage(): wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        event = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString package = event.c_str();
    host.installPackage( package, 0 );
    return 0;
}

int TLuaInterpreter::uninstallPackage( lua_State * L )
{
    string event;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "uninstallPackage(): wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        event = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    QString package = event.c_str();
    host.uninstallPackage( package, 0 );
    return 0;
}

int TLuaInterpreter::installModule( lua_State * L)
{
    string modName;
    if ( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "installModule: wrong first argument (should be a path to module)");
        lua_error( L );
        return 1;
    }
    else
        modName = lua_tostring( L, 1);
    Host& host = getHostFromLua(L);
    QString module = QDir::fromNativeSeparators(modName.c_str());
    if (host.installPackage(module, 3) && mudlet::self()->moduleTableVisible()) {
        mudlet::self()->layoutModules();
    }
    return 0;
}

int TLuaInterpreter::uninstallModule( lua_State * L)
{
    string modName;
    if ( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "uninstallModule: wrong first argument (should be a module name)");
        lua_error( L );
        return 1;
    }
    else
        modName = lua_tostring( L, 1);
    Host& host = getHostFromLua(L);
    QString module = modName.c_str();
    if (host.uninstallPackage(module, 3) && mudlet::self()->moduleTableVisible()) {
        mudlet::self()->layoutModules();
    }
    return 1;
}

int TLuaInterpreter::reloadModule( lua_State * L)
{
    string modName;
    if ( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "reloadModule(): wrong first argument (should be a module name)");
        lua_error( L );
        return 1;
    }
    else
        modName = lua_tostring( L, 1);
    Host& host = getHostFromLua(L);
    QString module = modName.c_str();
    host.reloadModule( module );
    return 0;
}

// Once a mapper has been created it will, by default, include the "Default
// Area" associated with the reserved area Id -1 in the list of Areas shown in
// the area selection widget.  This function will immediately hide that entry
// if given a true argument and restore it if set to false.  The setting is NOT
// saved and this function was created to address a specific need for that area
// to not be immediately shown to users for one package writer who needed to
// hide rooms until they have been "explored".  This setting is ALSO present on
// the last "Special Options" tab of the "Profile Preferences" - although it is
// hidden until there IS a mapper to apply the setting to.

// Returns true on successfully setting the desired value or false if there is
// (not yet) a map display to apply it to.  Also throws an Error or returned a
// nil value - both with an accompied error string - if there are problems.
int TLuaInterpreter::setDefaultAreaVisible( lua_State * L )
{
    Host& host = getHostFromLua(L);
    if( ! host.mpMap || ! host.mpMap->mpRoomDB ) {
        lua_pushnil( L );
        lua_pushstring(L, "setDefaultAreaVisible: no map present or loaded!");
        return 2;
    }

    if( ! lua_isboolean( L, 1 ) ) {
        lua_pushfstring(L, "setDefaultAreaVisible: bad argument #1 type (isToShowDefaultArea as boolean\n"
                           "expected, got %s!)", luaL_typename(L, 1));
        lua_error( L );
    }
    else {
        bool isToShowDefaultArea = lua_toboolean( L, 1 );
        if( host.mpMap->mpMapper ) {
            // If we are reenabled the display of the default area
            // AND the mapper was showing the default area
            // the area widget will NOT be showing the correct area name afterwards
            bool isAreaWidgetInNeedOfResetting = false;
            if(  ( ! host.mpMap->mpMapper->getDefaultAreaShown() )
              && ( isToShowDefaultArea )
              && ( host.mpMap->mpMapper->mp2dMap->mAID == -1 ) ) {
                isAreaWidgetInNeedOfResetting = true;
            }

            host.mpMap->mpMapper->setDefaultAreaShown( isToShowDefaultArea );
            if( isAreaWidgetInNeedOfResetting ) {
                // Corner case fixup:
                host.mpMap->mpMapper->showArea->setCurrentText( host.mpMap->mpRoomDB->getDefaultAreaName() );
            }
            host.mpMap->mpMapper->mp2dMap->repaint();
            host.mpMap->mpMapper->update();
            lua_pushboolean( L, true );
        }
        else {
            lua_pushboolean( L, false );
        }
    }
    return 1;
}


int TLuaInterpreter::registerAnonymousEventHandler( lua_State * L )
{
    string event;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "registerAnonymousEventHandler(): wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        event = lua_tostring( L, 1 );
    }
    string func;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "registerAnonymousEventHandler(): wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        func = lua_tostring( L, 2 );
    }
    Host& host = getHostFromLua(L);
    QString e = event.c_str();
    QString f = func.c_str();
    host.registerAnonymousEventHandler( e, f );
    return 0;
}


int TLuaInterpreter::Send( lua_State * L )
{
    string luaSendText;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "Send: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    bool wantPrint = true;
    if( lua_gettop( L ) > 1 )
    {
        if( ! lua_isboolean( L, 2 ) )
        {
            lua_pushstring( L, "Send: wrong argument type" );
            lua_error( L );
            return 1;
        }
        else
        {
            wantPrint = lua_toboolean( L, 2 );
        }
    }
    Host& host = getHostFromLua(L);
    host.send( QString( luaSendText.c_str() ), wantPrint, false );
    return 0;
}

int TLuaInterpreter::printCmdLine( lua_State * L )
{
    string luaSendText;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "printCmdLine: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mpConsole->mpCommandLine->setPlainText( QString( luaSendText.c_str() ) );
    QTextCursor cur = host.mpConsole->mpCommandLine->textCursor();
    cur.clearSelection();
    cur.movePosition(QTextCursor::EndOfLine);
    host.mpConsole->mpCommandLine->setTextCursor(cur);
    return 0;
}

int TLuaInterpreter::clearCmdLine( lua_State * L )
{
    Host& host = getHostFromLua(L);
    host.mpConsole->mpCommandLine->clear();
    return 0;
}

int TLuaInterpreter::sendRaw( lua_State * L )
{
    string luaSendText;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushfstring( L, "sendRaw: bad argument #1 (string expected, got %s)", luaL_typename(L, 1) );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    bool wantPrint = true;
    if( lua_gettop( L ) > 1 )
    {
        if( ! lua_isboolean( L, 2 ) )
        {
            lua_pushfstring( L, "sendRaw: bad argument #2 (boolean expected, got %s)", luaL_typename(L, 2) );
            lua_error( L );
            return 1;
        }
        else
        {
            wantPrint = lua_toboolean( L, 2 );
        }
    }
    Host& host = getHostFromLua(L);
    host.send( QString(luaSendText.c_str()), wantPrint, true );
    return 0;
}

int TLuaInterpreter::sendSocket( lua_State * L )
{
    string luaSendText;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "sendSocket: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        luaSendText = lua_tostring( L, 1 );
    }
    Host& host = getHostFromLua(L);
    host.mTelnet.socketOutRaw( luaSendText );
    return 0;
}

int TLuaInterpreter::sendIrc( lua_State * L )
{
    string who;
    if( ! lua_isstring( L, 1 ) )
    {
        lua_pushstring( L, "sendIrc: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        who = lua_tostring( L, 1 );
    }
    string text;
    if( ! lua_isstring( L, 2 ) )
    {
        lua_pushstring( L, "sendIrc: wrong argument type" );
        lua_error( L );
        return 1;
    }
    else
    {
        text = lua_tostring( L, 2 );
    }
    QString chan = who.c_str();
    QString txt = text.c_str();
    if( ! mudlet::self()->mpIRC ) return 0;
    mudlet::self()->mpIRC->connection->sendCommand( IrcCommand::createMessage( chan, txt ) );
    return 0;
}

int TLuaInterpreter::setServerEncoding(lua_State * L)
{
    Host& host = getHostFromLua(L);

    QString newEncoding;
    if (! lua_isstring(L, 1)) {
        lua_pushfstring(L, "setServerEncoding: bad argument #1 type (newEncoding as string expected, got %s!)",
                        luaL_typename(L, 1));
        return lua_error( L );
    }
    else {
        newEncoding = QString::fromUtf8(lua_tostring(L,1));
    }

    QPair<bool, QString> results = host.mTelnet.setEncoding(newEncoding);

    if(results.first) {
        lua_pushboolean(L, true);
        return 1;
    }
    else {
        lua_pushnil(L);
        lua_pushfstring(L, results.second.toLatin1().constData());
        return 2;
    }
}

int TLuaInterpreter::getServerEncoding(lua_State * L)
{
    Host& host = getHostFromLua(L);

    QString encoding = host.mTelnet.getEncoding();
    if(encoding.isEmpty()) {
        encoding = QLatin1String("ASCII");
    }
    lua_pushstring(L, encoding.toLatin1().constData());
    return 1;
}

int TLuaInterpreter::getServerEncodingsList(lua_State * L)
{
    Host& host = getHostFromLua(L);

    lua_newtable(L);
    lua_pushnumber(L, 1);
    lua_pushstring(L, "ASCII");
    lua_settable( L, -3);
    for (int i = 0, total = host.mTelnet.getEncodingsList().count(); i < total; ++i) {
        lua_pushnumber(L, i+2); // Lua indexes start with 1 but we already have one entry
        lua_pushstring(L, host.mTelnet.getEncodingsList().at(i).toLatin1().data());
        lua_settable(L, -3);
    }
    return 1;
}

bool TLuaInterpreter::compileAndExecuteScript(const QString & code )
{
    if( code.size() < 1 ) return false;
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return false;
    }

    int error = luaL_dostring( L, code.toLatin1().data() );
    QString n;
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( L, 1 ) )
        {
            e = "Lua error:";
            e+=lua_tostring( L, 1 );
        }
        if( mudlet::debugMode ) qDebug()<<"LUA ERROR: code did not compile: ERROR:"<<e.c_str();
        QString _n = "error in Lua code";
        QString _n2 = "no debug data available";
        logError(e, _n,_n2);
    }

    lua_pop( L, lua_gettop( L ) );

    if( error == 0 ) return true;
    else return false;
}

bool TLuaInterpreter::compileScript(const QString & code )
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return false;
    }

    /*lua_newtable( L );

    // set values
    for( int i=0; i<matches.size(); i++ )
    {
        lua_pushnumber( L, i+1 ); // Lua indexes start with 1
        lua_pushstring( L, matches[i].toLatin1().data() );
        lua_settable( L, -3 );
    }
    lua_setglobal( L, "matches" );*/

    int error = luaL_dostring( L, code.toLatin1().data() );
    QString n;
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( L, 1 ) )
        {
            e = "Lua error:";
            e+=lua_tostring( L, 1 );
        }
        if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::red))<<"LUA: code did not compile: ERROR:"<<e.c_str()<<"\n">>0;}
    }
    else
    {
        if( mudlet::debugMode ) {TDebug(QColor(Qt::white),QColor(Qt::darkGreen))<<"LUA: code compiled without errors. OK\n">>0;}
    }
    lua_pop( L, lua_gettop( L ) );

    if( error == 0 ) return true;
    else return false;
}

bool TLuaInterpreter::compile(const QString & code, QString & errorMsg, const QString & name)
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return false;
    }

    int error = (luaL_loadbuffer( L, code.toUtf8().constData(), strlen(code.toUtf8().constData()), name.toUtf8().constData() ) || lua_pcall(L, 0, 0, 0));

    QString n;
    if( error != 0 )
    {
        string e = "Lua syntax error:";
        if( lua_isstring( L, 1 ) )
        {
            e.append( lua_tostring( L, 1 ) );
        }
        errorMsg = "<b><font color='blue'>";
        errorMsg.append( e.c_str() );
        errorMsg.append("</font></b>");
        if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::red))<<"\n "<<e.c_str()<<"\n">>0;}
    }
    else
    {
        if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::darkGreen))<<"\nLUA: code compiled without errors. OK\n" >> 0;}
    }
    lua_pop( L, lua_gettop( L ) );

    if( error == 0 ) return true;
    else return false;
}

void TLuaInterpreter::setMultiCaptureGroups( const std::list< std::list<std::string> > & captureList,
                                             const std::list< std::list<int> > & posList )
{
    mMultiCaptureGroupList = captureList;
    mMultiCaptureGroupPosList = posList;

    /*std::list< std::list<string> >::const_iterator mit = mMultiCaptureGroupList.begin();

    int k=1;
    for( ; mit!=mMultiCaptureGroupList.end(); mit++, k++ )
    {
        cout << "regex#"<<k<<" got:"<<endl;
        std::list<string>::const_iterator it = (*mit).begin();
        for( int i=1; it!=(*mit).end(); it++, i++ )
        {
            cout << i<<"#"<<"<"<<*it<<">"<<endl;
        }
        cout << "-----------------------------"<<endl;
    }*/
}

void TLuaInterpreter::setCaptureGroups( const std::list<std::string> & captureList, const std::list<int> & posList )
{
    mCaptureGroupList = captureList;
    mCaptureGroupPosList = posList;

    /*std::list<string>::iterator it2 = mCaptureGroupList.begin();
    std::list<int>::iterator it1 = mCaptureGroupPosList.begin();
    int i=0;
    for( ; it1!=mCaptureGroupPosList.end(); it1++, it2++, i++ )
    {
        cout << "group#"<<i<<" begin="<<*it1<<" len="<<(*it2).size()<<"word="<<*it2<<endl;
    } */
}

void TLuaInterpreter::clearCaptureGroups()
{
    mCaptureGroupList.clear();
    mCaptureGroupPosList.clear();
    mMultiCaptureGroupList.clear();
    mMultiCaptureGroupPosList.clear();

    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
    }

    lua_newtable( L );
    lua_setglobal( L, "matches" );
    lua_newtable( L );
    lua_setglobal( L, "multimatches" );

    lua_pop( L, lua_gettop( L ) );
}


void TLuaInterpreter::adjustCaptureGroups( int x, int a )
{
    // adjust all capture group positions in line if data has been inserted by the user
    for(int & it : mCaptureGroupPosList)
    {
        if( it >= x )
        {
            it += a;
        }
    }
}

void TLuaInterpreter::setAtcpTable(const QString & var, const QString & arg )
{
    lua_State * L = pGlobalLua;
    lua_getglobal( L, "atcp" ); //defined in LuaGlobal.lua
    lua_pushstring( L, var.toLatin1().data() );
    lua_pushstring( L, arg.toLatin1().data() );
    lua_rawset( L, -3 );
    lua_pop( L, 1 );

    TEvent event;
    event.mArgumentList.append( var );
    event.mArgumentTypeList.append( ARGUMENT_TYPE_STRING );
    event.mArgumentList.append( arg );
    event.mArgumentTypeList.append( ARGUMENT_TYPE_STRING );
    Host& host = getHostFromLua(L);
    host.raiseEvent( event );
}


void TLuaInterpreter::setGMCPTable(QString & key, const QString & string_data)
{
    lua_State * L = pGlobalLua;
    lua_getglobal(L, "gmcp");   //defined in Lua init
    if( !lua_istable(L, -1) )
    {
        lua_newtable(L);
        lua_setglobal(L, "gmcp");
        lua_getglobal(L, "gmcp");
        if( !lua_istable(L, -1) )
        {
            qDebug()<<"ERROR: gmcp table not defined";
            return;
        }
    }
    parseJSON(key, string_data, "gmcp");
}
void TLuaInterpreter::setMSDPTable(QString & key, const QString & string_data)
{
    lua_State * L = pGlobalLua;
    lua_getglobal(L, "msdp");
    if( !lua_istable(L, -1) )
    {
        lua_newtable(L);
        lua_setglobal(L, "msdp");
        lua_getglobal(L, "msdp");
        if( !lua_istable(L, -1) )
        {
            qDebug()<<"ERROR: msdp table not defined";
            return;
        }
    }

    parseJSON(key, string_data, "msdp");
}

void TLuaInterpreter::parseJSON( QString & key, const QString & string_data, const QString& protocol )
{
    // key is in format of Blah.Blah or Blah.Blah.Bleh - we want to push & pre-create the tables as appropriate
    lua_State * L = pGlobalLua;
    QStringList tokenList = key.split(".");
    if( ! lua_checkstack( L, tokenList.size()+5 ) ) return;
    int i = 0;
    for( ; i<tokenList.size()-1; i++ )
    {
        lua_getfield(L, -1, tokenList[i].toLatin1().data());
        if( !lua_istable(L, -1) )
        {
            lua_pop(L, 1);
            lua_pushstring(L, tokenList[i].toLatin1().data());
            lua_newtable(L);
            lua_rawset(L, -3);
            lua_getfield(L, -1, tokenList[i].toLatin1().data());
        }
        lua_remove(L, -2);
    }
    bool __needMerge = false;
    lua_getfield(L, -1, tokenList[i].toLatin1().data());
    if( lua_istable(L, -1) )
    {
        // only merge tables (instead of replacing them) if the key has been registered as a need to merge key by the user default is Char.Status only
        if (mpHost->mGMCP_merge_table_keys.contains(key)) {
            __needMerge = true;
        }
    }
    lua_pop( L, 1 );
    if( ! __needMerge )
        lua_pushstring(L, tokenList[i].toLatin1().data());
    else
        lua_pushstring(L, "__needMerge");

    lua_getglobal(L, "json_to_value");

    if( !lua_isfunction(L, -1) )
    {
        lua_settop(L, 0);
        qDebug()<<"CRITICAL ERROR: json_to_value not defined";
        return;
    }
    lua_pushlstring(L, string_data.toLatin1().data(), string_data.size());
    int error = lua_pcall(L, 1, 1, 0);
    if( error == 0 )
    {
        // Top of stack should now contain the lua representation of json.
        lua_rawset(L, -3);
        if( __needMerge )
        {
            lua_settop(L, 0);
            lua_getglobal(L, "__gmcp_merge_gmcp_sub_tables");
            if( !lua_isfunction(L, -1) )
            {
               lua_settop(L, 0);
               qDebug()<<"CRITICAL ERROR: __gmcp_merge_gmcp_sub_tables is not defined in lua_LuaGlobal.lua";
               return;
            }
            lua_getglobal(L, "gmcp");
            i = 0;
            for( ; i<tokenList.size()-1; i++ )
            {
                lua_getfield(L, -1, tokenList[i].toLatin1().data());
                lua_remove(L, -2);
            }
            lua_pushstring( L, tokenList[i].toLatin1().data());
            lua_pcall(L, 2, 0, 0);
        }
    }
    else
    {
        {
            string e;
            if( lua_isstring( L, -1 ) )
            {
                e = "Lua error:";
                e += lua_tostring( L, -1 );
            }
            QString _n = "JSON decoder error:";
            QString _f = "json_to_value";
            logError( e, _n, _f );
        }
    }
    lua_settop(L, 0);

    // events: for key "foo.bar.top" we raise: gmcp.foo, gmcp.foo.bar and gmcp.foo.bar.top
    // with the actual key given as parameter e.g. event=gmcp.foo, param="gmcp.foo.bar"

    QString token = protocol;
    if( protocol == "msdp" )
        key.prepend("msdp.");
    else
        key.prepend("gmcp.");

    for( int k=0; k<tokenList.size(); k++ )
    {
        TEvent event;
        token.append( "." );
        token.append( tokenList[k] );
        event.mArgumentList.append( token );
        event.mArgumentTypeList.append(ARGUMENT_TYPE_STRING);
        event.mArgumentList.append( key );
        event.mArgumentTypeList.append(ARGUMENT_TYPE_STRING);
        Host& host = getHostFromLua(L);
        if( mudlet::debugMode )
        {
            QString msg = QString("\n%1 event <").arg(protocol);
            msg.append( token );
            msg.append(QString("> display(%1) to see the full content\n").arg(protocol));
            host.mpConsole->printSystemMessage(msg);
        }
        host.raiseEvent( event );
    }
    // auto-detect IRE composer
    if( tokenList.size() == 3 && tokenList.at(0) == "IRE" && tokenList.at(1) == "Composer" && tokenList.at(2) == "Edit")
    {
        QRegExp rx(R"lit(\{ "title": "(.*)", "text": "(.*)" \})lit");
        if( rx.indexIn(string_data) != -1 )
        {
            QString title = rx.cap(1);
            QString initialText = rx.cap(2);
            initialText.replace(QString(R"(\n)"), QString("\n"));
            Host& host = getHostFromLua(L);
            if( host.mTelnet.mpComposer ) return;
            host.mTelnet.mpComposer = new dlgComposer( &host );
            host.mTelnet.mpComposer->init( title, initialText );
            host.mTelnet.mpComposer->raise();
            host.mTelnet.mpComposer->show();
        }
    }
    lua_pop( L, lua_gettop( L ) );
}

#define BUFFER_SIZE 20000
void TLuaInterpreter::msdp2Lua(char *src, int srclen)
{
    qDebug()<<"<MSDP><"<<src<<">";
    QStringList varList;
    QString lastVar;
    int i, nest, last;
    nest = last = 0;
    i = 0;
    QString script;// = "{";
// N/U:     bool isSet = false;
    bool no_array_marker_bug = false;
    while (i < srclen)
    {
        switch (src[i])
        {
            case MSDP_TABLE_OPEN:
                script.append("{");
                nest++;
                last = MSDP_TABLE_OPEN;
                break;
            case MSDP_TABLE_CLOSE:
                if (last == MSDP_VAL || last == MSDP_VAR)
                {
                    script.append(R"(")");
                }
                if (nest)
                {
                    nest--;
                }
                script.append("}");
                last = MSDP_TABLE_CLOSE;
                break;
            case MSDP_ARRAY_OPEN:
                script.append("[");
                nest++;
                last = MSDP_ARRAY_OPEN;
                break;
            case MSDP_ARRAY_CLOSE:
                if (last == MSDP_VAL || last == MSDP_VAR)
                {
                    script.append(R"(")");
                }
                if (nest)
                {
                    nest--;
                }
                script.append("]");
                last = MSDP_ARRAY_CLOSE;
                break;
            case MSDP_VAR:
                if (nest)
                {
                    if (last == MSDP_VAL || last == MSDP_VAR)
                    {
                        script.append(R"(")");
                    }
                    if (last == MSDP_VAL || last == MSDP_VAR || last == MSDP_TABLE_CLOSE || last == MSDP_ARRAY_CLOSE)
                    {
                        script.append(",");
                    }
                    script.append(R"(")");
                }
                else
                {
                   script.append(R"(")");

                   if( varList.size() )
                   {
                       script = script.replace(0,varList.front().size()+3,"");
                       QString token = varList.front();
                       token = token.replace(R"(")","");
                       //qDebug()<<"[SET]<Token><"<<token<<"><JSON><"<<script<<">";
                       setMSDPTable(token, script);
                       varList.clear();
                       script.clear();
// N/U:                       isSet = true;
                   }
                }
                last = MSDP_VAR;
                lastVar.clear();
                break;

            case MSDP_VAL:
                if (last == MSDP_VAR)
                {
                    script.append(R"(":)");
                }
                if (last == MSDP_VAL)
                {
                    no_array_marker_bug = true;
                    script.append(R"(",)");
                }
                if (src[i+1] != MSDP_TABLE_OPEN && src[i+1] != MSDP_ARRAY_OPEN)
                {
                    script.append(R"(")");
                }
                varList.append(lastVar);
                last = MSDP_VAL;
                break;
            case '\\':
                script.append(R"(\\)");
                break;
            case '"':
                script.append(R"(\")");
                break;
            default:
                script.append(src[i]);
                lastVar.append(src[i]);
                break;
        }
        i++;
    }
    if( last != MSDP_ARRAY_CLOSE && last != MSDP_TABLE_CLOSE )
    {
        script.append(R"(")");
        if( !script.startsWith('"'))
            script.prepend('"');
    }
    if( varList.size() )
    {
        //qDebug()<<"<script>"<<script;
// N/U:         int startVal = script.indexOf(":")+1;
        QString token = varList.front();
        token = token.replace(R"(")","");
        script = script.replace(0,token.size()+3, "");
        if( no_array_marker_bug )
        {
            if( !script.startsWith('['))
            {
                script.prepend('[');
                script.append(']');
            }
        }
        //qDebug()<<"[END]<Token>"<<token<<"<JSON>"<<script;
        setMSDPTable(token, script);
    }
}

void TLuaInterpreter::setChannel102Table( int & var, int & arg )
{
    lua_State * L = pGlobalLua;
    lua_getglobal( L, "channel102" ); //defined in LuaGlobal.lua
    lua_pushnumber( L, var );
    lua_pushnumber( L, arg );
    lua_rawset( L, -3 );
    lua_pop( L, 1 );

    TEvent event;
    event.mArgumentList.append(QLatin1String("channel102Message"));
    event.mArgumentTypeList.append( ARGUMENT_TYPE_STRING );
    event.mArgumentList.append( QString::number(var) );
    event.mArgumentTypeList.append( ARGUMENT_TYPE_NUMBER );
    event.mArgumentList.append( QString::number(arg) );
    event.mArgumentTypeList.append( ARGUMENT_TYPE_NUMBER );
    Host& host = getHostFromLua(L);
    host.raiseEvent( event );
}

bool TLuaInterpreter::call_luafunction( void * pT )
{
    lua_State * L = pGlobalLua;
    lua_pushlightuserdata( L, pT );
    lua_gettable( L, LUA_REGISTRYINDEX );
    if( lua_isfunction( L, -1 ) )
    {
        int error = lua_pcall( L, 0, LUA_MULTRET, 0 );
        if( error != 0 )
        {
            int nbpossible_errors = lua_gettop(L);
            for (int i=1; i<=nbpossible_errors; i++)
            {
                string e = "";
                if(lua_isstring( L, i) )
                {
                    e = "Lua error:";
                    e+=lua_tostring( L, i );
                    QString _n = "error in anonymous Lua function";
                    QString _n2 = "no debug data available";
                    logError( e, _n, _n2 );
                    if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::red))<<"LUA: ERROR running anonymous Lua function ERROR:"<<e.c_str()>>0;}
                }
            }
        }
        else
        {
            if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::darkGreen))<<"LUA OK anonymous Lua function ran without errors\n">>0;}
        }
        lua_pop( L, lua_gettop( L ) );
        //lua_settop(L, 0);
        if( error == 0 )
            return true;
        else
            return false;
    }
    else
    {
        QString _n = "error in anonymous Lua function";
        QString _n2 = "func reference not found by Lua, func can not be called";
        string e = "Lua error:";
        logError( e, _n, _n2 );
    }

    return false;
}


bool TLuaInterpreter::call(const QString & function, const QString & mName )
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return false;
    }

    if( mCaptureGroupList.size() > 0 )
    {
        lua_newtable( L );

        // set values
        int i=1; // Lua indexes start with 1 as a general convention
        for(auto it = mCaptureGroupList.begin(); it!=mCaptureGroupList.end(); it++, i++ )
        {
            //if( (*it).length() < 1 ) continue; //have empty capture groups to be undefined keys i.e. machts[emptyCapGroupNumber] = nil otherwise it's = "" i.e. an empty string
            lua_pushnumber( L, i );
            lua_pushstring( L, (*it).c_str() );
            lua_settable( L, -3 );
        }
        lua_setglobal( L, "matches" );
    }

    lua_getglobal( L, function.toLatin1().data() );
    lua_getfield( L, LUA_GLOBALSINDEX, function.toLatin1().data() );
    int error = lua_pcall( L, 0, LUA_MULTRET, 0 );
    if( error != 0 )
    {
        int nbpossible_errors = lua_gettop(L);
        for (int i=1; i<=nbpossible_errors; i++)
        {
            string e = "";
            if(lua_isstring( L, i) )
            {
                e += lua_tostring( L, i );
                logError( e, mName, function );
                if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::red))<<"LUA: ERROR running script "<< mName << " (" << function <<") ERROR:"<<e.c_str()<<"\n">>0;}
            }
        }
    }
    else
    {
        if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::darkGreen))<<"LUA OK script "<<mName << " (" << function <<") ran without errors\n">>0;}
    }
    lua_pop( L, lua_gettop( L ) );
    if( error == 0 ) return true;
    else return false;
}

void TLuaInterpreter::logError( std::string & e, const QString & name, const QString & function )
{
    auto blue = QColor(Qt::blue);
    auto green = QColor(Qt::green);
    auto red = QColor(Qt::red);
    auto black = QColor(Qt::black);
    QString s1 = QString("[ERROR:]");
    QString s2 = QString(" object:<%1> function:<%2>\n").arg(name, function);
    QString s3 = QString("         <%1>\n").arg(e.c_str());
    QString msg = QString("[  LUA  ] - Object<%1> Function<%2>\n<%3>").arg(name, function, e.c_str());

    if (mpHost->mpEditorDialog) {
        mpHost->mpEditorDialog->mpErrorConsole->printDebug(blue, black, s1);
        mpHost->mpEditorDialog->mpErrorConsole->printDebug(green, black, s2);
        mpHost->mpEditorDialog->mpErrorConsole->printDebug(red, black, s3);
    }

    if (mpHost->mEchoLuaErrors) {
        // ensure the Lua error is on a line of it's own and is not prepended to the previous line
        if (mpHost->mpConsole->buffer.size() > 0) {
            if (!mpHost->mpConsole->buffer.lineBuffer.at(mpHost->mpConsole->buffer.lineBuffer.size() - 1).isEmpty()) {
                mpHost->postMessage("\n");
            }
        }

        mpHost->postMessage(msg);
    }
}

bool TLuaInterpreter::callConditionFunction( std::string & function, const QString & mName )
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return false;
    }

    lua_getfield( L, LUA_GLOBALSINDEX, function.c_str() );
    int error = lua_pcall( L, 0, 1, 0 );
    if( error != 0 )
    {
        int nbpossible_errors = lua_gettop(L);
        for (int i=1; i<=nbpossible_errors; i++)
        {
            string e = "";
            if(lua_isstring( L, i) )
            {
                e+=lua_tostring( L, i );
                QString _f = function.c_str();
                logError( e, mName, _f );
                if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::red))<<"LUA: ERROR running script "<< mName << " (" << function.c_str() <<") ERROR:"<<e.c_str()<<"\n">>0;}
            }
        }
    }
    else
    {
        if( mudlet::debugMode ){ TDebug(QColor(Qt::white),QColor(Qt::darkGreen))<<"LUA OK script "<<mName << " (" << function.c_str() <<") ran without errors\n">>0;}
    }

    int ret = 0;
    int returnValues = lua_gettop( L );
    if( returnValues > 0 )
    {
        // Lua docs: Like all tests in Lua, lua_toboolean returns 1 for any Lua value different from false and nil; otherwise it returns 0
        // This means trigger patterns don't have to strictly return true or false, as it is accepted in Lua */
        ret = lua_toboolean( L, 1 );
    }
    lua_pop( L, returnValues );
    if( (error == 0) && (ret>0) )
    {
        return true;
    }
    else
    {
        return false;
    }
}

bool TLuaInterpreter::callMulti(const QString & function, const QString & mName )
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return false;
    }

    if( mMultiCaptureGroupList.size() > 0 )
    {
        int k=1; // Lua indexes start with 1 as a general convention
        lua_newtable( L );//multimatches
        for( auto mit = mMultiCaptureGroupList.begin(); mit!=mMultiCaptureGroupList.end(); mit++, k++ )
        {
            // multimatches{ trigger_idx{ table_matches{ ... } } }
            lua_pushnumber( L, k );
            lua_newtable( L );//regex-value => table matches
            int i=1; // Lua indexes start with 1 as a general convention
            for( auto it = (*mit).begin(); it!=(*mit).end(); it++, i++ )
            {
                lua_pushnumber( L, i );
                lua_pushstring( L, (*it).c_str() );
                lua_settable( L, -3 );//match in matches
            }
            lua_settable( L, -3 );//matches in regex
        }
        lua_setglobal( L, "multimatches" );
    }

    lua_getglobal( L, function.toLatin1().data() );
    lua_getfield( L, LUA_GLOBALSINDEX, function.toLatin1().data() );
    int error = lua_pcall( L, 0, LUA_MULTRET, 0 );
    if( error != 0 )
    {
        int nbpossible_errors = lua_gettop(L);
        for (int i=1; i<=nbpossible_errors; i++)
        {
            string e = "";
            if(lua_isstring( L, i) )
            {
                e += lua_tostring( L, i );
                logError( e, mName, function );
                if( mudlet::debugMode ) {TDebug(QColor(Qt::white),QColor(Qt::red))<<"LUA: ERROR running script "<< mName << " (" << function <<") ERROR:"<<e.c_str()<<"\n">>0;}
            }
        }
    }
    else
    {
        if( mudlet::debugMode ) {TDebug(QColor(Qt::white),QColor(Qt::darkGreen))<<"LUA OK script "<<mName << " (" << function <<") ran without errors\n">>0;}
    }
    lua_pop( L, lua_gettop( L ) );
    if( error == 0 ) return true;
    else return false;
}


bool TLuaInterpreter::callEventHandler( const QString & function, const TEvent & pE )
{
    if( function.isEmpty() ) {
        return false;
    }

    lua_State * L = pGlobalLua;

    int error = luaL_dostring( L, QStringLiteral( "return %1" ).arg( function ).toUtf8().constData() );
    if( error ) {
        string err;
        if( lua_isstring( L, 1 ) ) {
            err = "Lua error:";
            err += lua_tostring( L, 1 );
        }
        QString name = "event handler function";
        logError( err, name, function );
        return false;
    }

    for( int i=0; i<pE.mArgumentList.size(); i++ ) {
        switch( pE.mArgumentTypeList.at(i) ) {
        case ARGUMENT_TYPE_NUMBER:  lua_pushnumber( L, pE.mArgumentList.at(i).toDouble() );                     break;
        case ARGUMENT_TYPE_STRING:  lua_pushstring( L, pE.mArgumentList.at(i).toUtf8().constData() );           break;
        case ARGUMENT_TYPE_BOOLEAN: lua_pushboolean( L, pE.mArgumentList.at(i).toInt() );                       break;
        case ARGUMENT_TYPE_NIL:     lua_pushnil( L );                                                           break;
        default:
            qWarning( R"(TLuaInterpreter::callEventHandler("%s", TEvent) ERROR: Unhandled ARGUMENT_TYPE: %i encountered in argument %i.)",
                      function.toUtf8().constData(),
                      pE.mArgumentTypeList.at(i), i );
            lua_pushnil( L );
        }
    }

    error = lua_pcall( L, pE.mArgumentList.size(), LUA_MULTRET, 0 );
    if( error ) {
        string err = "";
        if(lua_isstring( L, -1) ) {
            err += lua_tostring( L, -1 );
        }
        QString name = "event handler function";
        logError( err, name, function );
        if( mudlet::debugMode ) {
            TDebug( QColor(Qt::white), QColor(Qt::red) ) << "LUA: ERROR running script "
                                                         << function
                                                         << " ("
                                                         << function
                                                         << ")\nError: "
                                                         << QString::fromUtf8( err.c_str() )
                                                         << "\n"
                                                         >> 0;
        }
    }

    lua_pop( L, lua_gettop( L ) );
    return ! error;
}

void TLuaInterpreter::set_lua_table(const QString & tableName, QStringList & variableList )
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return;
    }
    lua_newtable(L);
    for( int i=0; i<variableList.size(); i++ )
    {
        lua_pushnumber( L, i+1 ); // Lua indexes start with 1
        lua_pushstring( L, variableList[i].toUtf8().constData() );
        lua_settable( L, -3 );
    }
    lua_setglobal( L, tableName.toUtf8().constData() );
    lua_pop( pGlobalLua, lua_gettop( pGlobalLua ) );
}

void TLuaInterpreter::set_lua_string( const QString & varName, const QString & varValue )
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return;
    }

    lua_pushstring( L, varValue.toUtf8().constData() );
    lua_setglobal( L, varName.toUtf8().constData() );
    lua_pop( pGlobalLua, lua_gettop( pGlobalLua ) );

}

QString TLuaInterpreter::get_lua_string(const QString & stringName )
{
    lua_State * L = pGlobalLua;
    if( ! L )
    {
        qDebug()<< "LUA CRITICAL ERROR: no suitable Lua execution unit found.";
        return QString( "LUA CRITICAL ERROR" );
    }

    lua_getglobal( L, stringName.toUtf8().constData() );
    lua_getfield( L, LUA_GLOBALSINDEX, stringName.toUtf8().constData() );
    return QString( lua_tostring( L, 1 ) );
}

int TLuaInterpreter::noop( lua_State * L )
{
    return 0;
}

int TLuaInterpreter::check_for_mappingscript()
{
    lua_State * L = pGlobalLua;
    lua_getglobal(L, "mudlet");
    if( !lua_istable(L, -1) ) {
        lua_pop( L, 1 );
        return 0;
    }

    lua_getfield(L, -1, "mapper_script");
    if( !lua_isboolean(L, -1) ) {
        lua_pop( L, 2 );
        return 0;
    }

    int r = lua_toboolean(L, -1);
    lua_pop( L, 2 );
    return r;
}

#if defined(_MSC_VER) && defined(_DEBUG)
// Enable leak detection for MSVC debug builds.

#define LUA_CLIENT_TYPE (_CLIENT_BLOCK | ((('L' << 8) | 'U') << 16))

static void* l_alloc(void* ud, void* ptr, size_t osize, size_t nsize)
{
    (void)ud;
    (void)osize;
    if (nsize == 0) {
        ::_free_dbg(ptr, LUA_CLIENT_TYPE);
        return NULL;
    } else {
        return ::_realloc_dbg(ptr, nsize, LUA_CLIENT_TYPE, __FILE__, __LINE__);
    }
}

static int panic(lua_State* L)
{
    fprintf(stderr, "PANIC: unprotected error in call to Lua API (%s)\n",
            lua_tostring(L, -1));
    return 0;
}

static lua_State* newstate()
{
    lua_State* L = lua_newstate(l_alloc, NULL);
    if (L) {
        lua_atpanic(L, &panic);
    }
    return L;
}

#else

static lua_State* newstate()
{
    return luaL_newstate();
}

#endif // _MSC_VER && _DEBUG

static void storeHostInLua(lua_State *L, Host *h);

// this function initializes the Lua Session interpreter.
// on initialization of a new session *or* in case of an interpreter reset by the user.
void TLuaInterpreter::initLuaGlobals()
{
    pGlobalLua = newstate();
    storeHostInLua(pGlobalLua, mpHost);

    luaL_openlibs( pGlobalLua );

    lua_pushstring( pGlobalLua, "SESSION" );
    lua_pushnumber( pGlobalLua, mHostID );
    lua_settable( pGlobalLua, LUA_GLOBALSINDEX );

    lua_pushstring( pGlobalLua, "SCRIPT_NAME" );
    lua_pushstring( pGlobalLua, "Global Lua Session Interpreter" );
    lua_settable( pGlobalLua, LUA_GLOBALSINDEX );

    lua_pushstring( pGlobalLua, "SCRIPT_ID" );
    lua_pushnumber( pGlobalLua, -1 ); // ID 1 is used to indicate that this is the global Lua interpreter
    lua_settable( pGlobalLua, LUA_GLOBALSINDEX );
    lua_register( pGlobalLua, "showUnzipProgress", TLuaInterpreter::showUnzipProgress );//internal function used by the package system NOT FOR USERS
    lua_register( pGlobalLua, "wait", TLuaInterpreter::Wait );
    lua_register( pGlobalLua, "expandAlias", TLuaInterpreter::Send );
    lua_register( pGlobalLua, "echo", TLuaInterpreter::Echo );
    lua_register( pGlobalLua, "selectString", TLuaInterpreter::selectString );
    lua_register( pGlobalLua, "selectSection", TLuaInterpreter::selectSection );
    lua_register( pGlobalLua, "replace", TLuaInterpreter::replace );
    lua_register( pGlobalLua, "setBgColor", TLuaInterpreter::setBgColor );
    lua_register( pGlobalLua, "setFgColor", TLuaInterpreter::setFgColor );
    lua_register( pGlobalLua, "tempTimer", TLuaInterpreter::tempTimer );
    lua_register( pGlobalLua, "tempTrigger", TLuaInterpreter::tempTrigger );
    lua_register( pGlobalLua, "tempRegexTrigger", TLuaInterpreter::tempRegexTrigger );
    lua_register( pGlobalLua, "closeMudlet", TLuaInterpreter::closeMudlet );
    lua_register( pGlobalLua, "loadWindowLayout", TLuaInterpreter::loadWindowLayout );
    lua_register( pGlobalLua, "saveWindowLayout", TLuaInterpreter::saveWindowLayout );
    lua_register( pGlobalLua, "openUserWindow", TLuaInterpreter::openUserWindow );
    lua_register( pGlobalLua, "echoUserWindow", TLuaInterpreter::echoUserWindow );
    lua_register( pGlobalLua, "enableTimer", TLuaInterpreter::enableTimer );
    lua_register( pGlobalLua, "disableTimer", TLuaInterpreter::disableTimer );
    lua_register( pGlobalLua, "enableKey", TLuaInterpreter::enableKey );
    lua_register( pGlobalLua, "disableKey", TLuaInterpreter::disableKey );
    lua_register( pGlobalLua, "killKey", TLuaInterpreter::killKey );
    lua_register( pGlobalLua, "clearUserWindow", TLuaInterpreter::clearUserWindow );
    lua_register( pGlobalLua, "clearWindow", TLuaInterpreter::clearUserWindow );
    lua_register( pGlobalLua, "killTimer", TLuaInterpreter::killTimer );
    lua_register( pGlobalLua, "moveCursor", TLuaInterpreter::moveCursor );
    lua_register( pGlobalLua, "getLines", TLuaInterpreter::getLines );
    lua_register( pGlobalLua, "getLineNumber", TLuaInterpreter::getLineNumber );
    lua_register( pGlobalLua, "insertHTML", TLuaInterpreter::insertHTML );
    lua_register( pGlobalLua, "insertText", TLuaInterpreter::insertText );
    lua_register( pGlobalLua, "enableTrigger", TLuaInterpreter::enableTrigger );
    lua_register( pGlobalLua, "disableTrigger", TLuaInterpreter::disableTrigger );
    lua_register( pGlobalLua, "killTrigger", TLuaInterpreter::killTrigger );
    lua_register( pGlobalLua, "getLineCount", TLuaInterpreter::getLineCount );
    lua_register( pGlobalLua, "getColumnNumber", TLuaInterpreter::getColumnNumber );
    lua_register( pGlobalLua, "send", TLuaInterpreter::sendRaw );
    lua_register( pGlobalLua, "selectCaptureGroup", TLuaInterpreter::selectCaptureGroup );
    lua_register( pGlobalLua, "tempLineTrigger", TLuaInterpreter::tempLineTrigger );
    lua_register( pGlobalLua, "raiseEvent", TLuaInterpreter::raiseEvent );
    lua_register( pGlobalLua, "deleteLine", TLuaInterpreter::deleteLine );
    lua_register( pGlobalLua, "copy", TLuaInterpreter::copy );
    lua_register( pGlobalLua, "cut", TLuaInterpreter::cut );
    lua_register( pGlobalLua, "paste", TLuaInterpreter::paste );
    lua_register( pGlobalLua, "pasteWindow", TLuaInterpreter::pasteWindow );
    lua_register( pGlobalLua, "debugc", TLuaInterpreter::debug );
    lua_register( pGlobalLua, "setWindowWrap", TLuaInterpreter::setWindowWrap );
    lua_register( pGlobalLua, "setWindowWrapIndent", TLuaInterpreter::setWindowWrapIndent );
    lua_register( pGlobalLua, "resetFormat", TLuaInterpreter::resetFormat );
    lua_register( pGlobalLua, "moveCursorEnd", TLuaInterpreter::moveCursorEnd );
    lua_register( pGlobalLua, "getLastLineNumber", TLuaInterpreter::getLastLineNumber );
    lua_register( pGlobalLua, "getNetworkLatency", TLuaInterpreter::getNetworkLatency );
    lua_register( pGlobalLua, "createMiniConsole", TLuaInterpreter::createMiniConsole );
    lua_register( pGlobalLua, "createLabel", TLuaInterpreter::createLabel );
    lua_register( pGlobalLua, "raiseWindow", TLuaInterpreter::raiseWindow );
    lua_register( pGlobalLua, "lowerWindow", TLuaInterpreter::lowerWindow );
    lua_register( pGlobalLua, "hideWindow", TLuaInterpreter::hideUserWindow );
    lua_register( pGlobalLua, "showWindow", TLuaInterpreter::showUserWindow );
    lua_register( pGlobalLua, "createBuffer", TLuaInterpreter::createBuffer );
    lua_register( pGlobalLua, "createStopWatch", TLuaInterpreter::createStopWatch );
    lua_register( pGlobalLua, "getStopWatchTime", TLuaInterpreter::getStopWatchTime );
    lua_register( pGlobalLua, "stopStopWatch", TLuaInterpreter::stopStopWatch );
    lua_register( pGlobalLua, "startStopWatch", TLuaInterpreter::startStopWatch );
    lua_register( pGlobalLua, "resetStopWatch", TLuaInterpreter::resetStopWatch );
    lua_register( pGlobalLua, "closeUserWindow", TLuaInterpreter::closeUserWindow );
    lua_register( pGlobalLua, "resizeWindow", TLuaInterpreter::resizeUserWindow );
    lua_register( pGlobalLua, "appendBuffer", TLuaInterpreter::appendBuffer );
    lua_register( pGlobalLua, "setBackgroundImage", TLuaInterpreter::setBackgroundImage );
    lua_register( pGlobalLua, "setBackgroundColor", TLuaInterpreter::setBackgroundColor );
    lua_register( pGlobalLua, "createButton", TLuaInterpreter::createButton );
    lua_register( pGlobalLua, "setLabelClickCallback", TLuaInterpreter::setLabelClickCallback );
    lua_register( pGlobalLua, "setLabelReleaseCallback", TLuaInterpreter::setLabelReleaseCallback );
    lua_register( pGlobalLua, "setLabelOnEnter", TLuaInterpreter::setLabelOnEnter );
    lua_register( pGlobalLua, "setLabelOnLeave", TLuaInterpreter::setLabelOnLeave );
    lua_register( pGlobalLua, "moveWindow", TLuaInterpreter::moveWindow );
    lua_register( pGlobalLua, "setTextFormat", TLuaInterpreter::setTextFormat );
    lua_register( pGlobalLua, "getMainWindowSize", TLuaInterpreter::getMainWindowSize );
    lua_register( pGlobalLua, "getMousePosition", TLuaInterpreter::getMousePosition );
    lua_register( pGlobalLua, "getCurrentLine", TLuaInterpreter::getCurrentLine );
    lua_register( pGlobalLua, "setMiniConsoleFontSize", TLuaInterpreter::setMiniConsoleFontSize );
    lua_register( pGlobalLua, "selectCurrentLine", TLuaInterpreter::selectCurrentLine );
    lua_register( pGlobalLua, "spawn", TLuaInterpreter::spawn );
    lua_register( pGlobalLua, "getButtonState", TLuaInterpreter::getButtonState );
    lua_register( pGlobalLua, "showToolBar", TLuaInterpreter::showToolBar );
    lua_register( pGlobalLua, "hideToolBar", TLuaInterpreter::hideToolBar );
    lua_register( pGlobalLua, "loadRawFile", TLuaInterpreter::loadRawFile );
    lua_register( pGlobalLua, "setBold", TLuaInterpreter::setBold );
    lua_register( pGlobalLua, "setItalics", TLuaInterpreter::setItalics );
    lua_register( pGlobalLua, "setUnderline", TLuaInterpreter::setUnderline );
    lua_register( pGlobalLua, "setStrikeOut", TLuaInterpreter::setStrikeOut );
    lua_register( pGlobalLua, "disconnect", TLuaInterpreter::disconnect );
    lua_register( pGlobalLua, "tempButtonToolbar", TLuaInterpreter::tempButtonToolbar );
    lua_register( pGlobalLua, "tempButton", TLuaInterpreter::tempButton );
    lua_register( pGlobalLua, "reconnect", TLuaInterpreter::reconnect );
    lua_register( pGlobalLua, "getMudletHomeDir", TLuaInterpreter::getMudletHomeDir );
    lua_register( pGlobalLua, "getMudletLuaDefaultPaths", TLuaInterpreter::getMudletLuaDefaultPaths );
    lua_register( pGlobalLua, "setTriggerStayOpen", TLuaInterpreter::setTriggerStayOpen );
    lua_register( pGlobalLua, "wrapLine", TLuaInterpreter::wrapLine );
    lua_register( pGlobalLua, "getFgColor", TLuaInterpreter::getFgColor );
    lua_register( pGlobalLua, "getBgColor", TLuaInterpreter::getBgColor );
    lua_register( pGlobalLua, "tempColorTrigger", TLuaInterpreter::tempColorTrigger );
    lua_register( pGlobalLua, "isAnsiFgColor", TLuaInterpreter::isAnsiFgColor );
    lua_register( pGlobalLua, "isAnsiBgColor", TLuaInterpreter::isAnsiBgColor );
    lua_register( pGlobalLua, "stopSounds", TLuaInterpreter::stopSounds );
    lua_register( pGlobalLua, "playSoundFile", TLuaInterpreter::playSoundFile );
    lua_register( pGlobalLua, "setBorderTop", TLuaInterpreter::setBorderTop );
    lua_register( pGlobalLua, "setBorderBottom", TLuaInterpreter::setBorderBottom );
    lua_register( pGlobalLua, "setBorderLeft", TLuaInterpreter::setBorderLeft );
    lua_register( pGlobalLua, "setBorderRight", TLuaInterpreter::setBorderRight );
    lua_register( pGlobalLua, "setBorderColor", TLuaInterpreter::setBorderColor );
    lua_register( pGlobalLua, "setConsoleBufferSize", TLuaInterpreter::setConsoleBufferSize );
    lua_register( pGlobalLua, "startLogging", TLuaInterpreter::startLogging );
    lua_register( pGlobalLua, "calcFontSize", TLuaInterpreter::calcFontSize );
    lua_register( pGlobalLua, "permRegexTrigger", TLuaInterpreter::permRegexTrigger );
    lua_register( pGlobalLua, "permSubstringTrigger", TLuaInterpreter::permSubstringTrigger );
    lua_register( pGlobalLua, "permBeginOfLineStringTrigger", TLuaInterpreter::permBeginOfLineStringTrigger );
    lua_register( pGlobalLua, "tempComplexRegexTrigger", TLuaInterpreter::tempComplexRegexTrigger );
    lua_register( pGlobalLua, "permTimer", TLuaInterpreter::permTimer );
    lua_register( pGlobalLua, "permAlias", TLuaInterpreter::permAlias );
    lua_register( pGlobalLua, "permKey", TLuaInterpreter::permKey );
    lua_register( pGlobalLua, "tempKey", TLuaInterpreter::tempKey );
    lua_register( pGlobalLua, "exists", TLuaInterpreter::exists );
    lua_register( pGlobalLua, "isActive", TLuaInterpreter::isActive );
    lua_register( pGlobalLua, "enableAlias", TLuaInterpreter::enableAlias );
    lua_register( pGlobalLua, "tempAlias", TLuaInterpreter::tempAlias );
    lua_register( pGlobalLua, "disableAlias", TLuaInterpreter::disableAlias );
    lua_register( pGlobalLua, "killAlias", TLuaInterpreter::killAlias );
    lua_register( pGlobalLua, "setLabelStyleSheet", TLuaInterpreter::setLabelStyleSheet );
    lua_register( pGlobalLua, "getTime", TLuaInterpreter::getTime );
    lua_register( pGlobalLua, "invokeFileDialog", TLuaInterpreter::invokeFileDialog );
    lua_register( pGlobalLua, "getTimestamp", TLuaInterpreter::getTimestamp );
    lua_register( pGlobalLua, "setLink", TLuaInterpreter::setLink );
    lua_register( pGlobalLua, "deselect", TLuaInterpreter::deselect );
    lua_register( pGlobalLua, "insertLink", TLuaInterpreter::insertLink );
    lua_register( pGlobalLua, "echoLink", TLuaInterpreter::echoLink );
    lua_register( pGlobalLua, "echoPopup", TLuaInterpreter::echoPopup );
    lua_register( pGlobalLua, "insertPopup", TLuaInterpreter::insertPopup );
    lua_register( pGlobalLua, "setPopup", TLuaInterpreter::setPopup );
    lua_register( pGlobalLua, "sendATCP", TLuaInterpreter::sendATCP );
    lua_register( pGlobalLua, "hasFocus", TLuaInterpreter::hasFocus );
    lua_register( pGlobalLua, "isPrompt", TLuaInterpreter::isPrompt );
    lua_register( pGlobalLua, "feedTriggers", TLuaInterpreter::feedTriggers );
    lua_register( pGlobalLua, "sendTelnetChannel102", TLuaInterpreter::sendTelnetChannel102 );
    lua_register( pGlobalLua, "setRoomWeight", TLuaInterpreter::setRoomWeight );
    lua_register( pGlobalLua, "getRoomWeight", TLuaInterpreter::getRoomWeight );
    lua_register( pGlobalLua, "gotoRoom", TLuaInterpreter::gotoRoom );
    lua_register( pGlobalLua, "setMapperView", TLuaInterpreter::setMapperView );
    lua_register( pGlobalLua, "getRoomExits", TLuaInterpreter::getRoomExits );
    lua_register( pGlobalLua, "lockRoom", TLuaInterpreter::lockRoom );
    lua_register( pGlobalLua, "createMapper", TLuaInterpreter::createMapper );
    lua_register( pGlobalLua, "getMainConsoleWidth", TLuaInterpreter::getMainConsoleWidth );
    lua_register( pGlobalLua, "resetProfile", TLuaInterpreter::resetProfile );
    lua_register( pGlobalLua, "printCmdLine", TLuaInterpreter::printCmdLine );
    lua_register( pGlobalLua, "searchRoom", TLuaInterpreter::searchRoom );
    lua_register( pGlobalLua, "clearCmdLine", TLuaInterpreter::clearCmdLine );
    lua_register( pGlobalLua, "getAreaTable", TLuaInterpreter::getAreaTable );
    lua_register( pGlobalLua, "getAreaTableSwap", TLuaInterpreter::getAreaTableSwap );
    lua_register( pGlobalLua, "getAreaRooms", TLuaInterpreter::getAreaRooms );
    lua_register( pGlobalLua, "getPath", TLuaInterpreter::getPath );
    lua_register( pGlobalLua, "centerview", TLuaInterpreter::centerview );
    lua_register( pGlobalLua, "denyCurrentSend", TLuaInterpreter::denyCurrentSend );
    lua_register( pGlobalLua, "tempBeginOfLineTrigger", TLuaInterpreter::tempBeginOfLineTrigger );
    lua_register( pGlobalLua, "tempExactMatchTrigger", TLuaInterpreter::tempExactMatchTrigger );
    lua_register( pGlobalLua, "sendGMCP", TLuaInterpreter::sendGMCP );
    lua_register( pGlobalLua, "roomExists", TLuaInterpreter::roomExists );
    lua_register( pGlobalLua, "addRoom", TLuaInterpreter::addRoom );
    lua_register( pGlobalLua, "setExit", TLuaInterpreter::setExit );
    lua_register( pGlobalLua, "setRoomCoordinates", TLuaInterpreter::setRoomCoordinates );
    lua_register( pGlobalLua, "getRoomCoordinates", TLuaInterpreter::getRoomCoordinates );
    lua_register( pGlobalLua, "createRoomID", TLuaInterpreter::createRoomID );
    lua_register( pGlobalLua, "getRoomArea", TLuaInterpreter::getRoomArea );
    lua_register( pGlobalLua, "setRoomArea", TLuaInterpreter::setRoomArea );
    lua_register( pGlobalLua, "resetRoomArea", TLuaInterpreter::resetRoomArea );
    lua_register( pGlobalLua, "setAreaName", TLuaInterpreter::setAreaName );
    lua_register( pGlobalLua, "roomLocked", TLuaInterpreter::roomLocked );
    lua_register( pGlobalLua, "setCustomEnvColor", TLuaInterpreter::setCustomEnvColor );
    lua_register( pGlobalLua, "getCustomEnvColorTable", TLuaInterpreter::getCustomEnvColorTable );
    lua_register( pGlobalLua, "setRoomEnv", TLuaInterpreter::setRoomEnv );
    lua_register( pGlobalLua, "setRoomName", TLuaInterpreter::setRoomName );
    lua_register( pGlobalLua, "getRoomName", TLuaInterpreter::getRoomName );
    lua_register( pGlobalLua, "setGridMode", TLuaInterpreter::setGridMode );
    lua_register( pGlobalLua, "solveRoomCollisions", TLuaInterpreter::solveRoomCollisions );
    lua_register( pGlobalLua, "addSpecialExit", TLuaInterpreter::addSpecialExit );
    lua_register( pGlobalLua, "removeSpecialExit", TLuaInterpreter::removeSpecialExit );
    lua_register( pGlobalLua, "getSpecialExits", TLuaInterpreter::getSpecialExits );
    lua_register( pGlobalLua, "getSpecialExitsSwap", TLuaInterpreter::getSpecialExitsSwap );
    lua_register( pGlobalLua, "clearSpecialExits", TLuaInterpreter::clearSpecialExits );
    lua_register( pGlobalLua, "getRoomEnv", TLuaInterpreter::getRoomEnv );
    lua_register( pGlobalLua, "getRoomUserData", TLuaInterpreter::getRoomUserData );
    lua_register( pGlobalLua, "setRoomUserData", TLuaInterpreter::setRoomUserData );
    lua_register( pGlobalLua, "searchRoomUserData", TLuaInterpreter::searchRoomUserData );
    lua_register( pGlobalLua, "getRoomsByPosition", TLuaInterpreter::getRoomsByPosition );
    lua_register( pGlobalLua, "clearRoomUserData", TLuaInterpreter::clearRoomUserData );
    lua_register( pGlobalLua, "clearRoomUserDataItem", TLuaInterpreter::clearRoomUserDataItem );
    lua_register( pGlobalLua, "downloadFile", TLuaInterpreter::downloadFile );
    lua_register( pGlobalLua, "appendCmdLine", TLuaInterpreter::appendCmdLine );
    lua_register( pGlobalLua, "getCmdLine", TLuaInterpreter::getCmdLine );
    lua_register( pGlobalLua, "openUrl", TLuaInterpreter::openUrl );
    lua_register( pGlobalLua, "sendSocket", TLuaInterpreter::sendSocket );
    lua_register( pGlobalLua, "setRoomIDbyHash", TLuaInterpreter::setRoomIDbyHash );
    lua_register( pGlobalLua, "getRoomIDbyHash", TLuaInterpreter::getRoomIDbyHash );
    lua_register( pGlobalLua, "addAreaName", TLuaInterpreter::addAreaName );
    lua_register( pGlobalLua, "getRoomAreaName", TLuaInterpreter::getRoomAreaName );
    lua_register( pGlobalLua, "deleteArea", TLuaInterpreter::deleteArea );
    lua_register( pGlobalLua, "deleteRoom", TLuaInterpreter::deleteRoom );
    lua_register( pGlobalLua, "setRoomChar", TLuaInterpreter::setRoomChar );
    lua_register( pGlobalLua, "getRoomChar", TLuaInterpreter::getRoomChar );
    lua_register( pGlobalLua, "registerAnonymousEventHandler", TLuaInterpreter::registerAnonymousEventHandler );
    lua_register( pGlobalLua, "saveMap", TLuaInterpreter::saveMap );
    lua_register( pGlobalLua, "loadMap", TLuaInterpreter::loadMap );
    lua_register( pGlobalLua, "setMainWindowSize", TLuaInterpreter::setMainWindowSize );
    lua_register( pGlobalLua, "setAppStyleSheet", TLuaInterpreter::setAppStyleSheet );
    lua_register( pGlobalLua, "sendIrc", TLuaInterpreter::sendIrc );
    lua_register( pGlobalLua, "connectToServer", TLuaInterpreter::connectToServer );
    lua_register( pGlobalLua, "getRooms", TLuaInterpreter::getRooms );
    lua_register( pGlobalLua, "createMapLabel", TLuaInterpreter::createMapLabel );
    lua_register( pGlobalLua, "deleteMapLabel", TLuaInterpreter::deleteMapLabel );
    lua_register( pGlobalLua, "highlightRoom", TLuaInterpreter::highlightRoom );
    lua_register( pGlobalLua, "unHighlightRoom", TLuaInterpreter::unHighlightRoom );
    lua_register( pGlobalLua, "getMapLabels", TLuaInterpreter::getMapLabels );
    lua_register( pGlobalLua, "getMapLabel", TLuaInterpreter::getMapLabel );
    lua_register( pGlobalLua, "lockExit", TLuaInterpreter::lockExit );
    lua_register( pGlobalLua, "hasExitLock", TLuaInterpreter::hasExitLock );
    lua_register( pGlobalLua, "lockSpecialExit", TLuaInterpreter::lockSpecialExit );
    lua_register( pGlobalLua, "hasSpecialExitLock", TLuaInterpreter::hasSpecialExitLock );
    lua_register( pGlobalLua, "setExitStub", TLuaInterpreter::setExitStub );
    lua_register( pGlobalLua, "connectExitStub", TLuaInterpreter::connectExitStub );
    lua_register( pGlobalLua, "getExitStubs", TLuaInterpreter::getExitStubs );
    lua_register( pGlobalLua, "getExitStubs1", TLuaInterpreter::getExitStubs1 );
    lua_register( pGlobalLua, "setModulePriority", TLuaInterpreter::setModulePriority );
    lua_register( pGlobalLua, "getModulePriority", TLuaInterpreter::getModulePriority );
    lua_register( pGlobalLua, "updateMap", TLuaInterpreter::updateMap );
    lua_register( pGlobalLua, "addMapEvent", TLuaInterpreter::addMapEvent );
    lua_register( pGlobalLua, "removeMapEvent", TLuaInterpreter::removeMapEvent );
    lua_register( pGlobalLua, "getMapEvents", TLuaInterpreter::getMapEvents );
    lua_register( pGlobalLua, "addMapMenu", TLuaInterpreter::addMapMenu );
    lua_register( pGlobalLua, "removeMapMenu", TLuaInterpreter::removeMapMenu );
    lua_register( pGlobalLua, "getMapMenus", TLuaInterpreter::getMapMenus );
    lua_register( pGlobalLua, "installPackage", TLuaInterpreter::installPackage );
    lua_register( pGlobalLua, "installModule", TLuaInterpreter::installModule );
    lua_register( pGlobalLua, "uninstallModule", TLuaInterpreter::uninstallModule );
    lua_register( pGlobalLua, "reloadModule", TLuaInterpreter::reloadModule );
    lua_register( pGlobalLua, "exportAreaImage", TLuaInterpreter::exportAreaImage );
    lua_register( pGlobalLua, "createMapImageLabel", TLuaInterpreter::createMapImageLabel );
    lua_register( pGlobalLua, "setMapZoom", TLuaInterpreter::setMapZoom );
    lua_register( pGlobalLua, "uninstallPackage", TLuaInterpreter::uninstallPackage );
    lua_register( pGlobalLua, "setExitWeight", TLuaInterpreter::setExitWeight );
    lua_register( pGlobalLua, "setDoor", TLuaInterpreter::setDoor );
    lua_register( pGlobalLua, "getDoors", TLuaInterpreter::getDoors );
    lua_register( pGlobalLua, "getExitWeights", TLuaInterpreter::getExitWeights );
    lua_register( pGlobalLua, "addSupportedTelnetOption", TLuaInterpreter::addSupportedTelnetOption );
    lua_register( pGlobalLua, "setMergeTables", TLuaInterpreter::setMergeTables );
    lua_register( pGlobalLua, "getModulePath", TLuaInterpreter::getModulePath );
    lua_register( pGlobalLua, "getAreaExits", TLuaInterpreter::getAreaExits );
    lua_register( pGlobalLua, "auditAreas", TLuaInterpreter::auditAreas );
    lua_register( pGlobalLua, "sendMSDP", TLuaInterpreter::sendMSDP );
    lua_register( pGlobalLua, "handleWindowResizeEvent", TLuaInterpreter::noop );
    lua_register( pGlobalLua, "addCustomLine", TLuaInterpreter::addCustomLine );
    lua_register( pGlobalLua, "getCustomLines", TLuaInterpreter::getCustomLines );
    lua_register( pGlobalLua, "getMudletVersion", TLuaInterpreter::getMudletVersion );
    lua_register( pGlobalLua, "openWebPage", TLuaInterpreter::openWebPage);
    lua_register( pGlobalLua, "getAllRoomEntrances", TLuaInterpreter::getAllRoomEntrances );
    lua_register( pGlobalLua, "getRoomUserDataKeys", TLuaInterpreter::getRoomUserDataKeys );
    lua_register( pGlobalLua, "getAllRoomUserData", TLuaInterpreter::getAllRoomUserData );
    lua_register( pGlobalLua, "searchAreaUserData", TLuaInterpreter::searchAreaUserData );
    lua_register( pGlobalLua, "getMapUserData", TLuaInterpreter::getMapUserData );
    lua_register( pGlobalLua, "getAreaUserData", TLuaInterpreter::getAreaUserData );
    lua_register( pGlobalLua, "setMapUserData", TLuaInterpreter::setMapUserData );
    lua_register( pGlobalLua, "setAreaUserData", TLuaInterpreter::setAreaUserData );
    lua_register( pGlobalLua, "getAllAreaUserData", TLuaInterpreter::getAllAreaUserData );
    lua_register( pGlobalLua, "getAllMapUserData", TLuaInterpreter::getAllMapUserData );
    lua_register( pGlobalLua, "clearAreaUserData", TLuaInterpreter::clearAreaUserData );
    lua_register( pGlobalLua, "clearAreaUserDataItem", TLuaInterpreter::clearAreaUserDataItem );
    lua_register( pGlobalLua, "clearMapUserData", TLuaInterpreter::clearMapUserData );
    lua_register( pGlobalLua, "clearMapUserDataItem", TLuaInterpreter::clearMapUserDataItem );
    lua_register( pGlobalLua, "setDefaultAreaVisible", TLuaInterpreter::setDefaultAreaVisible );
    lua_register( pGlobalLua, "getProfileName", TLuaInterpreter::getProfileName );
    lua_register( pGlobalLua, "raiseGlobalEvent", TLuaInterpreter::raiseGlobalEvent );
    lua_register( pGlobalLua, "saveProfile", TLuaInterpreter::saveProfile );
    lua_register( pGlobalLua, "setServerEncoding", TLuaInterpreter::setServerEncoding );
    lua_register( pGlobalLua, "getServerEncoding", TLuaInterpreter::getServerEncoding );
    lua_register( pGlobalLua, "getServerEncodingsList", TLuaInterpreter::getServerEncodingsList );
    lua_register( pGlobalLua, "alert", TLuaInterpreter::alert );

// PLACEMARKER: End of Lua functions registration
    luaopen_yajl(pGlobalLua);
    lua_setglobal( pGlobalLua, "yajl" );

#ifdef Q_OS_MAC
    luaopen_zip( pGlobalLua );
    lua_setglobal( pGlobalLua, "zip" );
#endif
    QString n;
    int error;

#ifdef Q_OS_LINUX
    // if using LuaJIT, adjust the cpath to look in /usr/lib as well - it doesn't by default
    luaL_dostring (pGlobalLua, "if jit then package.cpath = package.cpath .. ';/usr/lib/lua/5.1/?.so;/usr/lib/x86_64-linux-gnu/lua/5.1/?.so' end");

    //AppInstaller on Linux would like the search path to also be set to the current binary directory
    luaL_dostring (pGlobalLua, QString("package.cpath = package.cpath .. ';%1/lib/?.so'").arg( QCoreApplication::applicationDirPath()).toUtf8().constData() );
#endif
#ifdef Q_OS_MAC
    //macOS app bundle would like the search path to also be set to the current binary directory
    luaL_dostring (pGlobalLua, QString("package.cpath = package.cpath .. ';%1/?.so'").arg( QCoreApplication::applicationDirPath()).toUtf8().constData() );
#endif

    error = luaL_dostring( pGlobalLua, "require \"rex_pcre\"" );
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( pGlobalLua, -1 ) )
        {
            e = "Lua error:";
            e+=lua_tostring( pGlobalLua, -1 );
        }
        QString msg = "[ ERROR ] - Cannot find Lua module rex_pcre.\n"
                                  "Some functions may not be available.\n";
        msg.append( e.c_str() );
        mpHost->postMessage( msg );
    }
    else
    {
        QString msg = "[  OK  ]  - Lua module rex_pcre loaded.";
        mpHost->postMessage( msg );
    }

    error = luaL_dostring( pGlobalLua, "require \"zip\"" );
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( pGlobalLua, -1 ) )
        {
            e = "Lua error:";
            e+= lua_tostring( pGlobalLua, -1 );
        }
        QString msg = "[ ERROR ] - Cannot find Lua module zip.\n";
        msg.append( e.c_str() );
        mpHost->postMessage( msg );
    }
    else
    {
        QString msg = "[  OK  ]  - Lua module zip loaded.";
        mpHost->postMessage( msg );
    }

    error = luaL_dostring( pGlobalLua, "require \"lfs\"" );
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( pGlobalLua, -1 ) )
        {
            e = "Lua error:";
            e+=lua_tostring( pGlobalLua, -1 );
        }
        QString msg = "[ ERROR ] - Cannot find Lua module lfs (Lua File System).\n"
                                  "Probably will not be able to access Mudlet Lua code.\n";
        msg.append( e.c_str() );
        mpHost->postMessage( msg );
    }
    else
    {
        QString msg = "[  OK  ]  - Lua module lfs loaded";
        mpHost->postMessage( msg );
    }

    error = luaL_dostring( pGlobalLua, "luasql = require \"luasql.sqlite3\"" );
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( pGlobalLua, -1 ) )
        {
            e = "Lua error:";
            e+=lua_tostring( pGlobalLua, -1 );
        }
        QString msg = "[ ERROR ] - Cannot find Lua module luasql.sqlite3.\n"
                                  "Database support will not be available.\n";
        msg.append( e.c_str() );
        mpHost->postMessage( msg );
    }
    else
    {
        QString msg = "[  OK  ]  - Lua module sqlite3 loaded";
        mpHost->postMessage( msg );
    }

//    QString path = QDir::homePath()+"/.config/mudlet/mudlet-lua/lua/LuaGlobal.lua";
//    error = luaL_dofile( pGlobalLua, path.toLatin1().data() );
//    if( error != 0 )
//    {
//        string e = "no error message available from Lua";
//        if( lua_isstring( pGlobalLua, 1 ) )
//        {
//            e = "[CRITICAL ERROR] LuaGlobal.lua compile error - please report";
//            e += lua_tostring( pGlobalLua, 1 );
//        }
//        gSysErrors << e.c_str();
//    }
//    else
//    {
//        gSysErrors << "[INFO] LuaGlobal.lua loaded successfully.";
//    }

    /*path = QDir::homePath()+"/.config/mudlet/db.lua";
    error = luaL_dofile( pGlobalLua, path.toLatin1().data() );
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( pGlobalLua, 1 ) )
        {
            e = "[CRITICAL ERROR] db.lua compile error - please report";
            e += lua_tostring( pGlobalLua, 1 );
        }
        gSysErrors << e.c_str();
    }
    else
    {
        gSysErrors << "[INFO] db.lua loaded successfully.";
    }*/


    QString tn = "atcp";
    QStringList args;
    set_lua_table( tn, args );

    tn = "channel102";
    set_lua_table( tn, args );

    lua_pop( pGlobalLua, lua_gettop( pGlobalLua ) );

    //FIXME make function call in destructor lua_close(L);
}

void TLuaInterpreter::loadGlobal()
{
#if defined(Q_OS_MAC)
    // Load relatively to MacOS inside Resources when we're in a .app bundle,
    // as mudlet-lua always gets copied in by the build script into the bundle
    QString path = QCoreApplication::applicationDirPath() + "/../Resources/mudlet-lua/lua/LuaGlobal.lua";
#else
    // Additional "../src/" allows location of lua code when object code is in a
    // directory alongside src directory as occurs using Qt Creator "Shadow Builds"
    QString path = "../src/mudlet-lua/lua/LuaGlobal.lua";
#endif

    int error = luaL_dofile( pGlobalLua, path.toLatin1().data() );
    if( error != 0 )
    {
        // For the installer we do not go down a level to search for this. So
        // we check again for the user case of a windows install.

        // overload previous behaviour to check by absolute path as well
        // TODO this sould be cleaned up and refactored to just use an array and a for loop
        path = QCoreApplication::applicationDirPath() + "/mudlet-lua/lua/LuaGlobal.lua";
        if ( ! QFileInfo::exists(path) ) {
            path = "mudlet-lua/lua/LuaGlobal.lua";
        }
        error = luaL_dofile( pGlobalLua, path.toLatin1().data() );
        if( error == 0 ) {
            mpHost->postMessage( "[  OK  ]  - Mudlet-lua API & Geyser Layout manager loaded." );
            return;
        }
    }
    else
    {
        mpHost->postMessage( "[  OK  ]  - Mudlet-lua API & Geyser Layout manager loaded." );
        return;
    }

    // Finally try loading from LUA_DEFAULT_PATH
    path = LUA_DEFAULT_PATH "/LuaGlobal.lua";
    error = luaL_dofile( pGlobalLua, path.toLatin1().data() );
    if( error != 0 )
    {
        string e = "no error message available from Lua";
        if( lua_isstring( pGlobalLua, -1 ) )
        {
            e = "[ ERROR ] - LuaGlobal.lua compile error - please report!\n"
                "Error from Lua: ";
            e += lua_tostring( pGlobalLua, -1 );
        }
        mpHost->postMessage( e.c_str() );
    }
    else
    {
        mpHost->postMessage( "[  OK  ]  - Mudlet-lua API & Geyser Layout manager loaded." );
        return;
    }
}

int TLuaInterpreter::startPermTimer(const QString & name, const QString & parent, double timeout, const QString & function )
{
    QTime time( 0, 0, 0, 0 );
    int msec = static_cast<int>(timeout * 1000);
    QTime time2 = time.addMSecs( msec );
    TTimer * pT;
    if( parent.isEmpty() )
    {
        pT = new TTimer( "a", time2, mpHost );
    }
    else
    {
        TTimer * pP = mpHost->getTimerUnit()->findTimer( parent );
        if( !pP )
        {
            return -1;//parent not found
        }
        pT = new TTimer( pP, mpHost );
    }

    pT->setTime( time2 );
    pT->setIsFolder( false );
    pT->setIsTempTimer( false );
    pT->registerTimer();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( name );//darf erst nach isTempTimer gesetzt werde, damit setName() schneller ist
    pT->setIsActive( false );
    mpHost->mpEditorDialog->mNeedUpdateData = true;
    return id;
}

int TLuaInterpreter::startTempTimer( double timeout, const QString & function )
{
    QTime time( 0, 0, 0, 0 );
    int msec = static_cast<int>(timeout * 1000);
    QTime time2 = time.addMSecs( msec );
    TTimer * pT;
    pT = new TTimer( "a", time2, mpHost );
    pT->setTime( time2 );
    pT->setIsFolder( false );
    pT->setIsTempTimer( true );
    pT->registerTimer();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );//darf erst nach isTempTimer gesetzt werde, damit setName() schneller ist
    pT->setIsActive( true );
    pT->enableTimer( id );
    return id;
}

int TLuaInterpreter::startPermAlias(const QString & name, const QString & parent, const QString & regex, const QString & function )
{
    TAlias * pT;

    if( parent.isEmpty() )
    {
        pT = new TAlias("a", mpHost );
    }
    else
    {
        TAlias * pP = mpHost->getAliasUnit()->findAlias( parent );
        if( !pP )
        {
            return -1;//parent not found
        }
        pT = new TAlias( pP, mpHost );
    }
    pT->setRegexCode( regex );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempAlias( false );
    pT->registerAlias();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( name );
    mpHost->mpEditorDialog->mNeedUpdateData = true;
    return id;
}

int TLuaInterpreter::startTempAlias(const QString & regex, const QString & function )
{
    TAlias * pT;
    pT = new TAlias("a", mpHost );
    pT->setRegexCode( regex );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempAlias( true );
    pT->registerAlias();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );
    return id;
}

int TLuaInterpreter::startPermKey( QString & name, QString & parent, int & keycode, int & modifier, QString & function )
{
    TKey* pT;

    if (parent.isEmpty()) {
        pT = new TKey("a", mpHost); // The use of "a" seems a bit arbitary...!
    } else {
        TKey* pP = mpHost->getKeyUnit()->findKey(parent);
        if (!pP) {
            return -1; //parent not found
        }
        pT = new TKey(pP, mpHost);
    }
    pT->setKeyCode(keycode);
    pT->setKeyModifiers(modifier);
    pT->setIsFolder(false);
    pT->setIsActive(true);
    pT->setIsTempKey(false);
    pT->registerKey();
    // CHECK: The lua code in function could fail to compile - but there is no feedback here to the caller.
    pT->setScript(function);
    int id = pT->getID();
    pT->setName(name);
    mpHost->mpEditorDialog->mNeedUpdateData = true;
    return id;
}

int TLuaInterpreter::startTempKey( int & modifier, int & keycode, QString & function )
{
    TKey* pT;
    pT = new TKey("a", mpHost);
    pT->setKeyCode(keycode);
    pT->setKeyModifiers(modifier);
    pT->setIsFolder(false);
    pT->setIsActive(true);
    pT->setIsTempKey(true);
    pT->registerKey();
    pT->setScript(function);
    int id = pT->getID();
    pT->setName(QString::number(id));
    return id;
}

int TLuaInterpreter::startTempExactMatchTrigger(const QString & regex, const QString & function )
{
    TTrigger * pT;
    QStringList sList;
    sList<<regex;
    QList<int> propertyList;
    propertyList << REGEX_EXACT_MATCH;
    pT = new TTrigger("a", sList, propertyList, false, mpHost );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempTrigger( true );
    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );
    return id;
}

int TLuaInterpreter::startTempBeginOfLineTrigger(const QString & regex, const QString & function )
{
    TTrigger * pT;
    QStringList sList;
    sList<<regex;
    QList<int> propertyList;
    propertyList << REGEX_BEGIN_OF_LINE_SUBSTRING;
    pT = new TTrigger("a", sList, propertyList, false, mpHost );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempTrigger( true );
    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );
    return id;
}


int TLuaInterpreter::startTempTrigger(const QString & regex, const QString & function )
{
    TTrigger * pT;
    QStringList sList;
    sList<<regex;
    QList<int> propertyList;
    propertyList << REGEX_SUBSTRING;// substring trigger is default
    pT = new TTrigger("a", sList, propertyList, false, mpHost );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempTrigger( true );
    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );
    return id;
}

int TLuaInterpreter::startTempLineTrigger( int from, int howmany, const QString & function )
{
    TTrigger * pT;
//    QStringList sList;
//    QList<int> propertyList;
//    propertyList << REGEX_SUBSTRING;// substring trigger is default
//    pT = new TTrigger("a", sList, propertyList, false, mpHost );
    pT = new TTrigger( 0, mpHost );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempTrigger( true );
    pT->setIsLineTrigger( true );
    pT->setStartOfLineDelta( from );
    pT->setLineDelta( howmany );
    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );
    return id;
}

int TLuaInterpreter::startTempColorTrigger( int fg, int bg, const QString & function )
{
    TTrigger * pT;
//    QStringList sList;
//    QList<int> propertyList;
//    propertyList << REGEX_SUBSTRING;// substring trigger is default
//    pT = new TTrigger("a", sList, propertyList, false, mpHost );
    pT = new TTrigger( 0, mpHost );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempTrigger( true );
    pT->setupTmpColorTrigger( fg, bg );

    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );
    return id;
}

int TLuaInterpreter::startTempRegexTrigger(const QString & regex, const QString & function )
{
    TTrigger * pT;
    QStringList sList;
    sList<<regex;

    QList<int> propertyList;
    propertyList << REGEX_PERL;// substring trigger is default
    pT = new TTrigger("a", sList, propertyList, false, mpHost );
    pT->setIsFolder( false );
    pT->setIsActive( true );
    pT->setIsTempTrigger( true );
    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( QString::number( id ) );
    return id;
}

int TLuaInterpreter::startPermRegexTrigger(const QString & name, const QString & parent, QStringList & regexList, const QString & function )
{
    TTrigger * pT;
    QList<int> propertyList;
    for( int i=0; i<regexList.size(); i++ )
    {
        propertyList << REGEX_PERL;
    }
    if( parent.isEmpty() )
    {
        pT = new TTrigger( "a", regexList, propertyList, (regexList.size()>1), mpHost );
    }
    else
    {
        TTrigger * pP = mpHost->getTriggerUnit()->findTrigger( parent );
        if( !pP )
        {
            return -1;//parent not found
        }
        pT = new TTrigger( pP, mpHost );
        pT->setRegexCodeList( regexList, propertyList );
    }
    pT->setIsFolder( (regexList.size()==0) );
    pT->setIsActive( true );
    pT->setIsTempTrigger( false );
    pT->registerTrigger();
    pT->setScript( function );
    //pT->setName( name );
    int id = pT->getID();
    pT->setName( name );
    mpHost->mpEditorDialog->mNeedUpdateData = true;
    //return 1;
    return id;

}

int TLuaInterpreter::startPermBeginOfLineStringTrigger(const QString & name, const QString & parent, QStringList & regexList, const QString & function )
{
    TTrigger * pT;
    QList<int> propertyList;
    for( int i=0; i<regexList.size(); i++ )
    {
        propertyList << REGEX_BEGIN_OF_LINE_SUBSTRING;
    }
    if( parent.isEmpty() )
    {
        pT = new TTrigger( "a", regexList, propertyList, (regexList.size()>1), mpHost );
    }
    else
    {
        TTrigger * pP = mpHost->getTriggerUnit()->findTrigger( parent );
        if( !pP )
        {
            return -1;//parent not found
        }
        pT = new TTrigger( pP, mpHost );
        pT->setRegexCodeList( regexList, propertyList );
    }
    pT->setIsFolder( (regexList.size()==0) );
    pT->setIsActive( true );
    pT->setIsTempTrigger( false );
    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( name );
    mpHost->mpEditorDialog->mNeedUpdateData = true;
    //return 1;
    return id;

}

int TLuaInterpreter::startPermSubstringTrigger(const QString & name, const QString & parent, const QStringList & regexList, const QString & function )
{
    TTrigger * pT;
    QList<int> propertyList;
    for( int i=0; i<regexList.size(); i++ )
    {
        propertyList << REGEX_SUBSTRING;
    }
    if( parent.isEmpty() )
    {
        pT = new TTrigger( "a", regexList, propertyList, (regexList.size()>1), mpHost );
    }
    else
    {
        TTrigger * pP = mpHost->getTriggerUnit()->findTrigger( parent );
        if( !pP )
        {
            return -1;//parent not found
        }
        pT = new TTrigger( pP, mpHost );
        pT->setRegexCodeList( regexList, propertyList );
    }
    pT->setIsFolder( (regexList.size()==0) );
    pT->setIsActive( true );
    pT->setIsTempTrigger( false );
    pT->registerTrigger();
    pT->setScript( function );
    int id = pT->getID();
    pT->setName( name );
    mpHost->mpEditorDialog->mNeedUpdateData = true;
    //return 1;
    return id;

}

int TLuaInterpreter::alert( lua_State * L )
{
    double luaAlertDuration = 0.0;

    if( lua_gettop( L ) > 0 )
    {
        if( ! lua_isnumber( L, 1 ) )
        {
            lua_pushfstring( L, "alert: bad argument #1 type (alert duration in seconds as number expected, got %s!)",
                            luaL_typename( L, 1 ));
            lua_error( L );
            return 1;
        }
        else
        {
            luaAlertDuration = lua_tonumber( L, 1 );

            if( luaAlertDuration < 0.000 )
            {
                lua_pushstring( L, "alert: duration, in seconds, is optional but if given must be zero or greater." );
                return lua_error( L );
            }
        }
    }

    // QApplication::alert expects milliseconds, not seconds
    QApplication::alert(mudlet::self(), qRound( luaAlertDuration * 1000.0 ));

    return 0;
}

static int host_key = 0;

static void storeHostInLua(lua_State *L, Host *h) {
    lua_pushlightuserdata(L, &host_key); // 1 - push unique key
    lua_pushlightuserdata(L, h);         // 2 - push host ptr
    lua_rawset(L, LUA_REGISTRYINDEX);    // 0 - register[key] = host
}

Host& getHostFromLua(lua_State* L) {
    lua_pushlightuserdata(L, &host_key);    // 1 - push unique key
    lua_rawget(L, LUA_REGISTRYINDEX);       // 1 - pop key, push host ptr
    Host* h = (Host*)lua_touserdata(L, -1); // 1 - get host ptr
    lua_pop(L, 1);                          // 0 - pop host ptr
    assert(h);
    return *h;
}
