[costadelsoule]

I can confirm it works (at least for free company house acquisition) since I was able to acquire one earlier today.  I had set my delay to 1200, and also had Assist Mode turn on with Quest Helpers enabled to autoconfirm any additional dialog.

I've got the same settings yet no matter what the code attempts to purchase a personal house instead of an FC house every time. Any ideas? Here's my code:

Code:

local delay = 1200 --Delay between purchase attempts, 1000 is 1 second
local buytype = 1 --0 is Private Individual, 1 is Free Company, 2 is Relocation...
local PlacardID = 0

if BuyHouseVar == nil then
    BuyHouseVar = true
    BuyHouseStep = 0
    BuyHouseLast = 0
    BuyHousePushButton = 24
    if GetGameRegion() == 1 then BuyHousePushButton = 25 end
else
    BuyHouseVar = not BuyHouseVar
end

function BuyHouseFunction()
    d("BuyHouseStep: "..tostring(BuyHouseStep))
    if BuyHouseVar and TimeSince(BuyHouseLast) > delay then
            PlacardID = 0
            local el = EntityList("nearest,contentid=2002736")
            if table.valid(el) then
                    for k,v in pairs(el) do
                            PlacardID = v.id
                    end
            end

            if BuyHouseStep == 0 then
                    if IsControlOpen("HousingSignBoard") then
                            BuyHouseStep = 1
                    else
                            Player:SetTarget(PlacardID)
                            Player:Interact(PlacardID)
                    end
            end
            if BuyHouseStep == 1 then
                    UseControlAction("HousingSignBoard","PurchaseLand")
                    if IsControlOpen("SelectYesno") then
                            BuyHouseStep = 3
                    elseif IsControlOpen("SelectString") and not IsControlOpen("HousingSignBoard") then
                            BuyHouseStep = 2
                    elseif IsControlOpen("HousingSignBoard") then
                            local ctrl = GetControl("HousingSignBoard")
                            if ctrl:GetRawData()[1].value.A == 1 then
                                    ctrl:PushButton(BuyHousePushButton,2)
                            end
                    end
            end
            if BuyHouseStep == 2 then
                    if IsControlOpen("SelectYesno") then
                            BuyHouseStep = 3
                    elseif IsControlOpen("SelectString") then
                            GetControl("SelectString"):Action("SelectIndex",buytype)
                    elseif IsControlOpen("HousingSignBoard") then
                            UseControlAction("SelectYesno","Yes")
                            BuyHouseStep = 1
                    end
            end
            if BuyHouseStep == 3 then
                    if IsControlOpen("SelectYesno") then
                            UseControlAction("SelectYesno","Yes")
                    elseif Player:GetTarget() == nil then
                            BuyHouseStep = 0
                            BuyHouseLast = Now()    
                    end
            end
    end
    if Player:GetTarget() == nil then
            Player:SetTarget(PlacardID)
    end
end
RegisterEventHandler("Gameloop.Update", BuyHouseFunction)