FinalG.asm

.model small
.stack 100h

;--------------- C U A D R O S / I N T E R F A Z ---------------

cuadro macro color, pi, pf
    mov ah, 06H     ; Funci?n de desplazamiento hacia arriba.
    mov al, 0       ; N?mero de l?neas para desplazar (0 = limpiar toda la pantalla)
    mov bh, color   ; Atributo de color (por ejemplo, 1F = fondo azul, texto blanco)
    mov cx, pi      ; Esquina superior izquierda (rengl?n = 0, columna = 0)
    mov dx, pf      ; Esquina inferior derecha (fila 12, columna 39)
    int 10H
endm

reset_color macro
    cuadro 05h, 030AH, 0C27H ; Morado
    cuadro 0Ch, 0327H, 0C45H ; Rosa
    cuadro 0Eh, 0C0AH, 1527H ; Naranja
    cuadro 0Ah, 0C27H, 1545H ; Verde lim?n
endm

cambiar_color macro pos_x, pos_y
    mov cx, pos_x
    mov dx, pos_y
    cmp cx, 130h
    jb izquierda
    cmp cx, 27h
    jg derecha
    jmp cursor

izquierda:
    cmp dx, 0B4h
    jb cambiar_q1
    cmp dx, 32h
    jg cambiar_q3

derecha:
    cmp dx, 0B4h
    jl cambiar_q2
    cmp dx, 32h
    ja cambiar_q4

cambiar_q1:
    mov eleccion_temp, 1
    cuadro 0CH, 030AH, 0b26H ;Rosa
    int 10h
    jmp return_cambiar_color

cambiar_q2:
    mov eleccion_temp, 2  
    cuadro 0aH, 0327H, 0b45H ;Verde claro
    int 10h
    jmp return_cambiar_color

cambiar_q3:
    mov eleccion_temp, 3   
    cuadro 0bH, 0C0AH, 1526H ;Cyan
    int 10h
    jmp return_cambiar_color

cambiar_q4:
    mov eleccion_temp, 4 
    cuadro 0eH, 0C27H, 1545H ;Amarillo claro
    int 10h
    jmp return_cambiar_color

return_cambiar_color:
endm

cambiar_de_turno macro
    cmp turno_jugador, 03
    je reset_turno_jugador
    inc turno_jugador
    jmp cambiar_turno_salir
    
    reset_turno_jugador:
    mov turno_jugador, 0

    cambiar_turno_salir:
endm

new_color_click macro
    sonar_nota B5, 5, k
    call play_nota ;subrutina tocar nota
    sonar_nota B5, 5, k
    call play_nota ;subrutina tocar nota
    sonar_nota E6, 5, k
    call play_nota ;subrutina tocar nota
    sonar_nota D6, 5, k
    call play_nota ;subrutina tocar nota
endm

mostrar_ronda macro
    mov al, numero_ronda
    add al, 31h
    mov mensaje_numero_ronda, al
    mensaje mensaje_numero_ronda, 28, 45, 1d ; ronda
endm

mostrar_turno macro
    mov al, turno_jugador
    add al, 31h
    mov mensaje_turno_jugador, al
    mensaje mensaje_turno_jugador, 28, 28, 1d ; TURNO JUGADOR 
endm

actualizar_barra_vida macro
    mensaje jugador_vida[0], 4, 0, 1d  ;Estado de vida J1  
    mensaje jugador_vida[1], 12, 0, 1d ;Estado de vida J2
    mensaje jugador_vida[2], 18, 0, 1d ;Estado de vida J3
    mensaje jugador_vida[3], 23, 0, 1d ;Estado de vida J4
endm

mensaje macro Smensaje, filaMsj, columnaMsj, longCad
    mov ah, 13h             ; Funci?n para escribir cadena de texto
    mov al, 0               ; Modo de escritura (0 = solo actualizar caracteres)
    mov bh, 0               ; P?gina de video
    mov bl, 0Fh             ; Atributos de color para el texto
    mov cx, longCad         ; Longitud de la cadena
    mov dh, filaMsj         ; Fila (aproximadamente el centro del cuadrante)
    mov dl, columnaMsj      ; Columna (aproximadamente el centro)
    push ds                 ; La funci?n 13h espera ES:BP como puntero a la cadena
    pop es                  ; as? que igualamos ES a DS
    lea bp, Smensaje        ; Carga la direcci?n de msg1 en BP
    int 10h                 ; Escribe el texto en pantalla
endm

win macro
    sonar_nota b5, 15, k
    call play_nota ;subrutina tocar nota
endm  

error_click macro
    sonar_nota D4, 9, k
    call play_nota ;subrutina tocar nota
endm  

