OpenDoor(708,5,4)
OpenDoor(708,8,4)
OpenDoor(708,13,4)
OpenDoor(708,16,4)

If GetUserAtXY(708,5,4)>0
	If GetUserAtXY(708,8,4)>0
		If GetUserAtXY(708,13,4)>0
			If GetUserAtXY(708,16,4)>0
				Timer(413,0,1,50,0)
			Endif
		Endif
	Endif
Endif

Continue = 1