Excelsior

Code: Select all

sub AutoOpenDoor()
	var i
	
	Dim Door[2]
	Door[0] = "0x06DF" ; wooden door
	Door[1] = "0x06A5" ; wooden door
	Door[2] = "0x0870" ; wooden gate
	
	repeat
	for i=0 to 2
		uo.Set('finddistance', 1)
		uo.findtype(Door[i],-1,'ground')
		if uo.findcount() then
			uo.opendoor()
		end if
		wait(200)
	next
	until uo.dead()
end sub