[sizuka]

Code:

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)

use this edited script from bender69
put it in user function>new>name "HouseBuy"
in key binds, select new>name "name HouseBuy" >function, select "HouseBuy"> Key 1 select "Shift"> Key 2 select "1"
okay, you done, to run it, just press Shift and 1 on ur keyboard