(05-17-2020, 12:18 AM)Steve123 Wrote:  I input the code exactly as it appears, tried two different version of code and it is no longer working. I had it set to buy FC House but it keeps trying to buy personal house

This was code posted by bender69, it eliminates the head bobbing which causes bot to be detected/suspected by other players. I changed the 0 to a 1 so it would select to buy an FC house. Was working yesterday, isn't today.

Quote:local delay = 500 --Delay between purchase attempts, 1000 is 1 second
local buytype = 0 --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)