;;
;; Slave Script controlled by RightEye.ats
;;

;; Script Name
Scriptname LeftEye

Start:
	Rate 1,0	;; Set the Anim Rate to 30 fps
	Tex 0		;; Set the texture to Frame 0
	End		;; Terminate Slave until Master script calls function
	
XDef FastCloseLeftEye
	
	Tex 0		;; Use individual frames to do a quick close
	Tex 2
	Tex 3
	End		;; Terminate slave script
	
XDef OpenLeftEye
	
	Repeat		;; Close Eye using a loop
	TexAdj -1,0,4
	UntilTex = 0
	End		;; Terminate slave script
	
XDef WinkLeftEye
	
	Btex > 1 OpenSquint	;; Open the eye to a squint if closed
	
	Repeat		;; Squint Eye using a loop
	TexAdj 1,0,4
	UntilTex = 2

	End		;; Terminate slave
	
XDef CloseAngelLeftEye

	Tex 4			;; Angel Crash currently uses 1 frame
	End			;; of texture animation for a closed eye
	
XDef OpenAngelLeftEye

	Tex 0			;; Reset eye to open
	End
	
XDef ResetAngelLeftEye		;; Reset LeftEye Texture to open

	Tex 0
	End
	
;;
;; Sub Routines
;;

OpenSquint:

	Repeat
	TexAdj -1,0,4
	UntilTex = 1
	
	End		;; Terminate Slave