
OBJECT "TownTel0"
BEGIN

	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			//	TELEPORTS TO ANCIENT TOWER
			IF TOWNTELSTATE = 1
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10020 10470 40 3
	 			FADESCREENIN
				TOWNTEL1.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO CAVE LEVEL 1
			IF TOWNTELSTATE = 2
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10368 10928 56 30
	 			FADESCREENIN
				TOWNTEL2.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO CAVE LEVEL 2
			IF TOWNTELSTATE = 3
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 8695 8425 533 32
	 			FADESCREENIN
				TOWNTEL3.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO CAVE LEVEL 4
			IF TOWNTELSTATE = 4
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 8042 10110 294 36
	 			FADESCREENIN
				TOWNTEL4.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO CAVE LEVEL 6
			IF TOWNTELSTATE = 5
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10134 9190 104 37
	 			FADESCREENIN
				TOWNTEL5.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO DUNGEON LEVEL 1
			IF TOWNTELSTATE = 6
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 8645 10067 168 48
	 			FADESCREENIN
				TOWNTEL6.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO DUNGEON LEVEL 2
			IF TOWNTELSTATE = 7
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10951 13017 40 41
	 			FADESCREENIN
				TOWNTEL7.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO DUNGEON LEVEL 3
			IF TOWNTELSTATE = 8
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 9903 10290 424 44
	 			FADESCREENIN
				TOWNTEL8.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO DUNGEON LEVEL 5
			IF TOWNTELSTATE = 9
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 7472 10208 40 46
	 			FADESCREENIN
				TOWNTEL9.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO LABYRINTH LEVEL 1
			IF TOWNTELSTATE = 10
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10383 9522 456 51
	 			FADESCREENIN
				TOWNTEL10.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO LABYRINTH LEVEL 3
			IF TOWNTELSTATE = 11
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10671 10002 456 53
	 			FADESCREENIN
				TOWNTEL11.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO LABYRINTH LEVEL 4
			IF TOWNTELSTATE = 12
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 12880 11392 160 54
	 			FADESCREENIN
				TOWNTEL12.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO LABYRINTH LEVEL 6
			IF TOWNTELSTATE = 13
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10005 9911 744 56
	 			FADESCREENIN
				TOWNTEL13.SETFROMEXIT
				CONTROL ON
			END
			//	TELEPORTS TO LABYRINTH LEVEL 8
			IF TOWNTELSTATE = 14
			BEGIN
				NOWAIT CONTROL OFF
				USER.STOP
				FADESCREENOUT
				WAIT SCREENFADE
				USER.POS 10724 9622 40 58
	 			FADESCREENIN
				TOWNTEL14.SETFROMEXIT
				CONTROL ON
			END
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL1"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 1
			BEGIN
				SET TOWNTELSTATE = 1
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			user.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL2"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 2
			BEGIN
				SET TOWNTELSTATE = 2
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL3"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 3
			BEGIN
				SET TOWNTELSTATE = 3
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL4"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 4
			BEGIN
				SET TOWNTELSTATE = 4
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL5"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 5
			BEGIN
				SET TOWNTELSTATE = 5
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL6"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 6
			BEGIN
				SET TOWNTELSTATE = 6
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL7"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 7
			BEGIN
				SET TOWNTELSTATE = 7
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL8"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 8
			BEGIN
				SET TOWNTELSTATE = 8
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL9"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 9
			BEGIN
				SET TOWNTELSTATE = 9
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL10"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			SET TOWNTELACTIVESTATE = 1
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 10
			BEGIN
				SET TOWNTELSTATE = 10
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL11"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 11
			BEGIN
				SET TOWNTELSTATE = 11
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL12"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 12
			BEGIN
				SET TOWNTELSTATE = 12
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL13"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 13
			BEGIN
				SET TOWNTELSTATE = 13
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END

OBJECT "TOWNTEL14"
BEGIN
	ACTIVATE
	BEGIN
		IF TOWNTELACTIVESTATE = 0
		BEGIN
			NOWAIT CONTROL OFF
			USER.STOP
			IF TOWNTELSTATE < 14
			BEGIN
				SET TOWNTELSTATE = 14
			END
			TOWNTEL0.SETFROMEXIT
			FADESCREENOUT
			WAIT SCREENFADE
			USER.POS 13177 10747 314 2
	 		FADESCREENIN
			CONTROL ON
		END
	END
	ALWAYS
	BEGIN
		SET TOWNTELACTIVESTATE = 0
		WAIT 10
	END
END