correct_click macro ;sonido para cuando se inserta una nota correcta
    sonar_nota C5, 5, k
    call play_nota ;subrutina tocar nota
    sonar_nota F5, 5, k
    call play_nota ;subrutina tocar nota
    sonar_nota G5, 5, k
    call play_nota ;subrutina tocar nota
endm

iniciar_bocina macro
    in al, 61h ;guardar el estado del parlante
    and al, 11111100b ;gate2=0, out2=0 (desactivar conexi?n contador 2 con el altavoz)
    mov spk, al
endm

sonar_nota macro tono, durac, k
    mov cx, tono ; obtenemos la frecuencia de la nota
    mov ax, durac; obtenemos la duraci?n de la nota
    mov k, ax
endm

apagar_bocina macro
    mov al, spk; apagar y desconectar
    and al, 11111100b; parlante del canal 2 del 8254
    out 61h, al
    ret
endm




; Data

.data
    x dw 320
    y dw 240
    
    pos_y dw 0
    pos_x dw 0


    eleccion_temp db 00
    
    vivo   equ 03h
    muerto equ 58H
    
    numero_jugadores dw 00h
    turno_jugador    db 00h
    jugador_vida     db 58h, 58h, 58h, 58h
    
    numero_click db 00
    numero_ronda db 00h
    
    save_pos dw 0
    save     db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

    mensaje_seleccion_jugadores db 'Elige el numero de jugadores$' ;28 caracteres
    mensaje_turno db "Turno del jugador: Jugador$" ;26 caracteres
    mensaje_ronda db "RONDA: " ;7 caracteres
    mensaje_numero_ronda db 0 ;1 caracteres
    mensaje_turno_jugador db 00
    mensaje_turno_j1 db "JUGADOR 1"
    mensaje_turno_j2 db "JUGADOR 2"
    mensaje_turno_j3 db "JUGADOR 3"
    mensaje_turno_j4 db "JUGADOR 4"
    mensaje_estado_vivo db 03H ;1 caracteres
    mensaje_estado_muerto db 2AH ;1 caracteres
    mensaje_ganador db "El ganador es el jugador ";25
    mensaje_jugador_ganador db 31h

    espacio equ 1 ; tiempo entre notas
    durac dw 16 
    tono dw 523 
    spk db 0 ; estado del parlante
    ktic dw 0 ;tic del sistema
    k dw 0 ;control de retardo

    click_note dw 196 ; SOL 3 OCTAVA
    C5 dw 523 ; SOL 3 OCTAVA
    F5 dw 698 ; SOL 3 OCTAVA
    G5 dw 783 ; SOL 3 OCTAVA
    B5 dw 987
    E6 dw 1318
    D6 dw 1174
    D4 dw 294
       CS4 dw 277
    C4 dw 261
    B4 dw 493

    buffer db 0

.code

main proc FAR
    mov ax, @data
    mov ds, ax

    iniciar_bocina
      
    mov ah, 00h
    mov al, 12h ;modo gr?fico 640 x 480 pixeles
    mov bh, 00h ;p?gina 0, color negro
    int 10h
    
    mov ah, 0bh
    mov bh, 00h
    
    ;-------PINTAR CUADROS INICIALES--------------------------
    ; cuadros de color    
    cuadro 04h, 030AH, 0C27H ;Rojo
    cuadro 02H, 0327H, 0C45H ;Verde
    cuadro 01H, 0C0AH, 1527H ;Azul
    cuadro 06H, 0C27H, 1545H ;Amarillo
    int 10h
    
    ;mensaje mensaje_seleccion_jugadores, 02,01,28d
    
    ;--------------------------SELECCI?N DE N?MEROS DE JUGADORES
    
    mov numero_jugadores, 4
    mov turno_jugador, 0

    ;------- Establecer vida de los jugadores
    mov si, 0
ciclo_numero_jugadores:
    mov al, vivo
    mov jugador_vida[si], al
    inc si
    cmp si, numero_jugadores
    jl ciclo_numero_jugadores
    
    mensaje mensaje_turno_j1, 3, 0, 9d   ;VIDA J1
    mensaje mensaje_turno_j2, 10, 0, 9d  ;VIDA J2
    mensaje mensaje_turno_j3, 16, 0, 9d  ;VIDA J3
    mensaje mensaje_turno_j4, 22, 0, 9d  ;VIDA J4  
    actualizar_barra_vida
    mensaje mensaje_turno, 28, 01, 26d ; MENSAJE TURNO DE QUI?N ES
    mensaje mensaje_ronda, 28, 35, 7d 

    ;-----ESTABLECER INICIO DEL JUEGO------
   
    call ini_mou ;Inicializa mouse
    
    ;Muestra puntero de mouse
    mov ax, 01h
    int 33h
    
    ;Ubica el mouse
    mov ax, 04h
    mov cx, x
    mov dx, y 
    int 33h

