place_taken = {}
house = {}
placex,placey,placez = {},{},{}

function place_houses_init(e)
--the entity numbers of the houses to place (would be easier to get these via another script placed on the houses)
--[[
house[1] = 2
house[2] = 3
house[3] = 4
house[4] = 5
--]]
for a = 1,4 do
  place_taken[a] = 0
end 
--the house coords for each house (again easier if you can get this in another script)
--[[
placex[1] = 1000
placey[1] = 600
placez[1] = 1000
placex[2] = # --etc
--]]
end 

for h = 1,4 do 
repeat
place = math.random(1,4)
CollisionOff(house[h])
SetPosition(house[h],placex[place],placey[place],placez[place])
CollisionOn(house[h])
until place_taken[place] == 0
place_taken[place] = 1
end

end

house = {}
placex,placey,placez = {},{},{}
function houses_init(e)
 for a = 1,4 do 
  if house[a] == nil then 
house[a] = e
placex[a] = g_Entity[e]['x']
placey[a] = g_Entity[e]['y']
placez[a] = g_Entity[e]['z']
return
end
end

local h1_x, h1_y, h1_z = 0,0,0
local h2_x, h2_y, h2_z = 0,0,0
local h3_x, h3_y, h3_z = 0,0,0
local pos = 0
local old_pos = 0

function randompos_init(e)
	--h1_x, h1_y, h1_z,_,_,_ = GetEntityPosAng( 1 )
	--h2_x, h2_y, h2_z,_,_,_ = GetEntityPosAng( 2 )
	--h3_x, h3_y, h3_z,_,_,_ = GetEntityPosAng( 3 )

	h1_x = GetEntityPositionX( 1 )
	h1_y = GetEntityPositionY( 1 )
	h1_z = GetEntityPositionZ( 1 )
	
	h2_x = GetEntityPositionX( 2 )
	h2_y = GetEntityPositionY( 2 )
	h2_z = GetEntityPositionZ( 2 )
	
	h3_x = GetEntityPositionX( 3 )
	h3_y = GetEntityPositionY( 3 )
	h3_z = GetEntityPositionZ( 3 )
		
	local h = assert( io.open( "random_pos.txt", "r") )
	old_pos = tonumber( h:read() )
	h:close()

end --init


function randompos_main(e)
	CollisionOff(1) --house1
	CollisionOff(2) --house2
	CollisionOff(3) --house3
	
	math.randomseed(os.clock())

if pos == 0 then
	repeat 
		pos = math.random(1,3)  -- increase last value to fit your needs
	until pos ~= old_pos
end
	Prompt(pos)
if pos ~= old_pos then			
	if pos == 1 then	
		SetPosition(1,h3_x,h1_y,h1_z) --house1
		SetPosition(2,h1_x,h2_y,h2_z) --house2
		SetPosition(3,h2_x,h3_y,h3_z) ---house3
	elseif pos == 2 then
		SetPosition(1,h2_x,h1_y,h1_z)
		SetPosition(2,h3_x,h2_y,h2_z)
		SetPosition(3,h1_x,h3_y,h3_z)
	elseif pos == 3 then
		SetPosition(1,h1_x,h1_y,h1_z)
		SetPosition(2,h2_x,h2_y,h2_z)
		SetPosition(3,h3_x,h3_y,h3_z)
	end
	
	local f = assert( io.open( "random_pos.txt", "w") )
	f:write(pos)
	f:close()	
	--Destroy(e)	
end
end --main