BTF1_Bitplane_Width  = 40
BTF1_Bitplane_Height = 256
BTF1_NumPlanosImagen = 5

BTF1_PosXInicialMarti=190
BTF1_PosYInicialMarti=145

BTF1_ShowAnim MACRO      ;Delay_1,Posicion_1,StoryBoard,Alto,Ancho-words,SemaforoFin
\@
	tst.w 	\1
	beq 	.ImprimeBob
	sub.w   #1,\1
	clear 	d0 			;para indicar que no hemos mostrado nada
	bra.s 	.fin

.ImprimeBob:
	move.l 	\2,a4 	
	
	jif.l     #-1,'<>',(a4),.noreset,.l
	ifnc '\6',''
		move.w 	#1,\6
		bra .fin
	endc
	ifc '\6',''
		lea 	\3,a4
		move.l 	a4,\2
	endc


.noreset:
	move.l  (a4)+,d0     ;x
	move.l  (a4)+,d1     ;y

	move.l  (a4)+,d2     ;tiempo
	move.w  d2,\1

	moveq   #\4,d2 		 ;Altura del bob
	moveq	#\5,d3 		 ;Ancho en words

	move.l 	(a4)+,a0 	 ;a0 origen
	;beq.s 	.fin
	move.l 	(a4)+,a3     ;a3 mascara
	lea 	BTF1_Imagen,a1
	move.l 	a4,\2        ;Actualizamos la posicion dentro del StoryBoard
	;------------------------------------------------------------------	
	; a0 Bob                 d0 Posicion X
	; a1 Fondo               d1 Posicion Y
	; a2                     d2 Altura
	; a3 Mascara Bob         d3 Anchura (words)
	; a4 Fondo-copia
	;------------------------------------------------------------------
	lea 	BTF1_ImagenBackup,a4 	
	move.l 	#BTF1_Bitplane_Width,d4
	move.l	#BTF1_NumPlanosImagen,d5
	move.l 	#40,d4
	move.l	#5,d5
	bsr 	gblImprimeBob
	moveq 	#1,d0

.fin:
	nop
	ENDM

BTF1_Init:
	lea.l	BTF1_Imagen,a1
	lea.l	BTF1_Copper_Bitplanes+2,a2
	move.l	a1,d1

	REPEAT 	d0,BTF1_NumPlanosImagen TIMES
		swap	d1
		move.w	d1,(a2)
		swap	d1
		move.w	d1,4(a2)
		addq.l	#8,a2
		add.l	#BTF1_Bitplane_Width,d1
	END_REPEAT
	
	move.w  #0,Global_Contador
	
	lea.l	BTF1_CopperList,a1
	move.l	a1,Cop1Lch+CustomBase

	clr.w 	CopJmp1+CustomBase

	rts	;
;--------------------------------------------------------------
; Invocada en cada VBG
; El pobre blitter de 1985 no puede con todo a la vez, asi que
; limitamos el numero de personajes animados a 1 en cada VBG
; y a cascarla.
;--------------------------------------------------------------
BTF1_Run:
	add.w #1,Global_Contador
	clear d2
	move.l 	GLobal_Puntero,a0
	move.w 	(a0),d0
	jif.w 	Global_Contador,'<>',d0,.NoImprimirTexto
	move.w 	2(a0),d2 		; Color
	move.w 	4(a0),d0 		; X
	move.w 	6(a0),d1 		; Y

	add.l 	#48,GLobal_Puntero

	gblPrintText82 BTF1_Imagen,BTF1_ImagenBackup,d0,d1,8(a0),BTF_FontCbm64,BTF_CharTab,BTF_CharTabEnd,8,1,BTF1_Bitplane_Width,BTF1_NumPlanosImagen,d2

.NoImprimirTexto
	BTF1_ShowAnim Delay_1,Posicion_1,QUEN_StoryBoard_1,55,5,BTF1_FinMarty
	jif.b  #0,'<>',D0,BTF1_AnimacionesSprites
	BTF1_ShowAnim Delay_2,Posicion_2,BTF_StoryBoard_Equalizador,50,3
	jif.b  #0,'<>',D0,BTF1_AnimacionesSprites

