[sasmariozeld]

fixed it

Code:

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

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
              local 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
end
RegisterEventHandler("Gameloop.Update", BuyHouseFunction)