;;####################################################################
;;# GNU Free Documentation License                                   #
;;# Version 1.3, 3 November 2008                                     #
;;#                                                                  #
;;# Copyright (C) 2021 Lumina                                        #
;;# (Paula Garcia Morales, Laura Gil Lopez, Jorge Perez Dominguez)   #
;;#                                                                  #
;;# Everyone is permitted to copy and distribute verbatim copies     #
;;# of this license document, but changing it is not allowed.        #
;;####################################################################


.include "cpctelera.h.s"
.include "clock.h.s"

relojito:: .db #0x00

Ch1Reloj:: .db 57  ;;9
Ch2Reloj:: .db 48  ;;0


clock_init::
	call paint_clock
ret

clock_update::
	ld a, (relojito)
	cp #0x0C              ;;Comparar con valor 50 en ASCII
	jr z, acabado_tiempo

	inc a 
	ld (relojito), a

	call paint_clock

	ret

	acabado_tiempo:
		call clock_logic
		call paint_clock

		ld a, #0x00
		ld (relojito), a
ret

clock_logic:
	;;Comprobamos el digito de la derecha para ver si vale 0
	ld a, (Ch2Reloj)
	cp #48               ;;Comprobar si vale 0(ascii)
	jr z, change_digit
	dec a 
	ld (Ch2Reloj), a 

	ret

	change_digit:
		;;Comprobamos el digito de la izquierda para ver si vale 0
		ld a, (Ch1Reloj)
		cp #48
		jr z, voy_game_over
		dec a 
		ld (Ch1Reloj), a

		ld a, #57         ;;Cargar 9(ascii) en el digito de la izquierda
		ld (Ch2Reloj), a

	ret

	voy_game_over:
		call animation_muerte
		call man_menu_game_over_clock
		call reset_level
		call reset_nivel
ret


paint_clock::
    ld bc, #0x0805 ;;y(8)x(5)
    ld a, (Ch1Reloj)
    call render_lifes_clock_levels
    

    ld bc, #0x0807 ;;y(8)x(7)
    ld a, (Ch2Reloj)
    call render_lifes_clock_levels
ret

reset_clock::
	ld a, #57
	ld (Ch1Reloj), a 

	ld a, #48
	ld (Ch2Reloj), a
ret