BTF1_AnimacionesSprites:

	rts

; --------------------------------------------------------------------------------------------------
; Animacion de Marty McFly
; --------------------------------------------------------------------------------------------------
	even
Delay_1: dc.w 0
Posicion_1: dc.l BTF_StoryBoard_Marti

BTF_StoryBoard_Marti: ; X,Y,Tiempo de visualizacion,bob,mascara
	dc.l 	BTF1_PosXInicialMarti,BTF1_PosYInicialMarti,300,BTF1_Personaje1f1,BTF1_Personaje1f1Mask
	dc.l 	BTF1_PosXInicialMarti,BTF1_PosYInicialMarti,250,BTF1_Personaje1f2,BTF1_Personaje1f2Mask	
	dc.l 	BTF1_PosXInicialMarti,BTF1_PosYInicialMarti,005,BTF1_Personaje1f1,BTF1_Personaje1f1Mask	

	dc.l 	BTF1_PosXInicialMarti+3*01,BTF1_PosYInicialMarti-01,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*02,BTF1_PosYInicialMarti-02,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*03,BTF1_PosYInicialMarti-03,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*04,BTF1_PosYInicialMarti-04,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*05,BTF1_PosYInicialMarti-05,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*06,BTF1_PosYInicialMarti-06,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*07,BTF1_PosYInicialMarti-07,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*08,BTF1_PosYInicialMarti-08,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*09,BTF1_PosYInicialMarti-09,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*10,BTF1_PosYInicialMarti-10,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*11,BTF1_PosYInicialMarti-11,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*12,BTF1_PosYInicialMarti-12,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*13,BTF1_PosYInicialMarti-13,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask

	dc.l 	BTF1_PosXInicialMarti+3*14,BTF1_PosYInicialMarti-12,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*15,BTF1_PosYInicialMarti-11,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*16,BTF1_PosYInicialMarti-10,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*17,BTF1_PosYInicialMarti-09,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*18,BTF1_PosYInicialMarti-08,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*19,BTF1_PosYInicialMarti-07,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*20,BTF1_PosYInicialMarti-06,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*21,BTF1_PosYInicialMarti-05,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*22,BTF1_PosYInicialMarti-04,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*23,BTF1_PosYInicialMarti-03,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*24,BTF1_PosYInicialMarti-02,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*25,BTF1_PosYInicialMarti-01,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	BTF1_PosXInicialMarti+3*26,BTF1_PosYInicialMarti-00,1,BTF1_Personaje1f3,BTF1_Personaje1f3Mask
	dc.l 	-1,0,0,0,0

; --------------------------------------------------------------------------------------------------
; FIN - Animacion de Marty McFly
; --------------------------------------------------------------------------------------------------

; --------------------------------------------------------------------------------------------------
; Animacion de Equalizador
; --------------------------------------------------------------------------------------------------
Delay_2: dc.w 0
Posicion_2: dc.l BTF_StoryBoard_Equalizador

BTF_StoryBoard_Equalizador: ; X,Y,Tiempo de visualizacion,bob,mascara
	dc.l 	0,105,554,0,0
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask
	dc.l 	0,105,50,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask		
	dc.l 	0,105,99999,BTF1_EqualizadorRojo,BTF1_EqualizadorRojoMask	
	dc.l 	-1,0,0,0,0

	even
; --------------------------------------------------------------------------------------------------
; FIN - Animacion de Equalizador
; --------------------------------------------------------------------------------------------------

Global_Contador: dc.w 0

GLobal_Puntero: dc.l BTF1_Literatura

BTF1_FinMarty:dc.w 0
;---------------------------------------------------------------------------------------------------
; Textos
;---------------------------------------------------------------------------------------------------
BTF1_Literatura:
	;COntador,Color,X,Y

	dc.w 	1,31,0,6
	dc.b 	"        AMIGAWAVE & GOBLINS 2017       ",0	
	dc.w 	5,11,0,27
	dc.b 	"      BACK TO THE FUTURE TRIBUTE       ",0		
	dc.w 	610,31,0,14
	dc.b 	"                WHOA!! ROCK AND ROLL!! ",0
	dc.w 	-1