OBJECT "CAVDOOR1"
BEGIN
USE
 	BEGIN
	CONTROL OFF
	USER.STOP
	IF THIS.ISOUTSIDE user = 1
 		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS 48 -32
 			USER.FACE 0
 			NOWAIT OPERATE user
 			NOWAIT USER.TRY "WOPENDOOROUT"
		END		
	ELSE
		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS -52 32
 			USER.FACE 128
 			NOWAIT OPERATE user
 			NOWAIT USER.TRY "WOPENDOORIN"
		END
	WAIT 24
	FADESCREENOUT
	WAIT SCREENFADE
	nowait THIS.STATE "CLOSED"
	nowait THIS.STATE "CLOSED"
	ACTIVATE
	CONTROL ON
	FADESCREENIN
	END
END

OBJECT "CAVDOOR2"
BEGIN
USE
 	BEGIN
	CONTROL OFF
	USER.STOP
	IF THIS.ISOUTSIDE user = 1
 		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS -62 -32
 			USER.FACE 64
 			NOWAIT OPERATE user
 			NOWAIT USER.TRY "WOPENDOORIN"
		END		
	ELSE
		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS 52 -100
 			USER.FACE 192
 			NOWAIT OPERATE user
 			NOWAIT USER.TRY "WOPENDOOROUT"
		END
	WAIT 24
	FADESCREENOUT
	WAIT SCREENFADE
	nowait THIS.STATE "CLOSED"
	nowait THIS.STATE "CLOSED"
	ACTIVATE
	FADESCREENIN
	CONTROL ON
	END
END


OBJECT "PORTEW"
BEGIN
USE
 	BEGIN
	CONTROL OFF
	USER.COMBAT OFF
	USER.STOP
	IF THIS.ISOUTSIDE user = 1
 		BEGIN
 		USER.GOTORELATIVEDISTANCE THIS 20 0
 		USER.FACE 0
 		NOWAIT STATE "OPENING"
 		NOWAIT USER.TRY "WOPENPORT"
	END		
	ELSE
		BEGIN
 		USER.GOTORELATIVEDISTANCE THIS -20 0
 		USER.FACE 128
 		NOWAIT STATE "OPENING"
 		NOWAIT USER.TRY "WOPENPORT"
	END
	WAIT 24
	FADESCREENOUT
	WAIT SCREENFADE
	nowait THIS.STATE "CLOSED"
	nowait THIS.STATE "CLOSED"
	ACTIVATE
	FADESCREENIN
	CONTROL ON
	END
END

OBJECT "PORTNS"
BEGIN
USE
 	BEGIN
	CONTROL OFF
	USER.COMBAT OFF
	USER.STOP
	IF THIS.ISOUTSIDE user = 1
 		BEGIN
 		USER.GOTORELATIVEDISTANCE THIS -20 -64
 		USER.FACE 64
 		NOWAIT STATE "OPENING"
 		NOWAIT USER.TRY "WOPENPORT"
	END		
	ELSE
		BEGIN
 		USER.GOTORELATIVEDISTANCE THIS -30 64
 		USER.FACE 192
 		NOWAIT STATE "OPENING"
 		NOWAIT USER.TRY "WOPENPORT"
	END
	WAIT 24
	FADESCREENOUT
	WAIT SCREENFADE
	nowait THIS.STATE "CLOSED"
	nowait THIS.STATE "CLOSED"
	ACTIVATE
	FADESCREENIN
	CONTROL ON
	END
END

OBJECT "INPORTNS"
BEGIN
USE
 	BEGIN
	CONTROL OFF
	USER.COMBAT OFF
	USER.STOP
	IF THIS.ISOUTSIDE user = 0
 		BEGIN
 		USER.GOTORELATIVEDISTANCE THIS -25 -64
		USER.FACE 64
 		NOWAIT STATE "OPENING"
 		NOWAIT USER.TRY "WOPENPORT"
		WAIT 48
		USER.GOTORELATIVEDISTANCE THIS -30 64
		END		
	ELSE
		BEGIN
 		USER.GOTORELATIVEDISTANCE THIS -25 64
		USER.FACE 190
		NOWAIT STATE "OPENING"
 		NOWAIT USER.TRY "WOPENPORT"
		WAIT 48
		USER.GOTORELATIVEDISTANCE THIS -45 -64
		END
	wait STATE "CLOSING"
	CONTROL ON
	STATE "CLOSED"
	END
END

OBJECT "INPORTEW"
BEGIN
	USE
 	BEGIN
		CONTROL OFF
		USER.COMBAT OFF
		USER.STOP
		IF THIS.ISOUTSIDE user = 1
 		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS 25 0
			USER.FACE 0
 			NOWAIT STATE "OPENING"
 			NOWAIT USER.TRY "WOPENPORT"
			WAIT 48
			USER.GOTORELATIVEDISTANCE THIS -35 0
		END		
		ELSE
		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS -25 0
			USER.FACE 120
 			NOWAIT STATE "OPENING"
 			NOWAIT USER.TRY "WOPENPORT"
			WAIT 48
			USER.GOTORELATIVEDISTANCE THIS 30 0
		END
	wait STATE "CLOSING"
	CONTROL ON
	STATE "CLOSED"
	END
END

