;;
;; Master Eye Script 
;; Slaves are LeftEye.ats
;;
;; Coco derivative of Crash scripts
;;

;; Script Name
Scriptname RghtEyeC

Start:
	Rate 1,0		;; Set the Anim Rate to 30 fps
	Tex 0			;; Set the texture to Frame 0

;;
;; Main Blink Loop
;;
BlinkLoop:
	Wait 0,180		;; Wait randomly between 0 to 160 frames

	XRef FastCloseLeftEyeCoco	;; Close the left eye
	Gosub FastCloseRightEye	;; Close the right eye

	Wait 0,7		;; Hold eye closed for random time

	XRef OpenLeftEyeCoco	;; Close the right eye
	Gosub OpenRightEye	;; Open the right eye

	Goto BlinkLoop		;; Restart the loop

;;
;; Sub Routines
;;
OpenRightEye:

	Repeat			;; Open Eye using a loop
	TexAdj -1,0,3
	UntilTex = 0
	Ret
	
CloseRightEye:

	Repeat			;; Close Eye using a loop
	TexAdj 1,0,3
	UntilTex = 3
	Ret

FastCloseRightEye:

	Tex 0			;; Fast Close using frame list
	Tex 2			;; that skips certain frames
	Tex 3
	Ret

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;				;;
;; 	Event Handlers		;;
;;				;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;
;; Event 1 on - Angel Crash
;;
On 1

	XRef ResetAngelLeftEyeCoco		;; Reset LeftEye Texture to open
	Tex 0					;; Reset RightEye Texture to open
	End


;;
;; Event 1 off - Reset Eye to open
;;
Off 1
	Tex 0			;; Reset blink to a safe frame
	Goto BlinkLoop		;; Return to normal blink

;;
;; Close eyes - Death etc
;;
On 5

	XRef FastCloseLeftEyeCoco	;; Close remote left eye
	Gosub FastCloseRightEye		;; Close the right eye
	End
	
Off 5

	XRef OpenLeftEyeCoco		;; Open Remote Left eye
	Gosub OpenRightEye		;; Open remote Right eye
	End