;House Enter

CurrHouseMap=#MAPID
CurrHouseX=#XPOS
CurrHouseY=#YPOS

If CurrHouseMap=554
	If CurrHouseX=16
		If CurrHouseY=8
			HouseNumber=1
			HouseInsideMap=555
			HouseInsideX=16
			HouseInsideY=12
		Endif
	Endif
	If CurrHouseX=6
		If CurrHouseY=10
			HouseNumber=2
			HouseInsideMap=555
			HouseInsideX=4
			HouseInsideY=15
		Endif
	Endif
Endif

If CurrHouseMap=185
	If CurrHouseX=9
		If CurrHouseY=9
			HouseNumber=3
			HouseInsideMap=187
			HouseInsideX=4
			HouseInsideY=12
		Endif
	Endif
	If CurrHouseX=16
		If CurrHouseY=10
			HouseNumber=4
			HouseInsideMap=187
			HouseInsideX=18
			HouseInsideY=16
		Endif
	Endif
Endif

If GetUserFlag(#USERID,13)=HouseNumber
	OpenDoor(CurrHouseMap,CurrHouseX,CurrHouseY-1)
	OpenDoor(HouseInsideMap,HouseInsideX,HouseInsideY)
Else
	;Tired of users asking about the houses - Comrade
	;SendMessageToUser(#USERID,"You do not own this house!", #MSG_SERVER)
Endif



Continue = 1