OBJECT "InDoor1"
begin 
	USE
	BEGIN
		TIMELIMIT 720
		BUSYMSG "Другой игрок использует эту дверь"
		CONTROL OFF
		USER.COMBAT OFF
		USER.STOP
 		IF THIS.ISOUTSIDE user = 1
 		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS 42 -32
 			USER.FACEOBJECT THIS 15
 			OPERATE user
 			NOWAIT USER.TRY "WOPENDOOROUT"
			WAIT 24
			USER.GOTORELATIVEDISTANCE THIS -35 20
 			WAIT 24
			CONTROL ON
			THIS.STATE "CLOSINGOUT"
			THIS.STATE "CLOSED"
			THIS.STATE "CLOSED"
 		END
 		ELSE 
 		BEGIN
 			USER.GOTORELATIVEDISTANCE THIS -25 18
 			USER.FACEOBJECT THIS -32
 			OPERATE user
 			NOWAIT USER.TRY "WOPENDOORIN"
			WAIT 24
			USER.GOTORELATIVEDISTANCE THIS 40 -15
 			WAIT 24
			wait THIS.STATE "CLOSINGOUT"
			CONTROL ON
			THIS.STATE "CLOSED"
		END
	END
END

OBJECT "DOOR1"
begin 
	USE
	BEGIN
		TIMELIMIT 720
		BUSYMSG "Другой игрок использует эту дверь"
		CONTROL OFF
		USER.COMBAT OFF
		USER.STOP
 		IF THIS.ISOUTSIDE user = 1
 		BEGIN
 			IF THIS.STATE = 1
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS 42 -32
 				IF USER.ISATRELATIVEDISTANCE THIS 42 -32 = 1
 				BEGIN 
 					USER.FACEOBJECT THIS 15
 					NOWAIT USER.TRY "WCLOSEDOOROUT"
				END
 			END
 			ELSE
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS 42 -32
 				IF USER.ISATRELATIVEDISTANCE THIS 42 -32 = 1
 				BEGIN 
 					USER.FACEOBJECT THIS 15
 					NOWAIT USER.TRY "WOPENDOOROUT"
				END
 			END
 		END
 		ELSE 
 		BEGIN
 			IF THIS.STATE = 1
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS -25 18
 				IF USER.ISATRELATIVEDISTANCE THIS -25 18 = 1
 					BEGIN 
 					USER.FACEOBJECT THIS -32
 					NOWAIT USER.TRY "WCLOSEDOORIN"
				END
 			END
 			ELSE
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS -25 18
 				IF USER.ISATRELATIVEDISTANCE THIS -25 18 = 1
 				BEGIN 
 					USER.FACEOBJECT THIS -32
 					NOWAIT USER.TRY "WOPENDOORIN"
				END
 			END
 		END
		OPERATE USER
		WAIT 24
		FADESCREENOUT
		WAIT SCREENFADE
		nowait STATE "CLOSED"
		nowait STATE "CLOSED"
		ACTIVATE
		FADESCREENIN
 		CONTROL ON
	END
END

OBJECT "DOOR2"
begin

	USE
  	BEGIN
		TIMELIMIT 720
		BUSYMSG "Другой игрок использует эту дверь"
		CONTROL OFF
		USER.COMBAT OFF
		USER.STOP
 		IF THIS.ISOUTSIDE user = 1
 		BEGIN
 			IF THIS.STATE = 1
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS 42 -32
 				IF USER.ISATRELATIVEDISTANCE THIS 42 -32 = 1
 				BEGIN 
 					USER.FACEOBJECT THIS 15
 					NOWAIT USER.TRY "WCLOSEDOOROUT"
 				END
 			END
 			ELSE
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS 42 -32
 				IF USER.ISATRELATIVEDISTANCE THIS 42 -32 = 1
 				BEGIN 
 					USER.FACEOBJECT THIS 15
 					NOWAIT USER.TRY "WOPENDOOROUT"
 				END
 			END
 		END
 		ELSE 
 		BEGIN
 			IF THIS.STATE = 1
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS -25 18
 				IF USER.ISATRELATIVEDISTANCE THIS -25 18 = 1
 				BEGIN 
 					USER.FACEOBJECT THIS -32
 					NOWAIT USER.TRY "WCLOSEDOORIN"
 				END
 			END
 			ELSE
 			BEGIN
 				USER.GOTORELATIVEDISTANCE THIS -25 18
 				IF USER.ISATRELATIVEDISTANCE THIS -25 18 = 1
 				BEGIN 
 					USER.FACEOBJECT THIS -32
 					NOWAIT USER.TRY "WOPENDOORIN"
 				END
 			END
 		END
		WAIT 24
		FADESCREENOUT
		WAIT SCREENFADE
		nowait STATE "CLOSED"
		nowait STATE "CLOSED"
		ACTIVATE
		FADESCREENIN
 		CONTROL ON
 	END
END


