std::string _crawl_make_name (lua_State *ls)

std::string _crawl_make_name(lua_State *ls)

    if (lua_gettop(ls) == 0) 
        return make_name (random_int(), false);
    else

    bool all_caps = false;
    int maxlen = -1;
    char start = 0;
    if (lua_gettop(ls) >= 1 && lua_isboolean(ls, 1))
        all_caps = lua_toboolean(ls, 1);
    if (lua_gettop(ls) >= 2 && lua_isnumber(ls, 2))
        maxlen = luaL_checkint(ls, 2);
    if (lua_gettop(ls) >= 3 && lua_isstring(ls, 3))

        bool all_caps (false);
        int maxlen = -1;
        char start = 0;
        if (lua_gettop(ls) >= 1 && lua_isboolean(ls, 1)) // Want all caps. 
            all_caps = lua_toboolean(ls, 1);
        if (lua_gettop(ls) >= 2 && lua_isnumber(ls, 2))  // Specified a maxlen.
            maxlen = lua_tonumber(ls, 2);
        if (lua_gettop(ls) >= 3 && lua_isstring(ls, 3))  // Specificied a start character
            start = lua_tostring(ls, 3)[0];
        return make_name (random_int(), all_caps, maxlen, start);

        const char* s = luaL_checkstring(ls, 3);
        if (s && *s)
            start = *s;

    return make_name(random_int(), all_caps, maxlen, start);