if alan.socket then alan.socket:Close() alan.socket = nil end

do
    module("alan", package.seeall)

    require("oosocks")

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

    socket = OOSock(IPPROTO_TCP)

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

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

    function GetCookieID()
        return
            table.insert(
                pending,

                socket:Send(
                    Format(
                        [[GET %s HTTP/1.1
                        Host: www.a-i.com
                        ]],

                        AlanURL()
                    )
                )
            )
    end

    function SendQuestion(player, text)
        local text = URLEscape(text)

        Connect()

        socket:Send(
            Format(
                [[GET %s&question=%s HTTP/1.1
                Host: www.a-i.com
                Cookie: %s]],

                AlanURL(),
                text,
                cookie
            )
        )
    end

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

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

    function GetCookie(data)
        return data:sub(13, -10)
    end

    function GetCookie(data)
        return cookies[data]
    end

    function SetCookie(cookie, player)
        cookies[data] = player
    end

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

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

    local length_sig = "Content-Length: "

    socket:SetCallback(function(socket, callType, callId, err, data, peer, peerPort)

        print(data)

        local HTTPLen = 0

        if callType == SCKCALL_REC_LINE and err == SCKERR_OK and data ~= "" then

            print(callId)

            if IsCookie(data) then
                print(GetCookie(data))
            end

            if HasAnswer(data) then
                print(GetAnswer())
            end

            if data:Left(#length_sig) == length_sig then
                HTTPLen = tonumber(data:Right(#data - #length_sig))
            end

            socket:ReceiveLine()

        elseif callType == SCKCALL_REC_LINE and err == SCKERR_OK and data == "" then
            socket:Receive(HTTPLen)
        end
    end)

end

alan.Connect()

timer.Simple(5, function() print(alan.GetCookieID()) end )