;'Houses in Oisvo'

House1 = 5
House2 = 6
House3 = 7

DoorX = 0
HouseNumber = 0

If #XPOS = 10
	HouseNumber = House1
ElseIf #XPOS = 14
	HouseNumber = House2
ElseIf #XPOS = 18
	HouseNumber = House3
EndIf

If GetUserFlag(#USERID,13) = HouseNumber
	OpenDoor(650,#XPOS,11)
Else
	;Tired of users asking about the houses - Comrade
	;SendMessageToUser(#USERID,"You do not own this house!", #MSG_SERVER)
Endif

Continue = 1