[abornwalrus]

Can anyone actually confirm a code that purchases a free company? Or verify that this code works?



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)