;------------CICLO DE INICIADO DE CURSOR------------------------    
    mov si, 0
inicio_de_turno:
    mostrar_turno
    mostrar_ronda
    
    mov numero_click, 0
    
    cursor:
    mov ax, 03h
    int 33h
    cmp bx, 1 ; DETECTA QUE SE DA UN CLICK IZQUIERDO
    je continuar
    jmp cursor
    
    ;---------------------
    ;CUANDO SE DETECTA UN CLICK DERECHO LLEGA AQU?
    ;---------------------
    
    bandera_de_salida:
    apagar_bocina
    jmp salir
    
    ;---------------------
    ;CUANDO SE DETECTA UN CLICK IZQUIERDO LLEGA AQU?
    ;---------------------
    
continuar:
    mov pos_x, cx
    mov pos_y, dx
    cambiar_color pos_x, pos_y
    
    cmp save[si], 0
    je registrar_color
    
    mov al, save[si]
    cmp eleccion_temp, al
    je eleccion_correcta_yei
    
    paso_para_cambiar_intento1:
    error_click
    dec numero_jugadores
    mov al, turno_jugador
    mov ah, 0
    mov di, ax
    mov jugador_vida[di], 58h
    jmp cambiar_de_turno_jmp
    
    eleccion_correcta_yei:
    correct_click ;SONIDO de tururu
    jmp finalizar_click
    
registrar_color:
    new_color_click
    mov al, eleccion_temp
    mov save[si], al
    inc save_pos
    jmp cambiar_de_turno_jmp
    
finalizar_click:
    cmp si, save_pos ; SE CHEQUEA SI YA PASARON LOS 10 TURNOS
    je cambiar_de_turno_jmp
    inc si
    reset_color
    int 10h ; sin esto el reset color mata el c?digo
    jmp inicio_de_turno ;----REINICIO DE LA RONDA
    
cambiar_de_turno_jmp:
    actualizar_barra_vida
    cambiar_de_turno
    mov al, turno_jugador
    mov ah, 0
    mov di, ax
    cmp jugador_vida[di], 58h
    je cambiar_de_turno_jmp   
    mov si, 0 ; reiniciamos el contador del arreglo

    cmp save_pos, 30
    je reiniciamos_save_pos

return_reiniciamos_save_pos:
    cmp numero_jugadores, 1
    je terminar_game

    jmp inicio_de_turno

reiniciamos_save_pos:
    mov save_pos, 29
    jmp return_reiniciamos_save_pos

terminar_game:
    b5 dw 988 ; Frecuencia de sonido correspondiente a la nota B5
    win
    mov al, turno_jugador
    add mensaje_jugador_ganador, al
    mensaje mensaje_jugador_ganador, 28, 63, 1d ; TURNO JUGADOR
cursor2:
    mensaje mensaje_ganador, 28, 35, 25d ; TURNO JUGADOR
    mov ax, 03h
    int 33h
    cmp bx, 2 ;detecta clic derecho y sale del programa
    je bandera_de_salida2
    jmp cursor2

bandera_de_salida2:
    apagar_bocina
    jmp salir

salir:
    mov ax, 02h ; oculto el rat?n
    int 33h
    mov ah, 00h
    mov al, 03h
    int 10h
    
    ;---------------------
    ;Salir del DOS
    ;---------------------
    
    mov ax, 4C00H
    int 21H  
    
main ENDP

;-----------------------------------
;       PROCESOS
;-----------------------------------

ini_mou proc
    mov ax, 00h
    int 33h
    cmp al, 00h 
    je salir
    ret
ini_mou endp

play_nota proc
    mov dx, 12h ;fc= 1193180 = 1234DCh
    mov ax, 34DCh ;calcular valor de N
    div cx ;en cx est? el per?odo N = fc / fn => dx:ax / cx -> N = ax
    mov dx, ax ;dx <= N

    mov al, 0B6h ; configurar 8254 (palabra de control -> 0B6h)
    out 43h, al ; carga de la configuraci?n en el temporizador 8254

    mov dx, ax ;dx <= N

    mov al, 0B6h 
    out 43h, al
    mov al, dl
    out 42h, al
    mov al, dh
    out 42h, al

    mov al, spk
    or al, 00000011b
    out 61h, al
    call retardo

    mov al, spk
    and al, 11111100b
    out 61h, al
    mov k, espacio
    call retardo
    ret
play_nota endp

tic proc
    mov ah, 0
    int 01ah
    ret
tic endp

retardo proc
    push cx
    call tic
    add dx, k ;modificar tic
    mov ktic, dx
r10:
    call tic
    cmp dx, ktic
    jne r10
    pop cx
    ret
retardo endp 

end main