I'd like to share the last two "games" I've done with ZxBC.
They are extremely simple because I've done them upon request from my sons and they are 4 years old.
The first one is called Ciclopes (y Saturno). It's a pong/football twist played by two cyclops (well, they are merely balls with one eye but apparently that's how cyclops looks like for a Little boy) and the ball is the planet Saturn. Keys are QAZX and PLNM.
The second one is Coches. It's a simple super sprint twist for two players. Keys are QAZX and PLNM, but to make thing easier the key Y toggle between the manual and the automatic mode. In the automatic mode you just have to accelerate and brake and the car turns by itself when it finds an obstacle.
With the key H you toggle between the different curses and with the key G you change the color of the cars.
I usually make these games (and the crap games for the CSSCGC compo) to try different things to use if I ever make a non crap game. And in this two games there is a thing I'm proud of: My very first assembler routine. It's a symple sprite XORing routine but with a little trick: When moving the sprites, instead of just erasing the full sprite (XORing it) in the previous location and then printing it in the new coordinates, it does this but one byte after other. The result is that I can get rid of the sprite flashing at the cost of a little tearing, and this is a sacrifice I accept happily because before I wasted too much time re-ordering the sprites (to print first the ones that were higher in the screen) or making dumb cycles waiting for the screen retrace.
I hope you like them.
P.S. If anyone is interested in the code, I warn you it's completely rubbish (untidy, un-commented...).
Actually, they are sort of cool. You should definitely put them on WOS. Nice job! Very smooth cars, there
I'm very much pro source code being posted - but for small games like this, it's especially important, if you don't mind other people looking - we want more people to learn zxbc.
Later I'll upload the files needed to do the compilation (the binaries for the curse maps, and the sprite routine once I have made comments in it too):
The map binaries. They are made with Mappy using the .png included in the zipped archive.
If anyone want to create a new track, don't forget to include as a binary at the end of the code (incibin "circuitoequis.map) and increase the max number of tracks at the beggining of the code
Here goes the sprite routine. You have to name it sprite3.bas (or change the incluide statement in the main program listing)
Code:
'XOR SPRITE SUBROUTINE. HERE WE JUST POKE THE COORDINATES IN THE FORM (X COORD,Y COORD,GFX ADDRESS,PREVIOUS X COORD, PREVIOUS Y COORD, PREVIOUS GFX ADDRESS)
SUB xorsprite (xd as ubyte,yd as ubyte, gfx as uinteger, xda as ubyte, yda as ubyte, gfxa as uinteger)
POKE @esprite,xd: POKE @esprite+1,yd: POKE Uinteger (@esprite+2),gfx
POKE @esprite+4,xda: POKE @esprite+5,yda: POKE Uinteger (@esprite+6),gfxa
gosub printsprite
END SUB
'SUBROUTINE TO SELECT THE HEIGHT OF THE SPRITE (TO SKIP SOME CYCLES IF WE DON'T NEED TO PRINT 16 LINES)
SUB spriteh (h as ubyte)
POKE @altura+1,h-1
END SUB
'MEMORY LOCATIONS WHERE WE KEEP THE COORDINATES AND THE GRAPHICS ADDRESSES
esprite:
ASM
xp: defb 0
yp: defb 0
gfxdir: defw 0
xpa: defb 0
ypa: defb 0
gfxant: defw 0
END ASM
'XORing ROUTINE. IT'S A VERY SIMPLE AND STRIGHTFORWARD ROUTINE WITH NO OPTIMIZATION, BUT I'M VERY HAPPY WITH THE RESULT BEING IT MY FIRST ATTEMP AT M/C
'IT MAKES USE OF TWO ROUTINES: SCADD TO CALCULATE THE SCREEN ADDRESS GIVEN THE X AND Y COORDINATES. THIS IS BORROWED FROM J.CAULDWELL'S "HOW TO WRITE
'ZX SPECTRUM GAMES" TUTORIAL. AND UPHL, A LITTLE ROUTINE TO CALCULATE THE SCREEN ADDRESS OF THE LINE BELLOW THE CURRENT ADDRESS. I HAVE CHANGED IT FOR
'CONVENIENCE TO UPDE. I CAN'T REMEMBER WHERE I TOOK IT FROM, PROBABLY SOME POST IN WOS.
'HOW THE ROUTINE WORKS IS EASY. WE NEED THE SPRITE ADDRESS IN HL AND THE SCREEN ADDRESS IN DE (WE PUT THE CORRDINATES IN BC AND CALL THE SCADD ROUTINE THAT
'RETURNS THE ADRESS IN DE)
'THEN WE SWAP REGISTERS AND MAKE THE SAME OPERATION WITH THE PREVIOUS SPRITE ADRRESS AND THE PREVIOUS COORDINATES.
'FROM NOW ON IT'S VERY EASY, WE JUST CLEAR (XOR) THE CONTENT OF THE PREVIOUS SCREEN POSITION, SWAP REGISTERS AND THEN PRINT THE NEW SPRITE BYTE IN THE NEW
'ADDRESS. WE DO THIS 3 TIMES (AS THE SPRITES ARE IN FACT 3 CHARACTERS WIDE, BECAUSE THEY ARE 16 PIXEL WIDE BUT PRESHIFTED TO THE RIGHT 8 TIMES)
'NOW WE CALL DE UPDE ROUTINE, DECREASE DE AND HL IN 3 (SO WE ARE IN THE CORRECT COLUMN) AND THEN REPEAT IT 15 TIMES MORE.
printsprite:
ASM
sprite:
ld hl,(gfxdir)
ld bc,(xp)
call scadd ; calculate screen address.
exx
ld hl,(gfxant)
ld bc,(xpa)
call scadd ;ahora tenemos en los dos sets de registros alternativos(actual y anterior): direccion del grafico en hl, dirección de pantalla en de
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a
exx
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a ;pintamos el primer byte, primero el anterior (alternativo) y luego el actual
inc hl
inc de
exx
inc hl
inc de
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a
exx
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a ;pintamos el segundo byte
inc hl
inc de
exx
inc hl
inc de
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a
exx
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a ;pintamos el tercer byte
END ASM
altura:
ASM
ld b,15
repeticiones:
dec de
dec de
call upde
inc hl
exx
dec de
dec de
call upde
inc hl
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a
exx
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a ;pintamos el primer byte, primero el anterior (alternativo) y luego el actual
inc hl
inc de
exx
inc hl
inc de
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a
exx
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a ;pintamos el segundo byte
inc hl
inc de
exx
inc hl
inc de
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a
exx
ld a,(de)
ld c,a
ld a,(hl)
xor c
ld (de),a ;pintamos el tercer byte
djnz repeticiones
END ASM
ASM
; This routine returns a screen address for (c, b) in de.
scadd: ld a,c ; get vertical position.
and 7 ; line 0-7 within character square.
add a,64 ; 64 * 256 = 16384 (Start of screen display)
ld d,a ; line * 256.
ld a,c ; get vertical again.
rrca ; multiply by 32.
rrca
rrca
and 24 ; high byte of segment displacement.
add a,d ; add to existing screen high byte.
ld d,a ; that's the high byte sorted.
ld a,c ; 8 character squares per segment.
rlca ; 8 pixels per cell, mulplied by 4 = 32.
rlca ; cell x 32 gives position within segment.
and 224 ; make sure it's a multiple of 32.
ld e,a ; vertical coordinate calculation done.
ld a,b ; y coordinate.
rrca ; only need to divide by 8.
rrca
rrca
and 31 ; squares 0 - 31 across screen.
add a,e ; add to total so far.
ld e,a ; hl = address of screen.
ret
dispx: defb 0 ; general-use coordinates.
dispy: defb 0
dispxa: defb 0
dispya: defb 0
sprtmp: defw 0 ; sprite temporary address.
;uphl:
; inc h
; ld a,h
; and 7
; ret nz
; ld a,l
; add a,32
; ld l,a
; ret c
; ld a,h
; sub 8
; ld h,a
; ret
upde:
inc d
ld a,d
and 7
ret nz
ld a,e
add a,32
ld e,a
ret c
ld a,d
sub 8
ld d,a
ret
END ASM
If you look at the code for this routine or the main program you will see that I'll never become another Peter Moligneux. But if you check my earlier posts in this fórum you'll probably get to the conclussion that it's posible with ZxBC to transit from zero knowledge in programming to a point where you can do some cool things and get a lot of fun trying. That's what I love about this compiler, it makes things possbile.
If anyone need any further explanation, just ask here and I'll see if I can help.
P.S. Later in the day I'll try to post the code for the cyclops game. Or better still, instead of posting the code as is I'll do a Little tweak to show just the bouncing saturn and a moving cyclop for better readability.
As promised here goes the tweaked version of the cyclops game.
I decided to go with this "demo" versión because the code of the original game is very similar to the one in the cars, so the interest in it should be even lower
On top of that, this version lets me show the true purpose of the sprite routine behind these games: Act as a simple but easy to use routine that lets the novice programmer (a.k.a. "me") concentrate in other aspects of the game.
In this version there is no gameplay, but you can move the "cyclops" witn the keys QAZX and PLNM. You'll see this time 4 bouncing saturns in the screen. Pressing the Y key changes the number of saturns from 1 to 8. Given that each planet is composed by 2 sprites (the planet itself and its shadow) it can make a total of 18 sprites in the screen moving simultaneously. Obviously the speed is very compromised when reaching a high number of sprites but my goal is to show that is feasible to have a reasonable number of moving sprites controlled from basic without caring for the annoying flashing.
The code (incluides at least one routine from our personal best Zx Basic Programmer Britlion):
Code:
REM CYCLOP'S SATURN BOUNCING PONGOLFSKET DELUXE EDITION SPECIAL VMAX FUSSBALL MASTER
#include <sinclair.bas>
#include <keys.bas>
DIM MAXSATURNOS AS UBYTE
LET MAXSATURNOS=3
INICIODELTODO:
IF MAXSATURNOS>7 THEN LET MAXSATURNOS=0: END IF
PAPER 6: BORDER 5:INK 0: CLS
FOR A=0 TO 9: PRINT AT A,0;PAPER 5;INK 0;" ": NEXT A
PRINT AT 1,13;PAPER 6;INK 0;" ";AT 2,13;PAPER 6;INK 0;" "
PRINT AT 1,17;PAPER 6;INK 0;" ";AT 2,17;PAPER 6;INK 0;" "
PRINT AT 8,3;PAPER 6;INK 0;" "
PRINT AT 7,3;PAPER 6;INK 0;" "
PLOT 0,0: DRAW 255,0:DRAW 0,112: DRAW -255,0: DRAW 0,-112
PLOT 0,30: DRAW 30,0: DRAW 0,52: DRAW -30,0
PLOT 255,30: DRAW -30,0: DRAW 0,52: DRAW 30,0
PLOT 128,0: DRAW 0,112
CIRCLE 128,56,20
PAPER 6
PLOT 108,136: DRAW 0,31:DRAW -10,0: DRAW 0,17: DRAW 28,0: DRAW 0,-17: DRAW -12,0: DRAW 0,-31
PLOT 140,136: DRAW 0,31:DRAW -10,0: DRAW 0,17: DRAW 28,0: DRAW 0,-17: DRAW -12,0: DRAW 0,-31
PLOT 0,112: DRAW 30,24:DRAW 195,0: DRAW 30,-24
PAPER 5
'CIRCLE 220,170,8: CIRCLE 217,172,2: CIRCLE 223,172,2: PLOT 216,167: DRAW 8,0,2
'PLOT 10,160: DRAW 8,-4,2: DRAW 12,5,3: DRAW 9,3,4: DRAW 1,8,3: DRAW -10,2,3: DRAW -8,-1,3: DRAW -10,-2,4: DRAW -2,-10,3
DIM GOLUNO, GOLDOS AS UBYTE
doubleSizePrintChar(1,13,48+MAXSATURNOS+1)
DIM X,Y,XA,YA,FRAMEX,FRAMEY,FRAMEXA,FRAMEYA AS UINTEGER
DIM XD,YD,XDA,YDA,FRAMEXD,FRAMEYD,FRAMEXDA,FRAMEYDA AS UINTEGER
DIM XS,YS,XSA,YSA,FRAMESY,FRAMESYA AS UINTEGER
DIM ALTURA,ALTURAA,VHG AS UBYTE
DIM VELSX,VELSY AS BYTE
DIM REBOTE AS INTEGER
LET GOLUNO=0: LET GOLDOS=0
LET X=80:LET Y=0: LET XA=80: LET YA=0
LET FRAMEX=(INT(X) MOD 8): LET FRAMEXA=(INT (XA) MOD 8)
IF FRAMEX THEN LET FRAMEX=8-FRAMEX: END IF
IF FRAMEXA THEN LET FRAMEXA=8-FRAMEXA: END IF
LET FRAMEY=INT(Y) MOD 8: LET FRAMEYA=INT (YA) MOD 8
LET XD=176:LET YD=240: LET XDA=176: LET YDA=240
LET FRAMEXD=(INT(XD) MOD 8): LET FRAMEXDA=(INT (XDA) MOD 8)
IF FRAMEXD THEN LET FRAMEXD=8-FRAMEXD: END IF
IF FRAMEXDA THEN LET FRAMEXDA=8-FRAMEXDA: END IF
LET FRAMEYD=INT(YD) MOD 8: LET FRAMEYDA=INT (YDA) MOD 8
LET XS=132:LET YS=121: LET XSA=132: LET YSA=121
LET FRAMESY=INT(YS) MOD 8: LET FRAMESYA=INT(YSA) MOD 8
LET ALTURA=10: LET ALTURAA=10: LET REBOTE=30: LET VHG=10
LET VELSX=0: LET VELSY=0
DIM SATURNOXY (0 TO 7,0 TO 7) AS INTEGER => {{132,121,132,121,10,10,30,10},_ 'X,Y,XA,YA,ALTURA,ALTURAA,REBOTE,REBOTENEG
{132,20,132,20,10,10,30,10},_
{132,170,132,170,10,10,30,10},_
{132,40,132,40,10,10,30,10},_
{132,60,132,60,10,10,30,10},_
{132,80,132,80,10,10,30,10},_
{132,100,132,100,10,10,30,10},_
{132,150,132,150,10,10,30,10}}
spriteh (16)
xorsprite (X,Y,@CICLOPE+(FRAMEY*384)+(FRAMEX*48),XA,YA,@vacio)
xorsprite (XD,YD,@CICLOPE+(FRAMEYD*384)+(FRAMEXD*48),XDA,YDA,@vacio)
FOR N=0 TO MAXSATURNOS
LET FRAMESY=SATURNOXY(N,1) MOD 8
spriteh (6)
xorsprite (SATURNOXY(N,0),SATURNOXY(N,1),@SOMBRA+(FRAMESY*48),SATURNOXY(N,2),SATURNOXY(N,3),@vacio)
spriteh (10)
xorsprite (SATURNOXY(N,0)-SATURNOXY(N,4),SATURNOXY(N,1),@SATURNO+(FRAMESY*48),SATURNOXY(N,2)-SATURNOXY(N,5),SATURNOXY(N,3),@vacio)
NEXT
SALTOUNO:
BUCLEPPAL:
IF MULTIKEYS(KEYX) AND Y<240 THEN LET Y=Y+1: END IF
IF MULTIKEYS(KEYZ) AND Y>0 THEN LET Y=Y-1: END IF
IF MULTIKEYS(KEYA) AND X<176 THEN LET X=X+1: END IF
IF MULTIKEYS(KEYQ) AND X>64 THEN LET X=X-1: END IF
IF MULTIKEYS(KEYM) AND YD<240 THEN LET YD=YD+1: END IF
IF MULTIKEYS(KEYN) AND YD>0 THEN LET YD=YD-1: END IF
IF MULTIKEYS(KEYL) AND XD<176 THEN LET XD=XD+1: END IF
IF MULTIKEYS(KEYP) AND XD>64 THEN LET XD=XD-1: END IF
IF MULTIKEYS(KEYY) THEN LET MAXSATURNOS=MAXSATURNOS+1: GOTO INICIODELTODO: END IF
LET XS=XS+VELSX: IF (XS>185 OR XS<80) THEN LET XS=XSA: LET VELSX=VELSX*-1: END IF
LET YS=YS+VELSY: IF (YS>240 OR YS<1) THEN LET YS=YSA: LET VELSY=VELSY*-1: GOSUB GOL: END IF
LET FRAMEY=INT(Y) MOD 8: LET FRAMEYA=INT (YA) MOD 8
LET FRAMEX=(INT(X) MOD 8): LET FRAMEXA=(INT (XA) MOD 8)
IF FRAMEX THEN LET FRAMEX=8-FRAMEX: END IF
IF FRAMEXA THEN LET FRAMEXA=8-FRAMEXA: END IF
LET FRAMEYD=INT(YD) MOD 8: LET FRAMEYDA=INT (YDA) MOD 8
LET FRAMEXD=(INT(XD) MOD 8): LET FRAMEXDA=(INT (XDA) MOD 8)
IF FRAMEXD THEN LET FRAMEXD=8-FRAMEXD: END IF
IF FRAMEXDA THEN LET FRAMEXDA=8-FRAMEXDA: END IF
'LET REBOTE=REBOTE-INT(REBOTE/VHG)
'LET ALTURA=ALTURA+INT(REBOTE/VHG)-1: IF ALTURA<6 THEN LET REBOTE=40: GOSUB FRENAZO: END IF 'REBOTE=11 PARADO LET VELSX=0: LET VELSY=0
'LET FRAMESY=INT(YS) MOD 8: LET FRAMESYA=INT(YSA) MOD 8
'IF ALTURA<14 AND (X-XS)>65526 AND ((Y-YS)-4)>65528 THEN GOSUB CHOQUEUNO: END IF
'IF ALTURA<14 AND (XD-XS)>65526 AND ((YD-YS)-4)>65528 THEN GOSUB CHOQUEDOS: END IF
spriteh (16)
xorsprite (X,Y,@CICLOPE+(FRAMEY*384)+(FRAMEX*48),XA,YA,@CICLOPE+(FRAMEYA*384)+(FRAMEXA*48))
xorsprite (XD,YD,@CICLOPE+(FRAMEYD*384)+(FRAMEXD*48),XDA,YDA,@CICLOPE+(FRAMEYDA*384)+(FRAMEXDA*48))
'spriteh (6)
'xorsprite (XS,YS,@SOMBRA+(FRAMESY*48),XSA,YSA,@SOMBRA+(FRAMESYA*48))
'spriteh (10)
'xorsprite (XS-ALTURA,YS,@SATURNO+(FRAMESY*48),XSA-ALTURAA,YSA,@SATURNO+(FRAMESYA*48))
FOR N=0 TO MAXSATURNOS
LET SATURNOXY(N,6)=SATURNOXY(N,6)-INT (SATURNOXY(N,6)/SATURNOXY(N,7))
LET SATURNOXY(N,4)=SATURNOXY(N,4)+INT (SATURNOXY(N,6)/SATURNOXY(N,7))-1: IF SATURNOXY(N,4)<6 THEN LET SATURNOXY(N,6)=40+INT(RND*80): GOSUB FRENAZO: END IF
LET FRAMESY=SATURNOXY(N,1) MOD 8
LET FRAMESYA=SATURNOXY(N,3) MOD 8
spriteh (6)
xorsprite (SATURNOXY(N,0),SATURNOXY(N,1),@SOMBRA+(FRAMESY*48),SATURNOXY(N,2),SATURNOXY(N,3),@SOMBRA+(FRAMESYA*48))
spriteh (10)
xorsprite (SATURNOXY(N,0)-SATURNOXY(N,4),SATURNOXY(N,1),@SATURNO+(FRAMESY*48),SATURNOXY(N,2)-SATURNOXY(N,5),SATURNOXY(N,3),@SATURNO+(FRAMESYA*48))
NEXT
SALTODOS:
LET YA=Y: LET XA=X
LET YDA=YD: LET XDA=XD
LET XSA=XS: LET YSA=YS: LET ALTURAA=ALTURA
FOR N=0 TO 7
LET SATURNOXY(N,2)=SATURNOXY(N,0): LET SATURNOXY(N,3)=SATURNOXY(N,1): LET SATURNOXY(N,5)=SATURNOXY(N,4)
NEXT
GOTO BUCLEPPAL
STOP
CHOQUEUNO:
LET VELSX=65531-(X-XS)
LET VELSY=65532-((Y-YS)-4)
LET REBOTE=(ABS(VELSX)+ABS(VELSY))*25: IF REBOTE<40 THEN LET REBOTE=40: END IF
RETURN
CHOQUEDOS:
LET VELSX=65531-(XD-XS)
LET VELSY=65532-((YD-YS)-4)
LET REBOTE=(ABS(VELSX)+ABS(VELSY))*25: IF REBOTE<40 THEN LET REBOTE=40: END IF
RETURN
FRENAZO:
IF VELSX THEN LET VELSX=(ABS(VELSX)-0.5)*(ABS(VELSX)/VELSX): END IF
IF VELSY THEN LET VELSY=(ABS(VELSY)-0.8)*(ABS(VELSY)/VELSY): END IF
RETURN
GOL:
IF ALTURA<40 AND XS<155 AND XS>110 THEN GOSUB GOLAZO: END IF
RETURN
GOLAZO:
IF YS<16 THEN LET GOLUNO=GOLUNO+1: END IF
IF YS>230 THEN LET GOLDOS=GOLDOS+1: END IF
IF GOLUNO>9 THEN GOTO PLGANA: END IF
IF GOLDOS>9 THEN GOTO PLGANA: END IF
doubleSizePrintChar(1,13,48+GOLDOS)
doubleSizePrintChar(1,17,48+GOLUNO)
RETURN
PLGANA:
doubleSizePrint(7,4,"¡CAMPEONES! ")
PAUSE 1: PAUSE 0
GOTO INICIODELTODO
STOP
#include "sprite3.bas"
vacio:
ASM
vacio:
DEFB 0,0,0,0,0,0,0,0
DEFB 0,0,0,0,0,0,0,0
DEFB 0,0,0,0,0,0,0,0
DEFB 0,0,0,0,0,0,0,0
DEFB 0,0,0,0,0,0,0,0
DEFB 0,0,0,0,0,0,0,0
END ASM
CICLOPE:
ASM
; ASM source file created by SevenuP v1.20
; SevenuP (C) Copyright 2002-2006 by Jaime Tejedor Gomez, aka Metalbrain
; ASM source file created by SevenuP v1.20
; SevenuP (C) Copyright 2002-2006 by Jaime Tejedor Gomez, aka Metalbrain
;GRAPHIC DATA:
;Pixel Size: ( 24, 16)
;Char Size: ( 3, 2)
;Frames: 8
;Sort Priorities: X char, Char line, Y char, Frame number
;Data Outputted: Gfx
;Interleave: Sprite
;Mask: No
ciclop_n_r:
DEFB 3,192, 0, 15,240, 0, 31,248
DEFB 0, 60, 60, 0,121,222, 0,121
DEFB 206, 0,249,223, 0,252, 63, 0
DEFB 255,255, 0,255,255, 0,124, 62
DEFB 0,123,222, 0, 63,252, 0, 31
DEFB 248, 0, 15,240, 0, 3,192, 0
DEFB 3,192, 0, 13,240, 0, 25,216
DEFB 0, 60, 60, 0,127,254, 0,127
DEFB 254, 0,252, 63, 0,251,223, 0
DEFB 255,255, 0,255,255, 0,127,254
DEFB 0,127,254, 0, 63,252, 0, 31
DEFB 248, 0, 15,240, 0, 3,192, 0
DEFB 3,192, 0, 15,240, 0, 28, 56
DEFB 0, 59,220, 0,127,254, 0,127
DEFB 254, 0,255,255, 0,255,255, 0
DEFB 255,255, 0,255,255, 0,127,254
DEFB 0,127,254, 0, 63,252, 0, 31
DEFB 248, 0, 15,240, 0, 3,192, 0
DEFB 3,192, 0, 15,240, 0, 31,248
DEFB 0, 63,252, 0,127,254, 0,127
DEFB 254, 0,255,255, 0,255,255, 0
DEFB 255,255, 0,255,255, 0,127,254
DEFB 0,127,254, 0, 63,252, 0, 31
DEFB 248, 0, 15,240, 0, 3,192, 0
DEFB 3,192, 0, 15,240, 0, 31,248
DEFB 0, 63,252, 0,127,254, 0,127
DEFB 254, 0,255,255, 0,255,255, 0
DEFB 255,255, 0,255,255, 0,127,254
DEFB 0,127,254, 0, 63,252, 0, 31
DEFB 248, 0, 15,240, 0, 3,192, 0
DEFB 3,192, 0, 15,240, 0, 31,248
DEFB 0, 63,252, 0,127,254, 0,127
DEFB 254, 0,255,255, 0,255,255, 0
DEFB 255,255, 0,255,255, 0,127,254
DEFB 0,127,254, 0, 63,252, 0, 31
DEFB 248, 0, 15,240, 0, 3,192, 0
DEFB 3,192, 0, 15,240, 0, 31,248
DEFB 0, 63,252, 0,127,254, 0,127
DEFB 254, 0,255,255, 0,255,255, 0
DEFB 255,255, 0,255,255, 0,127,254
DEFB 0,124, 62, 0, 57,220, 0, 25
DEFB 200, 0, 13,240, 0, 3,192, 0
DEFB 3,192, 0, 15,240, 0, 31,248
DEFB 0, 63,252, 0,127,254, 0,127
DEFB 254, 0,255,255, 0,252, 63, 0
DEFB 249,223, 0,249,207, 0,121,222
DEFB 0,124, 62, 0, 63,252, 0, 31
DEFB 248, 0, 12, 48, 0, 3,192, 0
ciclop_ne_r:
DEFB 1,224, 0, 7,248, 0, 15,252
DEFB 0, 31,158, 0, 63, 47, 0, 62
DEFB 119, 0,127,119,128,127,167,128
DEFB 127,199,128,103,255,128, 59,255
DEFB 0, 61,255, 0, 30,254, 0, 14
DEFB 252, 0, 7,248, 0, 1,224, 0
DEFB 1,224, 0, 6,120, 0, 15,116
DEFB 0, 31,166, 0, 63,199, 0, 39
DEFB 255, 0,123,255,128,125,255,128
DEFB 126,255,128,126,255,128, 63,255
DEFB 0, 63,255, 0, 31,254, 0, 15
DEFB 252, 0, 7,248, 0, 1,224, 0
DEFB 1,224, 0, 7,248, 0, 11,252
DEFB 0, 29,254, 0, 62,255, 0, 62
DEFB 255, 0,127,255,128,127,255,128
DEFB 127,255,128,127,255,128, 63,255
DEFB 0, 63,255, 0, 31,254, 0, 15
DEFB 252, 0, 7,248, 0, 1,224, 0
DEFB 1,224, 0, 6,248, 0, 15,252
DEFB 0, 31,254, 0, 63,255, 0, 63
DEFB 255, 0,127,255,128,127,255,128
DEFB 127,255,128,127,255,128, 63,255
DEFB 0, 63,255, 0, 31,254, 0, 15
DEFB 252, 0, 7,248, 0, 1,224, 0
DEFB 1,224, 0, 7,248, 0, 15,252
DEFB 0, 31,254, 0, 63,255, 0, 63
DEFB 255, 0,127,255,128,127,255,128
DEFB 127,255,128,127,255,128, 63,255
DEFB 0, 63,255, 0, 31,254, 0, 15
DEFB 252, 0, 7,248, 0, 1,224, 0
DEFB 1,224, 0, 7,248, 0, 15,252
DEFB 0, 31,254, 0, 63,255, 0, 63
DEFB 255, 0,127,255,128,127,255,128
DEFB 127,255,128,127,255,128, 63,255
DEFB 0, 63,255, 0, 31,254, 0, 15
DEFB 252, 0, 7,248, 0, 1,224, 0
DEFB 1,224, 0, 7,248, 0, 15,252
DEFB 0, 31,254, 0, 63,255, 0, 63
DEFB 255, 0,127,255,128,127,255,128
DEFB 127,255,128,127,255,128, 63,255
DEFB 0, 63,159, 0, 31, 46, 0, 14
DEFB 116, 0, 7,120, 0, 1,224, 0
DEFB 1,224, 0, 7,248, 0, 15,252
DEFB 0, 31,254, 0, 63,255, 0, 63
DEFB 255, 0,127,255,128,127,159,128
DEFB 127, 47,128,126,119,128, 63,119
DEFB 0, 63,167, 0, 31,198, 0, 15
DEFB 252, 0, 7,248, 0, 1,224, 0
ciclop_e_r:
DEFB 0,240, 0, 3,252, 0, 7,254
DEFB 0, 15,255, 0, 31,255,128, 29
DEFB 227,128, 62,193,192, 62,221,192
DEFB 62,221,192, 62,221,192, 29,227
DEFB 128, 31,247,128, 15,255, 0, 7
DEFB 254, 0, 3,252, 0, 0,240, 0
DEFB 0,240, 0, 3,252, 0, 6,194
DEFB 0, 14,221, 0, 30,221,128, 30
DEFB 221,128, 61,227,192, 63,247,192
DEFB 63,255,192, 63,255,192, 31,255
DEFB 128, 31,255,128, 15,255, 0, 7
DEFB 254, 0, 3,252, 0, 0,240, 0
DEFB 0,240, 0, 3,220, 0, 5,226
DEFB 0, 15,247, 0, 31,255,128, 31
DEFB 255,128, 63,255,192, 63,255,192
DEFB 63,255,192, 63,255,192, 31,255
DEFB 128, 31,255,128, 15,255, 0, 7
DEFB 254, 0, 3,252, 0, 0,240, 0
DEFB 0,240, 0, 3,252, 0, 7,254
DEFB 0, 15,255, 0, 31,255,128, 31
DEFB 255,128, 63,255,192, 63,255,192
DEFB 63,255,192, 63,255,192, 31,255
DEFB 128, 31,255,128, 15,255, 0, 7
DEFB 254, 0, 3,252, 0, 0,240, 0
DEFB 0,240, 0, 3,252, 0, 7,254
DEFB 0, 15,255, 0, 31,255,128, 31
DEFB 255,128, 63,255,192, 63,255,192
DEFB 63,255,192, 63,255,192, 31,255
DEFB 128, 31,255,128, 15,255, 0, 7
DEFB 254, 0, 3,252, 0, 0,240, 0
DEFB 0,240, 0, 3,252, 0, 7,254
DEFB 0, 15,255, 0, 31,255,128, 31
DEFB 255,128, 63,255,192, 63,255,192
DEFB 63,255,192, 63,255,192, 31,255
DEFB 128, 31,255,128, 15,255, 0, 7
DEFB 254, 0, 3,252, 0, 0,240, 0
DEFB 0,240, 0, 3,252, 0, 7,254
DEFB 0, 15,255, 0, 31,255,128, 31
DEFB 255,128, 63,255,192, 63,255,192
DEFB 63,255,192, 63,255,192, 31,255
DEFB 128, 31,255,128, 15,255, 0, 5
DEFB 226, 0, 3,204, 0, 0,240, 0
DEFB 0,240, 0, 3,252, 0, 7,254
DEFB 0, 15,255, 0, 31,255,128, 31
DEFB 255,128, 63,255,192, 63,255,192
DEFB 63,255,192, 61,227,192, 30,193
DEFB 128, 30,221,128, 14,221, 0, 6
DEFB 222, 0, 3,236, 0, 0,240, 0
ciclop_se_r:
DEFB 0,120, 0, 1,254, 0, 3,191
DEFB 0, 7,191,128, 15,127,192, 14
DEFB 255,192, 25,251,224, 31,241,224
DEFB 31,236,224, 31,222,224, 15,205
DEFB 192, 15,195,192, 7,255,128, 3
DEFB 255, 0, 1,254, 0, 0,120, 0
DEFB 0,120, 0, 1,254, 0, 3,251
DEFB 0, 7,241,128, 15,236,192, 15
DEFB 222,192, 31,205,224, 31,195,224
DEFB 31,255,224, 31,255,224, 15,255
DEFB 192, 15,255,192, 7,255,128, 3
DEFB 255, 0, 1,254, 0, 0,120, 0
DEFB 0,120, 0, 1,222, 0, 3,205
DEFB 0, 7,195,128, 15,255,192, 15
DEFB 255,192, 31,255,224, 31,255,224
DEFB 31,255,224, 31,255,224, 15,255
DEFB 192, 15,255,192, 7,255,128, 3
DEFB 255, 0, 1,254, 0, 0,120, 0
DEFB 0,120, 0, 1,254, 0, 3,255
DEFB 0, 7,255,128, 15,255,192, 15
DEFB 255,192, 31,255,224, 31,255,224
DEFB 31,255,224, 31,255,224, 15,255
DEFB 192, 15,255,192, 7,255,128, 3
DEFB 255, 0, 1,254, 0, 0,120, 0
DEFB 0,120, 0, 1,254, 0, 3,255
DEFB 0, 7,255,128, 15,255,192, 15
DEFB 255,192, 31,255,224, 31,255,224
DEFB 31,255,224, 31,255,224, 15,255
DEFB 192, 15,255,192, 7,255,128, 3
DEFB 255, 0, 1,254, 0, 0,120, 0
DEFB 0,120, 0, 1,254, 0, 3,255
DEFB 0, 7,255,128, 15,255,192, 15
DEFB 255,192, 31,255,224, 31,255,224
DEFB 31,255,224, 31,255,224, 15,255
DEFB 192, 15,255,192, 7,255,128, 3
DEFB 255, 0, 1,190, 0, 0,120, 0
DEFB 0,120, 0, 1,254, 0, 3,255
DEFB 0, 7,255,128, 15,255,192, 15
DEFB 255,192, 31,255,224, 31,255,224
DEFB 31,255,224, 31,255,224, 15,191
DEFB 192, 15,191,192, 7,127,128, 2
DEFB 255, 0, 1,254, 0, 0,120, 0
DEFB 0,120, 0, 1,254, 0, 3,255
DEFB 0, 7,255,128, 15,255,192, 15
DEFB 255,192, 31,191,224, 31,191,224
DEFB 31,127,224, 30,255,224, 9,251
DEFB 192, 15,241,192, 7,236,128, 3
DEFB 223, 0, 1,206, 0, 0,120, 0
ciclop_s_r:
DEFB 0, 60, 0, 0,255, 0, 1,255
DEFB 128, 3,255,192, 7,189,224, 7
DEFB 195,224, 15,255,240, 15,255,240
DEFB 15,195,240, 15,185,240, 7, 57
DEFB 224, 7,185,224, 3,195,192, 1
DEFB 255,128, 0,255, 0, 0, 60, 0
DEFB 0, 60, 0, 0,195, 0, 1,255
DEFB 128, 3,255,192, 7,195,224, 7
DEFB 185,224, 15, 57,240, 15,185,240
DEFB 15,195,240, 15,255,240, 7,255
DEFB 224, 7,255,224, 3,255,192, 1
DEFB 255,128, 0,255, 0, 0, 60, 0
DEFB 0, 60, 0, 0,185, 0, 1, 57
DEFB 128, 3,185,192, 7,195,224, 7
DEFB 255,224, 15,255,240, 15,255,240
DEFB 15,255,240, 15,255,240, 7,255
DEFB 224, 7,255,224, 3,255,192, 1
DEFB 255,128, 0,255, 0, 0, 60, 0
DEFB 0, 60, 0, 0,255, 0, 1,255
DEFB 128, 3,255,192, 7,255,224, 7
DEFB 255,224, 15,255,240, 15,255,240
DEFB 15,255,240, 15,255,240, 7,255
DEFB 224, 7,255,224, 3,255,192, 1
DEFB 255,128, 0,255, 0, 0, 60, 0
DEFB 0, 60, 0, 0,255, 0, 1,255
DEFB 128, 3,255,192, 7,255,224, 7
DEFB 255,224, 15,255,240, 15,255,240
DEFB 15,255,240, 15,255,240, 7,255
DEFB 224, 7,255,224, 3,255,192, 1
DEFB 255,128, 0,255, 0, 0, 60, 0
DEFB 0, 60, 0, 0,255, 0, 1,255
DEFB 128, 3,255,192, 7,255,224, 7
DEFB 255,224, 15,255,240, 15,255,240
DEFB 15,255,240, 15,255,240, 7,255
DEFB 224, 7,255,224, 3,255,192, 1
DEFB 255,128, 0,255, 0, 0, 60, 0
DEFB 0, 60, 0, 0,255, 0, 1,255
DEFB 128, 3,255,192, 7,255,224, 7
DEFB 255,224, 15,255,240, 15,255,240
DEFB 15,255,240, 15,255,240, 7,255
DEFB 224, 7,255,224, 3,189,192, 1
DEFB 195,128, 0,255, 0, 0, 60, 0
DEFB 0, 60, 0, 0,255, 0, 1,255
DEFB 128, 3,255,192, 7,255,224, 7
DEFB 255,224, 15,255,240, 15,255,240
DEFB 15,189,240, 15,195,240, 7,255
DEFB 224, 7,255,224, 3,195,192, 1
DEFB 185,128, 0,251, 0, 0, 60, 0
ciclop_sw_r:
DEFB 0, 30, 0, 0,127,128, 0,253
DEFB 192, 1,253,224, 3,254,240, 3
DEFB 255,112, 7,255,152, 7, 15,248
DEFB 7, 55,248, 7,123,248, 3,177
DEFB 240, 3,195,240, 1,231,224, 0
DEFB 255,192, 0,127,128, 0, 30, 0
DEFB 0, 30, 0, 0,127,128, 0,255
DEFB 192, 1, 15,224, 3, 55,240, 3
DEFB 123,240, 7,177,248, 7,195,248
DEFB 7,231,248, 7,255,248, 3,255
DEFB 240, 3,255,240, 1,255,224, 0
DEFB 255,192, 0,127,128, 0, 30, 0
DEFB 0, 30, 0, 0,123,128, 0,177
DEFB 192, 1,195,224, 3,231,240, 3
DEFB 255,240, 7,255,248, 7,255,248
DEFB 7,255,248, 7,255,248, 3,255
DEFB 240, 3,255,240, 1,255,224, 0
DEFB 255,192, 0,127,128, 0, 30, 0
DEFB 0, 30, 0, 0,127,128, 0,255
DEFB 192, 1,255,224, 3,255,240, 3
DEFB 255,240, 7,255,248, 7,255,248
DEFB 7,255,248, 7,255,248, 3,255
DEFB 240, 3,255,240, 1,255,224, 0
DEFB 255,192, 0,127,128, 0, 30, 0
DEFB 0, 30, 0, 0,127,128, 0,255
DEFB 192, 1,255,224, 3,255,240, 3
DEFB 255,240, 7,255,248, 7,255,248
DEFB 7,255,248, 7,255,248, 3,255
DEFB 240, 3,255,240, 1,255,224, 0
DEFB 255,192, 0,127,128, 0, 30, 0
DEFB 0, 30, 0, 0,127,128, 0,255
DEFB 192, 1,255,224, 3,255,240, 3
DEFB 255,240, 7,255,248, 7,255,248
DEFB 7,255,248, 7,255,248, 3,255
DEFB 240, 3,255,240, 1,255,224, 0
DEFB 255,192, 0,125,128, 0, 30, 0
DEFB 0, 30, 0, 0,127,128, 0,255
DEFB 192, 1,255,224, 3,255,240, 3
DEFB 255,240, 7,255,248, 7,255,248
DEFB 7,255,248, 7,255,248, 3,253
DEFB 240, 3,253,240, 1,254,224, 0
DEFB 255, 64, 0,127,128, 0, 30, 0
DEFB 0, 30, 0, 0,127,128, 0,255
DEFB 192, 1,255,224, 3,255,240, 3
DEFB 255,240, 7,253,248, 7,253,248
DEFB 7,254,248, 7,255,120, 3,255
DEFB 144, 3, 15,240, 1, 55,224, 0
DEFB 251,192, 0,113,128, 0, 30, 0
ciclop_w_r:
DEFB 0, 15, 0, 0, 63,192, 0,127
DEFB 224, 0,255,240, 1,239,248, 1
DEFB 199,184, 3,187,124, 3,187,124
DEFB 3,187,124, 3,131,124, 1,199
DEFB 184, 1,255,248, 0,255,240, 0
DEFB 127,224, 0, 63,192, 0, 15, 0
DEFB 0, 15, 0, 0, 55,128, 0,123
DEFB 96, 0,187,112, 1,187,120, 1
DEFB 131,120, 3,199,188, 3,255,252
DEFB 3,255,252, 3,255,252, 1,255
DEFB 248, 1,255,248, 0,255,240, 0
DEFB 127,224, 0, 63,192, 0, 15, 0
DEFB 0, 15, 0, 0, 51,192, 0, 71
DEFB 160, 0,255,240, 1,255,248, 1
DEFB 255,248, 3,255,252, 3,255,252
DEFB 3,255,252, 3,255,252, 1,255
DEFB 248, 1,255,248, 0,255,240, 0
DEFB 127,224, 0, 63,192, 0, 15, 0
DEFB 0, 15, 0, 0, 63,192, 0,127
DEFB 224, 0,255,240, 1,255,248, 1
DEFB 255,248, 3,255,252, 3,255,252
DEFB 3,255,252, 3,255,252, 1,255
DEFB 248, 1,255,248, 0,255,240, 0
DEFB 127,224, 0, 63,192, 0, 15, 0
DEFB 0, 15, 0, 0, 63,192, 0,127
DEFB 224, 0,255,240, 1,255,248, 1
DEFB 255,248, 3,255,252, 3,255,252
DEFB 3,255,252, 3,255,252, 1,255
DEFB 248, 1,255,248, 0,255,240, 0
DEFB 127,224, 0, 63,192, 0, 15, 0
DEFB 0, 15, 0, 0, 63,192, 0,127
DEFB 224, 0,255,240, 1,255,248, 1
DEFB 255,248, 3,255,252, 3,255,252
DEFB 3,255,252, 3,255,252, 1,255
DEFB 248, 1,255,248, 0,255,240, 0
DEFB 127,224, 0, 63,192, 0, 15, 0
DEFB 0, 15, 0, 0, 63,192, 0,127
DEFB 224, 0,255,240, 1,255,248, 1
DEFB 255,248, 3,255,252, 3,255,252
DEFB 3,255,252, 3,255,252, 1,255
DEFB 248, 1,255,248, 0,239,240, 0
DEFB 71,160, 0, 59,192, 0, 15, 0
DEFB 0, 15, 0, 0, 63,192, 0,127
DEFB 224, 0,255,240, 1,255,248, 1
DEFB 255,248, 3,255,252, 3,255,252
DEFB 3,239,252, 3,199,188, 1,187
DEFB 120, 1,187,120, 0,187,112, 0
DEFB 67, 96, 0, 55,192, 0, 15, 0
ciclop_nw_r:
DEFB 0, 7,128, 0, 31,224, 0, 63
DEFB 240, 0,120,248, 0,244,252, 0
DEFB 238,252, 1,206,254, 1,197,254
DEFB 1,227,254, 1,247,230, 0,255
DEFB 220, 0,255,188, 0,127,120, 0
DEFB 63,112, 0, 31,224, 0, 7,128
DEFB 0, 7,128, 0, 30,224, 0, 46
DEFB 240, 0, 69,248, 0,227,252, 0
DEFB 247,228, 1,255,222, 1,255,190
DEFB 1,255,126, 1,255,126, 0,255
DEFB 252, 0,255,252, 0,127,248, 0
DEFB 63,240, 0, 31,224, 0, 7,128
DEFB 0, 7,128, 0, 31,224, 0, 63
DEFB 208, 0,127,184, 0,255,124, 0
DEFB 255,124, 1,255,254, 1,255,254
DEFB 1,255,254, 1,255,254, 0,255
DEFB 252, 0,255,252, 0,127,248, 0
DEFB 63,240, 0, 31,224, 0, 7,128
DEFB 0, 7,128, 0, 31, 96, 0, 63
DEFB 240, 0,127,248, 0,255,252, 0
DEFB 255,252, 1,255,254, 1,255,254
DEFB 1,255,254, 1,255,254, 0,255
DEFB 252, 0,255,252, 0,127,248, 0
DEFB 63,240, 0, 31,224, 0, 7,128
DEFB 0, 7,128, 0, 31,224, 0, 63
DEFB 240, 0,127,248, 0,255,252, 0
DEFB 255,252, 1,255,254, 1,255,254
DEFB 1,255,254, 1,255,254, 0,255
DEFB 252, 0,255,252, 0,127,248, 0
DEFB 63,240, 0, 31,224, 0, 7,128
DEFB 0, 7,128, 0, 31,224, 0, 63
DEFB 240, 0,127,248, 0,255,252, 0
DEFB 255,252, 1,255,254, 1,255,254
DEFB 1,255,254, 1,255,254, 0,255
DEFB 252, 0,255,252, 0,127,248, 0
DEFB 63,240, 0, 31,224, 0, 7,128
DEFB 0, 7,128, 0, 31,224, 0, 63
DEFB 240, 0,127,248, 0,255,252, 0
DEFB 255,252, 1,255,254, 1,255,254
DEFB 1,255,254, 1,255,254, 0,255
DEFB 252, 0,248,252, 0,116,248, 0
DEFB 46,240, 0, 30,224, 0, 7,128
DEFB 0, 7,128, 0, 31,224, 0, 63
DEFB 240, 0,127,248, 0,255,252, 0
DEFB 255,252, 1,255,254, 1,248,254
DEFB 1,244,254, 1,238,254, 0,206
DEFB 252, 0,197,252, 0, 99,248, 0
DEFB 55,240, 0, 31,224, 0, 7,128
END ASM
SATURNO:
ASM
; ASM source file created by SevenuP v1.20
; SevenuP (C) Copyright 2002-2006 by Jaime Tejedor Gomez, aka Metalbrain
;GRAPHIC DATA:
;Pixel Size: ( 24, 16)
;Char Size: ( 3, 2)
;Frames: 8
;Sort Priorities: X char, Char line, Y char, Frame number
;Data Outputted: Gfx
;Interleave: Sprite
;Mask: No
saturno_r:
DEFB 3,192, 0, 30,184, 0,109, 86
DEFB 0,154,137, 0,149, 9, 0,106
DEFB 134, 0, 16, 56, 0, 10,144, 0
DEFB 5, 96, 0, 3,192, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 1,224, 0, 15, 92, 0, 54,171
DEFB 0, 77, 68,128, 74,132,128, 53
DEFB 67, 0, 8, 28, 0, 5, 72, 0
DEFB 2,176, 0, 1,224, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0,240, 0, 7,174, 0, 27, 85
DEFB 128, 38,162, 64, 37, 66, 64, 26
DEFB 161,128, 4, 14, 0, 2,164, 0
DEFB 1, 88, 0, 0,240, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0,120, 0, 3,215, 0, 13,170
DEFB 192, 19, 81, 32, 18,161, 32, 13
DEFB 80,192, 2, 7, 0, 1, 82, 0
DEFB 0,172, 0, 0,120, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 60, 0, 1,235,128, 6,213
DEFB 96, 9,168,144, 9, 80,144, 6
DEFB 168, 96, 1, 3,128, 0,169, 0
DEFB 0, 86, 0, 0, 60, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 30, 0, 0,245,192, 3,106
DEFB 176, 4,212, 72, 4,168, 72, 3
DEFB 84, 48, 0,129,192, 0, 84,128
DEFB 0, 43, 0, 0, 30, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 15, 0, 0,122,224, 1,181
DEFB 88, 2,106, 36, 2, 84, 36, 1
DEFB 170, 24, 0, 64,224, 0, 42, 64
DEFB 0, 21,128, 0, 15, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 7,128, 0, 61,112, 0,218
DEFB 172, 1, 53, 18, 1, 42, 18, 0
DEFB 213, 12, 0, 32,112, 0, 21, 32
DEFB 0, 10,192, 0, 7,128, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
END ASM
SOMBRA:
ASM
; ASM source file created by SevenuP v1.20
; SevenuP (C) Copyright 2002-2006 by Jaime Tejedor Gomez, aka Metalbrain
;GRAPHIC DATA:
;Pixel Size: ( 24, 16)
;Char Size: ( 3, 2)
;Frames: 8
;Sort Priorities: X char, Char line, Y char, Frame number
;Data Outputted: Gfx
;Interleave: Sprite
;Mask: No
sombra_r:
DEFB 5, 64, 0, 10,160, 0, 21, 80
DEFB 0, 10,160, 0, 5, 64, 0, 2
DEFB 128, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 2,160, 0, 5, 80, 0, 10,168
DEFB 0, 5, 80, 0, 2,160, 0, 1
DEFB 64, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 1, 80, 0, 2,168, 0, 5, 84
DEFB 0, 2,168, 0, 1, 80, 0, 0
DEFB 160, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0,168, 0, 1, 84, 0, 2,170
DEFB 0, 1, 84, 0, 0,168, 0, 0
DEFB 80, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 84, 0, 0,170, 0, 1, 85
DEFB 0, 0,170, 0, 0, 84, 0, 0
DEFB 40, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 42, 0, 0, 85, 0, 0,170
DEFB 128, 0, 85, 0, 0, 42, 0, 0
DEFB 20, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 21, 0, 0, 42,128, 0, 85
DEFB 64, 0, 42,128, 0, 21, 0, 0
DEFB 10, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 10,128, 0, 21, 64, 0, 42
DEFB 160, 0, 21, 64, 0, 10,128, 0
DEFB 5, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
END ASM
BUFFERATTRSATURNO:
ASM
DEFB 0,0,0,0,0,0
END ASM
BUFFERATTRCICLOPEUNO:
ASM
DEFB 0,0,0,0,0,0
END ASM
BUFFERATTRCICLOPEDOS:
ASM
DEFB 0,0,0,0,0,0
END ASM
STOP
SUB doubleSizePrintChar(y AS UBYTE, x AS UBYTE, thingToPrint AS UBYTE)
' Prints a single character double sized.
' Takes X and Y values as character positions, like print.
' takes an ascii code value for a character.
' By Britlion, 2012.
ASM
LD A,(IX+5) ;' Y value
CP 22
JP NC, doubleSizePrintCharEnd
;' A=y value
LD E,A
AND 24 ; calculate
OR 64 ; screen
LD H,A ; address
LD A,E ; FOR
AND 7 ; row
OR a ; Y
RRA
RRA
RRA
RRA
LD E,A
LD A,(IX+7) ;' X Value
CP 30
JP NC, doubleSizePrintCharEnd
ADD A,E ;' correct address for column value. (add it in)
LD L,A
EX DE,HL ;' Save it in DE
LD A,(IX+9) ;'Character
CP 164 ;' > UDG "U" ?
JP NC, doubleSizePrintCharEnd
CP 32 ;' < space+1?
JP C, doubleSizePrintCharEnd
CP 144 ;' >144?
JP NC, doubleSizePrintCharUDGAddress
LD L,A
LD H,0
ADD HL,HL
ADD HL,HL
ADD HL,HL ;' multiply by 8.
LD BC,(23606) ;' Chars
ADD HL,BC ;' Hl -> Character data.
EX DE,HL ;' DE -> character data, HL-> screen address.
JP doubleSizePrintCharRotateLoopCharStart
doubleSizePrintCharUDGAddress:
LD HL,(23675) ;'UDG address
SUB 144
ADD A,A ;multiply by 8.
ADD A,A
ADD A,A
ADD A,L
LD L,A
JR NC, doubleSizePrintCharUDGAddressNoCarry
INC H
doubleSizePrintCharUDGAddressNoCarry:
;' At this point HL -> Character data in UDG block.
EX DE,HL ;' DE -> character data, HL-> screen address.
doubleSizePrintCharRotateLoopCharStart:
LD C,2 ;' 2 character rows.
doubleSizePrintCharRotateLoopCharRowLoopOuter:
LD b,4 ;' 4 source bytes to count through per character row.
doubleSizePrintCharRotateLoopCharRowLoopInner:
PUSH BC
LD A,(DE) ;' Grab a bitmap.
PUSH DE
LD B,4
doubleSizePrintCharRotateLoop1:
RRA
PUSH AF
RR E
POP AF
RR E
DJNZ doubleSizePrintCharRotateLoop1
LD B,4
doubleSizePrintCharRotateLoop2:
RRA
PUSH AF
RR D
POP AF
RR D
DJNZ doubleSizePrintCharRotateLoop2
LD (HL),D ;' Output first byte
INC HL ;' Move right
LD (HL),E ;' Second half.
DEC HL ;' Move left
INC H ;' Move down
LD (HL),D ;' Output second row (copy of first), first byte.
INC HL ;' Move right
LD (HL),E ; Output second row, second BYTE
DEC HL ; Move left
INC H ; Move down.
POP DE
INC DE
POP BC
DJNZ doubleSizePrintCharRotateLoopCharRowLoopInner
; CALL __DECY+2 ;'Jump into the DRAW next_line_down routine, at a convenient point (accounting for the INC H above)
; Can't seem to call to this at the moment! Here in longhand form:
ld a, h
AND 7
jr nz, doubleSizePrintCharRotateNextCharRow
ld a, l
add a, 32
ld l, a
jr c, doubleSizePrintCharRotateNextCharRow
ld a, h
SUB 8
ld h, a
doubleSizePrintCharRotateNextCharRow:
DEC C
JR NZ, doubleSizePrintCharRotateLoopCharRowLoopOuter
doubleSizePrintCharEnd:
END ASM
END SUB
SUB doubleSizePrint(y AS UBYTE, x AS UBYTE, thingToPrint$ AS STRING)
'Uses doubleSizePrintChar subroutine to print a string.
'By Britlion, 2012
DIM n AS UBYTE
FOR n=0 TO LEN thingToPrint - 1
doubleSizePrintChar(y,x,CODE thingToPrint$(n) )
x=x+2
NEXT n
END SUB
P.S. There's one thing I wanted to write about the graphics. The sprite routine is the same for both games, but if you check the code in the cars game there are fewer graphics. That's because in the car's game we change the picture in every horizontal displacement (the graphics are pre-shifted) and in the cyclops game we also change the picture in every vertical displacement. That's a lot more memory usage but the "rolling" effect is nice
