Definitivamente y sin duda alguna el Mejor es Most Wanted
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
pixel macro cursorX,cursorY
mov AL, cursorX
mov BL, 8
div BL
mov varX,al
mov AL, cursorY
mov BL, 8
div BL
mov varY, AL
endm
;****************************************************************************************************
gotoxy macro fila,columna
mov ah,02h ;macro gotoxy
mov dl,fila ;set cursor position
mov dh,columna
mov bh,0
int 10h
endm
repetir macro caracter,veces,color
mov ah,09h
mov al,caracter
mov bh,0 ;numero de paginas
mov bl,color ;color ;1=azul,2=verde,4=rojo,
;5=morado, 7=blanco,0=negro
mov cx,veces
int 10h ;veces
endm ;interrupcion de video (int 10)
.model large
.stack
.code
varX db ?
varY db ?
var0 db ?
.data
msg db " DAMERO $"
an db "integrantes: Jose Andres Moreno $"
mar db " Marco Antonio Portillo $"
ind db " Instrucciones de juego $"
d db "1)Clik derecho para jugador 1(cuadritos rojo)$"
i db "2)Clik izquierdo jugador 2(cuadritos verde) $"
n db "3)Oprimir los dos botones para despazarse $"
g db "entre el tablero $"
Var1 db ?
If_Color db ?
.startup
gotoxy 1,0
repetir 178,34,9
gotoxy 14,0
mov ah,09h
lea dx, msg
int 21h
gotoxy 38,5
mov ah,09h
lea dx,an
int 21h
gotoxy 38,6
mov ah,09h
lea dx,mar
int 21h
gotoxy 42,8
mov ah,09h
lea dx,ind
int 21h
gotoxy 35,10
mov ah,09h
lea dx,d
int 21h
gotoxy 35,11
mov ah,09h
lea dx,i
int 21h
gotoxy 35,12
mov ah,09h
lea dx,n
int 21h
gotoxy 35,13
mov ah,09h
lea dx,g
int 21h
start:
gotoxy 1,1
repetir 178,34,5
gotoxy 1,2
repetir 178,34,5
gotoxy 1,3
repetir 178,34,5
gotoxy 1,4
repetir 178,34,5
gotoxy 1,5
repetir 178,34,5
gotoxy 1,6
repetir 178,34,5
gotoxy 1,7
repetir 178,34,5
gotoxy 1,8
repetir 178,34,5
gotoxy 1,9
repetir 178,34,5
gotoxy 1,10
repetir 178,34,5
gotoxy 1,11
repetir 178,34,5
gotoxy 1,12
repetir 178,34,5
gotoxy 1,13
repetir 178,34,5
gotoxy 1,14
repetir 178,34,5
gotoxy 1,15
repetir 178,34,5
gotoxy 1,16
repetir 178,34,5
gotoxy 1,17
repetir 178,34,5
gotoxy 1,18
repetir 178,34,5
gotoxy 1,19
repetir 178,34,5
gotoxy 1,20
repetir 178,34,5
gotoxy 1,21
repetir 178,34,5
;********PRIMER FILA DE CUADRITOS*********
;primera guadrito
gotoxy 3,1
repetir 178,3,7
gotoxy 3,2
repetir 178,3,7
;segundo cuadrito
gotoxy 6,1
repetir 178,3,0
gotoxy 7,1
repetir 178,1,2
gotoxy 6,2
repetir 178,3,0
;tercer guadrito
gotoxy 9,1
repetir 178,3,7
gotoxy 9,2
repetir 178,3,7
;cuarto cuadrito
gotoxy 12,1
repetir 178,3,0
gotoxy 13,1
repetir 178,1,2
gotoxy 12,2
repetir 178,3,0
;quinto guadrito
gotoxy 15,1
repetir 178,3,7
gotoxy 15,2
repetir 178,3,7
;sexto cuadrito
gotoxy 18,1
repetir 178,3,0
gotoxy 19,1
repetir 178,1,2
gotoxy 18,2
repetir 178,3,0
;septimo guadrito
gotoxy 21,1
repetir 178,3,7
gotoxy 21,2
repetir 178,3,7
;octavo cuadrito
gotoxy 24,1
repetir 178,3,0
gotoxy 25,1
repetir 178,1,2
gotoxy 24,2
repetir 178,3,0
;noveno guadrito
gotoxy 27,1
repetir 178,3,7
gotoxy 27,2
repetir 178,3,7
;decimo cuadrito
gotoxy 30,1
repetir 178,3,0
gotoxy 31,1
repetir 178,1,2
gotoxy 30,2
repetir 178,3,0
;*********SEGUNDA FILA DE CUADRITOS************
;primera guadrito segunda linea
gotoxy 3,3
repetir 178,3,0
gotoxy 4,3
repetir 178,1,2
gotoxy 3,4
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 6,3
repetir 178,3,7
gotoxy 6,4
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 9,3
repetir 178,3,0
gotoxy 10,3
repetir 178,1,2
gotoxy 9,4
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 12,3
repetir 178,3,7
gotoxy 12,4
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 15,3
repetir 178,3,0
gotoxy 16,3
repetir 178,1,2
gotoxy 15,4
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 18,3
repetir 178,3,7
gotoxy 18,4
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 21,3
repetir 178,3,0
gotoxy 22,3
repetir 178,1,2
gotoxy 21,4
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 24,3
repetir 178,3,7
gotoxy 24,4
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 27,3
repetir 178,3,0
gotoxy 28,3
repetir 178,1,2
gotoxy 27,4
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 30,3
repetir 178,3,7
gotoxy 30,4
repetir 178,3,7
;************TERCERA LINEA DE CUADRITOS***********
;primera guadrito
gotoxy 3,5
repetir 178,3,7
gotoxy 3,6
repetir 178,3,7
;segundo cuadrito
gotoxy 6,5
repetir 178,3,0
gotoxy 7,5
repetir 178,1,2
gotoxy 6,6
repetir 178,3,0
;tercer guadrito
gotoxy 9,5
repetir 178,3,7
gotoxy 9,6
repetir 178,3,7
;cuarto cuadrito
gotoxy 12,5
repetir 178,3,0
gotoxy 13,5
repetir 178,1,2
gotoxy 12,6
repetir 178,3,0
;quinto guadrito
gotoxy 15,5
repetir 178,3,7
gotoxy 15,6
repetir 178,3,7
;sexto cuadrito
gotoxy 18,5
repetir 178,3,0
gotoxy 19,5
repetir 178,1,2
gotoxy 18,6
repetir 178,3,0
;septimo guadrito
gotoxy 21,5
repetir 178,3,7
gotoxy 21,6
repetir 178,3,7
;octavo cuadrito
gotoxy 24,5
repetir 178,3,0
gotoxy 25,5
repetir 178,1,2
gotoxy 24,6
repetir 178,3,0
;noveno guadrito
gotoxy 27,5
repetir 178,3,7
gotoxy 27,6
repetir 178,3,7
;decimo cuadrito
gotoxy 30,5
repetir 178,3,0
gotoxy 31,5
repetir 178,1,2
gotoxy 30,6
repetir 178,3,0
;*************CUARTA LINEA DE CUADRITOS******************
;primera guadrito segunda linea
gotoxy 3,7
repetir 178,3,0
gotoxy 4,7
repetir 178,1,2
gotoxy 3,8
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 6,7
repetir 178,3,7
gotoxy 6,8
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 9,7
repetir 178,3,0
gotoxy 10,7
repetir 178,1,2
gotoxy 9,8
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 12,7
repetir 178,3,7
gotoxy 12,8
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 15,7
repetir 178,3,0
gotoxy 16,7
repetir 178,1,2
gotoxy 15,,8
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 18,7
repetir 178,3,7
gotoxy 18,8
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 21,7
repetir 178,3,0
gotoxy 22,7
repetir 178,1,2
gotoxy 21,8
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 24,7
repetir 178,3,7
gotoxy 24,8
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 27,7
repetir 178,3,0
gotoxy 28,7
repetir 178,1,2
gotoxy 27,8
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 30,7
repetir 178,3,7
gotoxy 30,8
repetir 178,3,7
;************QUINTA LINEA DE CUADRITOS******************
;primera guadrito
gotoxy 3,9
repetir 178,3,7
gotoxy 3,10
repetir 178,3,7
;segundo cuadrito
gotoxy 6,9
repetir 178,3,0
gotoxy 7,9
repetir 178,1,0
gotoxy 6,10
repetir 178,3,0
;tercer guadrito
gotoxy 9,9
repetir 178,3,7
gotoxy 9,10
repetir 178,3,7
;cuarto cuadrito
gotoxy 12,9
repetir 178,3,0
gotoxy 13,9
repetir 178,1,0
gotoxy 12,10
repetir 178,3,0
;quinto guadrito
gotoxy 15,9
repetir 178,3,7
gotoxy 15,10
repetir 178,3,7
;sexto cuadrito
gotoxy 18,9
repetir 178,3,0
gotoxy 19,9
repetir 178,1,0
gotoxy 18,10
repetir 178,3,0
;septimo guadrito
gotoxy 21,9
repetir 178,3,7
gotoxy 21,10
repetir 178,3,7
;octavo cuadrito
gotoxy 24,9
repetir 178,3,0
gotoxy 25,9
repetir 178,1,0
gotoxy 24,10
repetir 178,3,0
;noveno guadrito
gotoxy 27,9
repetir 178,3,7
gotoxy 27,10
repetir 178,3,7
;decimo cuadrito
gotoxy 30,9
repetir 178,3,0
gotoxy 31,9
repetir 178,1,0
gotoxy 30,10
repetir 178,3,0
;***********SEXTA LINEA DE CUADRITOS******************
;primera guadrito segunda linea
gotoxy 3,11
repetir 178,3,0
gotoxy 4,11
repetir 178,1,0
gotoxy 3,12
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 6,11
repetir 178,3,7
gotoxy 6,12
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 9,11
repetir 178,3,0
gotoxy 10,11
repetir 178,1,0
gotoxy 9,12
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 12,11
repetir 178,3,7
gotoxy 12,12
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 15,11
repetir 178,3,0
gotoxy 16,11
repetir 178,1,0
gotoxy 15,12
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 18,11
repetir 178,3,7
gotoxy 18,12
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 21,11
repetir 178,3,0
gotoxy 22,11
repetir 178,1,0
gotoxy 21,12
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 24,11
repetir 178,3,7
gotoxy 24,12
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 27,11
repetir 178,3,0
gotoxy 28,11
repetir 178,1,0
gotoxy 27,12
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 30,11
repetir 178,3,7
gotoxy 30,12
repetir 178,3,7
;**********SEPTIMA LINEA DE CUADRITOS***************
;primera guadrito
gotoxy 3,13
repetir 178,3,7
gotoxy 3,14
repetir 178,3,7
;segundo cuadrito
gotoxy 6,13
repetir 178,3,0
gotoxy 7,13
repetir 178,1,4
gotoxy 6,14
repetir 178,3,0
;tercer guadrito
gotoxy 9,13
repetir 178,3,7
gotoxy 9,14
repetir 178,3,7
;cuarto cuadrito
gotoxy 12,13
repetir 178,3,0
gotoxy 13,13
repetir 178,1,4
gotoxy 12,14
repetir 178,3,0
;quinto guadrito
gotoxy 15,13
repetir 178,3,7
gotoxy 15,14
repetir 178,3,7
;sexto cuadrito
gotoxy 18,13
repetir 178,3,0
gotoxy 19,13
repetir 178,1,4
gotoxy 18,14
repetir 178,3,0
;septimo guadrito
gotoxy 21,13
repetir 178,3,7
gotoxy 21,14
repetir 178,3,7
;octavo cuadrito
gotoxy 24,13
repetir 178,3,0
gotoxy 25,13
repetir 178,1,4
gotoxy 24,14
repetir 178,3,0
;noveno guadrito
gotoxy 27,13
repetir 178,3,7
gotoxy 27,14
repetir 178,3,7
;decimo cuadrito
gotoxy 30,13
repetir 178,3,0
gotoxy 31,13
repetir 178,1,4
gotoxy 30,14
repetir 178,3,0
;**************OCTAVA LINEA DE CUADRITOS****************
;primera guadrito segunda linea
gotoxy 3,15
repetir 178,3,0
gotoxy 4,15
repetir 178,1,4
gotoxy 3,16
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 6,15
repetir 178,3,7
gotoxy 6,16
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 9,15
repetir 178,3,0
gotoxy 10,15
repetir 178,1,4
gotoxy 9,16
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 12,15
repetir 178,3,7
gotoxy 12,16
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 15,15
repetir 178,3,0
gotoxy 16,15
repetir 178,1,4
gotoxy 15,16
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 18,15
repetir 178,3,7
gotoxy 18,16
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 21,15
repetir 178,3,0
gotoxy 22,15
repetir 178,1,4
gotoxy 21,16
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 24,15
repetir 178,3,7
gotoxy 24,16
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 27,15
repetir 178,3,0
gotoxy 28,15
repetir 178,1,4
gotoxy 27,16
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 30,15
repetir 178,3,7
gotoxy 30,16
repetir 178,3,7
;***************NOVENA LINEA DE CUADRITOS********************
;primera guadrito
gotoxy 3,17
repetir 178,3,7
gotoxy 3,18
repetir 178,3,7
;segundo cuadrito
gotoxy 6,17
repetir 178,3,0
gotoxy 7,17
repetir 178,1,4
gotoxy 6,18
repetir 178,3,0
;tercer guadrito
gotoxy 9,17
repetir 178,3,7
gotoxy 9,18
repetir 178,3,7
;cuarto cuadrito
gotoxy 12,17
repetir 178,3,0
gotoxy 13,17
repetir 178,1,4
gotoxy 12,18
repetir 178,3,0
;quinto guadrito
gotoxy 15,17
repetir 178,3,7
gotoxy 15,18
repetir 178,3,7
;sexto cuadrito
gotoxy 18,17
repetir 178,3,0
gotoxy 19,17
repetir 178,1,4
gotoxy 18,18
repetir 178,3,0
;septimo guadrito
gotoxy 21,17
repetir 178,3,7
gotoxy 21,18
repetir 178,3,7
;octavo cuadrito
gotoxy 24,17
repetir 178,3,0
gotoxy 25,17
repetir 178,1,4
gotoxy 24,18
repetir 178,3,0
;noveno guadrito
gotoxy 27,17
repetir 178,3,7
gotoxy 27,18
repetir 178,3,7
;decimo cuadrito
gotoxy 30,17
repetir 178,3,0
gotoxy 31,17
repetir 178,1,4
gotoxy 30,18
repetir 178,3,0
;*****************DECIMA LINEA DE CUADRITOS*********************
;primera guadrito segunda linea
gotoxy 3,19
repetir 178,3,0
gotoxy 4,19
repetir 178,1,4
gotoxy 3,20
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 6,19
repetir 178,3,7
gotoxy 6,20
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 9,19
repetir 178,3,0
gotoxy 10,19
repetir 178,1,4
gotoxy 9,20
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 12,19
repetir 178,3,7
gotoxy 12,20
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 15,19
repetir 178,3,0
gotoxy 16,19
repetir 178,1,4
gotoxy 15,,20
repetir 178,3,0
;primera guadrito segunda linea
gotoxy 18,19
repetir 178,3,7
gotoxy 18,20
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 21,19
repetir 178,3,0
gotoxy 22,19
repetir 178,1,4
gotoxy 21,20
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 24,19
repetir 178,3,7
gotoxy 24,20
repetir 178,3,7
;primera guadrito segunda linea
gotoxy 27,19
repetir 178,3,0
gotoxy 28,19
repetir 178,1,4
gotoxy 27,20
repetir 178,3,0
;cuarto guadrito segunda linea
gotoxy 30,19
repetir 178,3,7
gotoxy 30,20
repetir 178,3,7
;*************************************
;**********************************************************************
Mov Cx,900
For: ;Ciclo For
;Push Cx ;Guarda Cx en la pila
; Mov Ax,Cx
;Mov Var1,2
; Div Var1 ;el residuo se guarda en Ah
;CMP Ah,0 ;Compara Residuo con cero
;Ja Blanco ;si residuo <> 0 ,If_color = 7
;Je Negro ;si residuo = 0 ,If_color = 5
Continue:
Mov Ax,1h
Int 33h
Mov Ax,0003
Int 33h
Cmp Bx,1
Je Cursor
Cmp Bx,2
JE Probando
CMP bx, 3
JE salir
;Pop Cx ;Recobra Cx de la pila
Loop For
mov ah,02h
int 16h
.exit
;Blanco:
;Mov If_Color,2
;JMP Continue
; Negro:
;Mov If_Color,0
;JMP Continue
Cursor:
pixel Cx,Dx
mov AL, varX
sub AL, 2
mov var0, AL
GotoXY varx,varY
;Decremento la columna
Repetir 178,1,4 ;Imprime caracter
JMP Continue
probando:
pixel Cx,Dx
mov AL, varX
sub AL, 2
mov var0, AL
GotoXY varx,varY
;Decremento la columna
Repetir 178,1,2 ;Imprime caracter
JMP Continue
salir:
pixel Cx,Dx
mov AL, varX
sub AL, 2
mov var0, AL
GotoXY varx,varY
;Decremento la columna
Repetir 178,1,0 ;Imprime caracter
JMP Continue