Mojonia 3.0

$this->bbcode_second_pass_quote('radastan', '
')Ya, pero eso es a toda luces ineficiente.

Bueno, pues ya he acabado las versiones de 24x24 y 32x32 pixels, con esto abarco prácticamente la mayoría de sprites que se pueden dar en juegos sencillos y facilito enormemente a la gente trabajar con ellos. La siguiente rutina será una genérica para poner un sprite de tamaño al gusto (x * y caracteres) destinada a logotipos y gráficos grandes para menú y presentaciones.

Os dejo el código de la de 24x24 para que veáis los cambios (pocos), la de 32x32 es prácticamente la misma evolución respecto a la de 16x16:

$this->bbcode_second_pass_code('', '
void put_sprite_x24 (unsigned char *posicion, unsigned int x, unsigned int y)
{
// -------------------------------------------
// RUTINA DE IMPRESION DE UN SPRITE 24x24 PIXELS
// CON ATRIBUTOS EN CUALQUIER POSICION DE CARACTER
// ENTRADAS:
// D será la posición del cursor vertical en caracteres
// E será la posición del cursor horizontal en caracteres
// HL es la posición de memoria donde tenemos el sprite
// SALIDAS: se escribe en el mapa de pantalla
// ADVERTENCIAS: no comprueba límites de pantalla
// -------------------------------------------
#asm
ld hl,2 ;pasamos la variable de entrada al acumulador
add hl,sp
ld d, (hl)
inc hl
inc hl
ld e, (hl)
inc hl
inc hl
ld a, (hl)
inc hl
ld h, (hl)
ld l, a
ld a, d ; recuperamos el valor vertical
and 7 ; nos quedamos con la posición en el tercio
rrca
rrca
rrca ; rotamos para dejar su valor en múltiplos de 32 (linea)
and 224 ; borramos el resto de bits por si las moscas
or e ; sumamos el valor horizontal
ld e, a ; e preparado
ld a, d
and 24 ; modificamos según el tercio de pantalla
or 64 ; nos posicionamos a partir de 16384 (16384=64+0 en dos bytes)
ld d, a ; d preparado, ya tenemos la posición en pantalla
push de ; guardamos DE (la posición de pantalla)
push de
ld b, 8
ld c,255 ; cargamos C con 255 para no afectar B con LDI
call draw2
pop de ; recuperamos DE
ld a,e ; incrementamos una línea de caracteres (+32 bytes)
add a,32
ld e,a
ld a,d
adc a,0 ; aquí finaliza la suma de 32 a DE
ld d,a
push de ; guardamos DE
ld b, 8
call draw2
pop de ; recuperamos DE
ld a,e ; incrementamos una línea de caracteres (+32 bytes)
add a,32
ld e,a
ld a,d
adc a,0 ; aquí finaliza la suma de 32 a DE
ld d,a
ld b, 8
call draw2
; Ahora imprimimos los atributos
pop de ; recuperamos el valor horizontal
ld a,d ; calculamos el valor de posición en la pantalla
rra
rra
rra ; multiplicamos por 32
and 3 ; nos quedamos con los tres bits bajos
or 88 ; apuntamos al comienzo del mapa de atributos
ld d,a ; ya tenemos d listo, e no hay que cambiarlo
push de ; guardamos la posición en pantalla
ldi ; imprimimos los colores de arriba
ldi
ldi
pop de ; recuperamos la posición de pantalla
ld a,e ; incrementamos una línea de caracteres (+32 bytes)
add a,32
ld e,a
ld a,d
adc a,0 ; aquí finaliza la suma de 32 a DE
push de ; guardamos DE
ldi ; ponemos los colores de abajo
ldi
ldi
pop de ; recuperamos la posición de pantalla
ld a,e ; incrementamos una línea de caracteres (+32 bytes)
add a,32
ld e,a
ld a,d
adc a,0 ; aquí finaliza la suma de 32 a DE
ldi ; ponemos los colores de abajo
ldi
ldi
ret

.draw2
ldi
ldi
ldi
dec de
dec de
dec de
inc d
djnz draw2 ; decrementa B y si es cero deja de saltar a draw
ret

#endasm
}')

Has pensado en sprites de 16x24 u otras combinaciones no cuadradas?

EDIT: esto sin ejemplos para ver no mola na