do

    module("alan", package.seeall)

    require("oosocks")

    cookies = {}
    answer = ""
    name = "Alan"
    pending_answers = {}

    socket = OOSock(IPPROTO_TCP)

    function AlanURL()
        return Format("/alan1/webface1_ctrl.asp?gender=male&style=%s&name=%s&action0=name:%s&DName=%s", URLEscape(name), URLEscape(name), URLEscape(name), URLEscape(name))
    end

    function Connect()
        socket:Connect("www.a-i.com", 80)
    end

    function AssignCookie(uniqueid, callback)

        if cookies[uniqueid] then callback(cookies[uniqueid]) return end

        local socket = OOSock(IPPROTO_TCP)

        socket:Connect("www.a-i.com", 80)

        socket:SendLine(Format("GET %s HTTP/1.1", AlanURL()))
        socket:SendLine("Host: www.a-i.com")
        socket:SendLine("")

        socket:ReceiveLine()

        socket:SetCallback(function(_, type, _, status, data)
            if type == SCKCALL_REC_LINE and status == SCKERR_OK and data ~= "" then
                if HasCookie(data) then
                    cookies[uniqueid] = ExtractCookie(data)
                    callback(cookies[uniqueid])
                    --print("assigned cookie to", uniqueid, ExtractCookie(data))
                    socket = nil
                return end

                socket:ReceiveLine()

            end
        end)



    end

    function SendQuestion(uniqueid, question, callback)

        if not cookies[uniqueid] then return end

        pending_answers[uniqueid] = callback

        Connect()

        socket:SendLine(Format("GET %s&question=%s HTTP/1.1", AlanURL(), URLEscape(question)))
        socket:SendLine("Host: www.a-i.com")
        socket:SendLine(Format("Cookie: ASPSESSIONIDACRQSRQC=%s", cookies[uniqueid]))
        socket:SendLine("")

        socket:ReceiveLine()

        print("SET COOKIE TO:", Format("'Cookie: ASPSESSIONIDACRQSRQC=%s'", cookies[uniqueid]))

    end

    local cookie_found = false
    local debug_string = ""

    socket:SetCallback(function(_, type, _, status, data)
        if type == SCKCALL_REC_LINE and status == SCKERR_OK and data ~= "" then
            if HasCookie(data) then
                local cookie = ExtractCookie(data)
                if IsCookieAssigned(cookie) then
                    cookie_found = GetUniqueIDFromCookie(cookie)
                end
            end

            if cookie_found and HasAnswer(data) and pending_answers[cookie_found] then
                pending_answers[cookie_found](ExtractAnswer(data), cookies[cookie_found])
                pending_answers[cookie_found] = nil
                cookie_found = false
            return end

            debug_string = debug_string .. data .. "\n"

            if HasAnswer(data) then
                if not cookie_found then
                    print("\n\nNO COOKIE FOUND IN ANSWER\n\nSHOWING OUTPUT UNTIL ANSWER:\n\n" .. debug_string, "\n...REST OF OUTPUT...")
                end
                cookie_found = false
                debug_string = ""
            return end

            socket:ReceiveLine()
        end
    end)

    function URLEscape(s)
        return string.gsub(s, "([^A-Za-z0-9_])", function(c)
            return string.format("%%%02x", string.byte(c))
        end)
    end

    function IsCookieAssigned(cookie)
        return table.HasValue(cookies, cookie)
    end

    function GetUniqueIDFromCookie(cookie)
        for key, value in pairs(cookies) do
            if value == cookie then return key end
        end
    end

    function HasCookie(data)
        return data:Left(12) == "Set-Cookie: "
    end

    function ExtractCookie(data)
        --print(data:sub(34, -10), data)
        return data:sub(34, -10)
    end

    function HasAnswer(data)
        return data:Left(16) == "<option>answer ="
    end

    function ExtractAnswer(data)
        return data:sub(17, -1):Trim()
    end

end


alan.AssignCookie("caps", function(cookie)
    --print(cookie)
    alan.SendQuestion("caps", "hi", function(answer, cookie)
        --print(answer, cookie)
        alan.SendQuestion("caps", "what are you doing", print)
    end)
end)