03-09-2010, 03:28 PM
Here goes the .bas listing of the program. I'll post the custom library files following this. I have to think of a way to send the binary files.
Ladies and gentlemen, prepare yourself to witness the future of videogames:
Colour Clash of the Titans (aka Trash of the Titans - aka Crap of the Titans - aka Ruins Fighter VII Turbo):
Ladies and gentlemen, prepare yourself to witness the future of videogames:
Colour Clash of the Titans (aka Trash of the Titans - aka Crap of the Titans - aka Ruins Fighter VII Turbo):
Code:
#include <sinclair.bas>
#include <memcopy.bas>
#include <keys.bas>
REM INICIALIZAR VARIABLES
DIM bicho as uinteger: DIM enemigo as uinteger
LET protaizda=@arqueroizda: LET protadcha=@arquerodcha
LET eneizda=@zeusizda: LET enedcha=@zeusdcha
LET bicho=protadcha: LET enemigo=enedcha
DIM ACEL AS BYTE: DIM DIF AS BYTE: DIM DIFY AS BYTE
DIM GOLPE AS UBYTE: DIM GOLPEE AS UBYTE: DIM HERIDA AS UBYTE: DIM HERIDAE AS UBYTE
LET GOLPE=0: LET GOLPEE=0: LET HERIDA=0: LET HERIDAE=0
LET ACEL=0
LET gfxproyizda=@flechaizda: LET gfxproydcha=@flechadcha
LET gfxproyeizda=@rayo: LET gfxproyedcha=@rayo
DIM VIDA AS UBYTE: DIM VIDAE AS UBYTE
LET VIDA=192: LET VIDAE=192
DIM salto as ubyte: DIM disparo as ubyte: DIM saltoE as ubyte: DIM disparoE as ubyte
LET salto=0: LET disparo=0 : LET saltoE=0: LET disparoE=0
LET X=174:LET Y=200 : LET XA=174:LET YA=200 :let frame=0
LET XE=174:LET YE=40 : LET XAE=174:LET YAE=40 :let frameE=0
LET dispx=0:let dispy=0:let dispxa=0:let dispya=0
LET dispxe=0: let dispye=0: let dispxea=0: let dispyea=0
DIM VELOCIDAD AS UBYTE: DIM VELOCIDADE AS UBYTE: DIM VELDISPARO AS UBYTE: DIM VELDISPAROE AS UBYTE: DIM SALTAR AS UBYTE: DIM SALTARE AS UBYTE: DIM FUERZA AS UBYTE: DIM FUERZAE AS UBYTE
DIM DEMO AS UBYTE: DIM DEMOTIME AS UINTEGER
DIM PAUSA AS UINTEGER
spriteh (16)
border 0
menu:
LET DEMOTIME=1200
PAPER 0:INK 7
CLS
BRIGHT 1
PRINT BOLD 1; AT 0,3; INK 1;"C";INK 2;"O";INK 3;"L";INK 4;"O";INK 5;"U";INK 6;"R";INK 7;" CLASH OF THE TITANS"
PRINT INK 4;AT 2,4;"P: 1 PLAYER"
PRINT INK 7; AT 6,1;"H:SELECT HERO"
PRINT INK 6; AT 8,2;"MACISTE"
PRINT INK 4;AT 9,2;"ZEUS"
PRINT INK 5;AT 10,2;"HADES"
PRINT INK 3;AT 11,2;"LEGOLAS"
BRIGHT 0
PRINT INK 7; AT 6,16;"R:SELECT RIVAL"
PRINT INK 6; AT 8,17;"LEGOLAS"
PRINT INK 4;AT 9,17;"HADES"
PRINT INK 5;AT 10,17;"ZEUS"
PRINT INK 3;AT 11,17;"MACISTE"
BRIGHT 1
PRINT AT 14,5;INK 7;"S:SELECT SCENARIO"
PRINT AT 15,2;INK 1;"RUINS OF THE ANCIENT GREECE"
PRINT AT 16,2;INK 3;"RUINS OF THE BRITISH EMPIRE"
PRINT AT 17,2;INK 4;"RUINS OF THE ISLAND EGOS"
PRINT AT 18,2;INK 6;"RUINS OF THE WORLD'S SOUL"
PRINT AT 19,2;INK 2;"RUINS OF THE SPANISH ECONOMY"
PRINT ITALIC 1;INK 1;PAPER 7;BRIGHT 0;INVERSE 1; AT 22,8;"ENTER TO START"
INK 2
PLOT 6,140: DRAW -3,0:DRAW -2,-2:DRAW 0,-46:DRAW 2,-2: DRAW 112,0: DRAW 2,2: DRAW 0,46: DRAW -2,2: DRAW -3,0
PLOT 127,140: DRAW -3,0:DRAW -2,-2:DRAW 0,-46:DRAW 2,-2: DRAW 120,0: DRAW 2,2: DRAW 0,46: DRAW -2,2: DRAW -3,0
INK 6
PLOT 38,76: DRAW -35,0:DRAW -2,-2: DRAW 0,-46:DRAW 2,-2: DRAW 241,0: DRAW 2,2: DRAW 0,46: DRAW -2,2: DRAW -67,0
INK 1
PLOT 30,172: DRAW -27,0:DRAW -2,-2: DRAW 0,-20:DRAW 2,-2: DRAW 241,0:DRAW 2,2: DRAW 0,20:DRAW -2,2:DRAW -27,0
LET HERO=0:LET RIVAL=0:LET SCENARIO=0:LET JUGADORES=1
menudos:
LET ALEA=INT (RND*300): IF ALEA=0 THEN PRINT ITALIC 1;BOLD 1;INK INT (RND*7)+1;AT 0,10;"TRASH": ELSE IF ALEA=1 THEN PRINT ITALIC 1;BOLD 1;INK INT (RND*7)+1;AT 0,10;"CRAP ":ELSE IF ALEA=2 THEN PRINT AT 0,10;ITALIC 1;BOLD 1;INK INT (RND*7)+1;"CLASH":END IF:END IF:END IF
PRINT AT 8+HERO,1;INK INT (RND*7)+1;">"
PRINT AT 8+RIVAL,16;INK INT (RND*7)+1;">"
PRINT AT 15+SCENARIO,1;INK INT (RND*7)+1;">"
IF MULTIKEYS (KEYH)<>0 THEN PRINT AT 8+HERO,1;" ":LET HERO=HERO+1:PAUSE 1:PAUSE 5:IF HERO>3 THEN LET HERO=0:END IF:END IF
IF MULTIKEYS (KEYR)<>0 THEN PRINT AT 8+RIVAL,16;" ":LET RIVAL=RIVAL+1:PAUSE 1:PAUSE 5:IF RIVAL>3 THEN LET RIVAL=0:END IF:END IF
IF MULTIKEYS (KEYS)<>0 THEN PRINT AT 15+SCENARIO,1;" ":LET SCENARIO=SCENARIO+1:PAUSE 1:PAUSE 5:IF SCENARIO>4 THEN LET SCENARIO=0:END IF:END IF
IF MULTIKEYS (KEYP)<>0 THEN LET JUGADORES=JUGADORES+1:PAUSE 1: PAUSE 10:IF JUGADORES =3 THEN LET JUGADORES=1:END IF: END IF
IF JUGADORES=1 THEN PRINT INK 4;AT 2,4;"P: 1 PLAYER ";AT 3,3;"O:LEFT P:RIGHT U:UP M:FIRE";AT 4,3;" ":ELSE PRINT INK 5;AT 2,16;"P: 2 PLAYERS";AT 4,3;"Q:LEFT W:RIGHT R:UP V:FIRE":END IF
IF MULTIKEYS (KEYENTER)<>0 THEN GOTO INICIO: END IF
LET DEMOTIME=DEMOTIME-1: IF DEMOTIME=0 THEN LET DEMO=1:LET HERO=INT (RND*4):LET RIVAL=INT (RND*4):LET SCENARIO=INT (RND*5):LET CAMINO=1:GOTO INICIO:END IF
GOTO menudos
PAUSE 1:PAUSE 0
INICIO:
IF HERO=0 THEN LET protaizda=@macisteizda: LET protadcha=@macistedcha: LET gfxproyizda=@ondaizda: LET gfxproydcha=@ondadcha:LET VELOCIDAD=1:LET VELDISPARO=1:LET FUERZA=3: LET SALTAR=80:END IF
IF HERO=1 THEN LET protaizda=@zeusizda: LET protadcha=@zeusdcha: LET gfxproyizda=@rayo: LET gfxproydcha=@rayo:LET VELOCIDAD=1:LET VELDISPARO=2:LET FUERZA=2: LET SALTAR=90:END IF
IF HERO=2 THEN LET protaizda=@etizda: LET protadcha=@etdcha: LET gfxproyizda=@telefono: LET gfxproydcha=@telefono:LET VELOCIDAD=2:LET VELDISPARO=2:LET FUERZA=2: LET SALTAR=48:END IF
IF HERO=3 THEN LET protaizda=@arqueroizda: LET protadcha=@arquerodcha: LET gfxproyizda=@flechaizda: LET gfxproydcha=@flechadcha:LET VELOCIDAD=2:LET VELDISPARO=3:LET FUERZA=1: LET SALTAR=60:END IF
IF RIVAL=0 THEN LET eneizda=@arqueroizda: LET enedcha=@arquerodcha: LET gfxproyeizda=@flechaizda: LET gfxproyedcha=@flechadcha:LET VELOCIDADE=2:LET VELDISPAROE=3:LET FUERZAE=1: LET SALTARE=60:END IF
IF RIVAL=1 THEN LET eneizda=@etizda: LET enedcha=@etdcha: LET gfxproyeizda=@telefono: LET gfxproyedcha=@telefono:LET VELOCIDADE=2:LET VELDISPAROE=2:LET FUERZAE=2: LET SALTARE=48:END IF
IF RIVAL=2 THEN LET eneizda=@zeusizda: LET enedcha=@zeusdcha: LET gfxproyeizda=@rayo: LET gfxproyedcha=@rayo:LET VELOCIDADE=1:LET VELDISPAROE=2:LET FUERZAE=2: LET SALTARE=90:END IF
IF RIVAL=3 THEN LET eneizda=@macisteizda: LET enedcha=@macistedcha: LET gfxproyeizda=@ondaizda: LET gfxproyedcha=@ondadcha:LET VELOCIDADE=1:LET VELDISPAROE=1:LET FUERZAE=3: LET SALTARE=80:END IF
LET bicho=protaizda: LET enemigo=enedcha
IF SCENARIO>0 THEN GOTO ESCENARIOUNO: END IF
unchunk (@partenon,16384,3927)
GOTO JUEGO
ESCENARIOUNO:
IF SCENARIO>1 THEN GOTO ESCENARIODOS: END IF
unchunk (@stonehedge,16384,3372)
GOTO JUEGO
ESCENARIODOS:
IF SCENARIO>2 THEN GOTO ESCENARIOTRES: END IF
unchunk (@pascua,16384,3997)
GOTO JUEGO
ESCENARIOTRES:
IF SCENARIO>3 THEN GOTO ESCENARIOCUATRO: END IF
unchunk (@ny,16384,3652)
GOTO JUEGO
ESCENARIOCUATRO:
unchunk (@marbella,16384,3049)
JUEGO:
LET VIDA=192: LET VIDAE=192
LET salto=0: LET disparo=0 : LET saltoE=0: LET disparoE=0
LET X=174:LET Y=200 : LET XA=174:LET YA=200 :let frame=0
LET XE=174:LET YE=40 : LET XAE=174:LET YAE=40 :let frameE=0
LET XDISP=0:let YDISP=0:let XDISPE=0:let YDISPE=0
LET GOLPE=0: LET GOLPEE=0: LET HERIDA=0: LET HERIDAE=0
memcopy (@logo,16384,2048)
memcopy (@logo+2048,22528,256)
IF DEMO=1 THEN PRINT AT 12,4;PAPER 1;INK 6;FLASH 1;ITALIC 1;"ENTER TO EXIT DEMO MODE":END IF
cpbuffer(X,Y,@buser)
andsprite (X,Y,bicho)
xorsprite (X,Y,bicho+64)
andsprite (32,232,bicho)
xorsprite (32,232,bicho+64)
cpbuffer(XE,YE,@buserene)
andsprite (XE,YE,enemigo)
xorsprite (XE,YE,enemigo+64)
andsprite (32,8,enemigo)
xorsprite (32,8,enemigo+64)
bucle:
IF DEMO=1 THEN GOTO DEMOMODE: END IF
LET O=MULTIKEYS(KEYO)
LET P= MULTIKEYS(KEYP)
LET M=MULTIKEYS(KEYM)
LET Q=MULTIKEYS(KEYU):IF Q>0 AND salto=0 THEN LET salto=SALTAR:END IF
IF M>0 AND O>0 AND disparo=0 THEN LET disparo=1:LET XDISP=X: LET YDISP=Y-16: LET XDISPA=X:LET YDISPA=Y-16: LET PROY=gfxproyizda: LET MOVPROY=-VELDISPARO: END IF
IF M>0 AND P>0 AND disparo=0 THEN LET disparo=1:LET XDISP=X: LET YDISP=Y+16: LET XDISPA=X:LET YDISPA=Y+16: LET PROY=gfxproydcha: LET MOVPROY=VELDISPARO:END IF
IF JUGADORES=1 THEN GOTO INTELIGENCIA: END IF
LET OE=MULTIKEYS(KEYQ)
LET PE= MULTIKEYS(KEYW)
LET QE=MULTIKEYS(KEYV)
LET R=MULTIKEYS(KEYR):IF R>0 AND saltoE=0 THEN LET saltoE=SALTARE:END IF
IF QE>0 AND OE>0 AND disparoE=0 THEN LET disparoE=1:LET XDISPE=XE: LET YDISPE=YE-16: LET XDISPAE=XE:LET YDISPAE=YE-16: LET PROYE=gfxproyeizda: LET MOVPROYE=-VELDISPAROE: END IF
IF QE>0 AND PE>0 AND disparoE=0 THEN LET disparoE=1:LET XDISPE=XE: LET YDISPE=YE+16: LET XDISPAE=XE:LET YDISPAE=YE+16: LET PROYE=gfxproyedcha: LET MOVPROYE=VELDISPAROE:END IF
GOTO DECISIONIMPRIME
REM MOVIMIENTO ENEMIGO
INTELIGENCIA:
LET PE=0:LET PO=0:LET QE=0:LET DIF=X-XE: LET DIFY=Y-YE
IF Y>YE AND Y-YE>36 THEN LET PE=1:ELSE LET PE=0:END IF
IF Y<YE AND YE-Y>36 THEN LET OE=1:ELSE LET OE=0:END IF
IF disparo=1 AND saltoE=0 THEN LET QE=1: END IF
IF QE>0 AND saltoE=0 THEN LET saltoE=SALTARE:END IF
IF Y>YE AND ABS DIF<20 AND disparoE=0 THEN LET disparoE=1:LET XDISPE=XE: LET YDISPE=YE+16: LET XDISPAE=XE:LET YDISPAE=YE+16: LET PROYE=gfxproyedcha: LET MOVPROYE=VELDISPAROE: END IF
IF Y<YE AND ABS DIF<20 AND disparoE=0 THEN LET disparoE=1:LET XDISPE=XE: LET YDISPE=YE-16: LET XDISPAE=XE:LET YDISPAE=YE-16: LET PROYE=gfxproyeizda: LET MOVPROYE=-VELDISPAROE: END IF
IF Y>YE AND Y<80 THEN LET PE=1:END IF
IF YE>Y AND Y>176 THEN LET OE=1:END IF
DECISIONIMPRIME:
IF O+P>0 OR salto>0 OR OE+PE>0 OR saltoE>0 OR disparo>0 OR disparoE>0 THEN GOSUB imprime : END IF
goto bucle
DEMOMODE:
IF MULTIKEYS (KEYENTER)<>0 THEN GOTO menu: END IF
LET P=0:LET O=0:LET Q=0
IF Y<40 THEN LET CAMINO=0:END IF
IF Y>210 THEN LET CAMINO=1: END IF
IF CAMINO=1 THEN LET O=1:END IF
IF CAMINO=0 THEN LET P=1: END IF
SEGUNDAOPCION:
IF disparoE=1 AND salto=0 THEN LET Q=1: END IF
IF Q>0 AND salto=0 THEN LET salto=SALTAR:END IF
IF Y<YE AND disparo=0 THEN LET disparo=1:LET XDISP=X: LET YDISP=Y+16: LET XDISPA=X:LET YDISPA=Y+16: LET PROY=gfxproydcha: LET MOVPROY=VELDISPARO: END IF
IF Y>YE AND disparo=0 THEN LET disparo=1:LET XDISP=X: LET YDISP=Y-16: LET XDISPA=X:LET YDISPA=Y-16: LET PROY=gfxproyizda: LET MOVPROY=-VELDISPARO: END IF
LET PE=0:LET PO=0:LET QE=0:LET DIF=X-XE: LET DIFY=Y-YE
IF Y>YE AND Y-YE>36 THEN LET PE=1:ELSE LET PE=0:END IF
IF Y<YE AND YE-Y>36 THEN LET OE=1:ELSE LET OE=0:END IF
IF disparo=1 AND saltoE=0 THEN LET QE=1: END IF
IF QE>0 AND saltoE=0 THEN LET saltoE=SALTARE:END IF
IF Y>YE AND ABS DIF<20 AND disparoE=0 THEN LET disparoE=1:LET XDISPE=XE: LET YDISPE=YE+16: LET XDISPAE=XE:LET YDISPAE=YE+16: LET PROYE=gfxproyedcha: LET MOVPROYE=VELDISPAROE: END IF
IF Y<YE AND ABS DIF<20 AND disparoE=0 THEN LET disparoE=1:LET XDISPE=XE: LET YDISPE=YE-16: LET XDISPAE=XE:LET YDISPAE=YE-16: LET PROYE=gfxproyeizda: LET MOVPROYE=-VELDISPAROE: END IF
IF Y>YE AND Y<80 THEN LET PE=1:END IF
IF YE>Y AND Y>176 THEN LET OE=1:END IF
GOTO DECISIONIMPRIME
stop
imprime:
IF O<>0 AND Y>8 THEN LET Y=Y-VELOCIDAD:LET bicho=protaizda:let frame=frame+1:if frame>1 then let frame=0:end if: END IF
IF P<>0 AND Y<232 THEN LET Y=Y+VELOCIDAD: LET bicho=protadcha:let frame=frame+1:if frame>1 then let frame=0:end if: END IF
IF salto>SALTAR/2 THEN LET X=X-1:LET salto=salto-1:
ELSE IF salto<1+SALTAR/2 AND salto>0 THEN LET X=X+1: LET salto=salto-1: END IF: END IF
IF OE>0 AND YE>8 THEN LET YE=YE-VELOCIDADE:LET enemigo=eneizda:let frameE=frameE+1:if frameE>1 then let frameE=0:end if: END IF
IF PE>0 AND YE<232 THEN LET YE=YE+VELOCIDADE: LET enemigo=enedcha:let frameE=frameE+1:if frameE>1 then let frameE=0:end if: END IF
IF saltoE>SALTARE/2 THEN LET XE=XE-1:LET saltoE=saltoE-1:
ELSE IF saltoE<1+SALTARE/2 AND saltoE>0 THEN LET XE=XE+1: LET saltoE=saltoE-1: END IF: END IF
asm
halt
end asm
movbicho:
rstbuffer(XA,YA,@buser)
rstbuffer(XAE,YAE,@buserene)
saltouno:
cpbuffer(XE,YE,@buserene)
cpbuffer(X,Y,@buser)
if disparo<1 then goto saltodos: end if
xorsprite (XDISPA,YDISPA,PROY)
saltodos:
if disparoE<1 then goto saltodosmedio: end if
xorsprite (XDISPAE,YDISPAE,PROYE)
saltodosmedio:
andsprite (X,Y,bicho+frame*32)
xorsprite (X,Y,bicho+64+frame*32)
movenemigo:
andsprite (XE,YE,enemigo+frameE*32)
xorsprite (XE,YE,enemigo+64+frameE*32)
if disparo<1 then goto saltotres : end if
xorsprite (XDISP,YDISP,PROY)
saltotres:
if disparoE<1 then goto saltotresmedio : end if
xorsprite (XDISPE,YDISPE,PROYE)
saltotresmedio:
LET XA=X:LET YA=Y:LET XAE=XE:LET YAE=YE
if disparo<1 then goto saltocuatro:END IF
LET YDISP=YDISP+MOVPROY
IF YDISP<1 OR YDISP>240 THEN LET disparo=0:gosub DISPEND: END IF
let YDISPA=YDISP
saltocuatro:
if disparoE<1 then goto saltocuatromedio:END IF
LET YDISPE=YDISPE+MOVPROYE
IF YDISPE<1 OR YDISPE>240 THEN LET disparoE=0:gosub DISPEND: END IF
let YDISPAE=YDISPE
saltocuatromedio:
for coluno=1 to FUERZAE:GOSUB COLISIONESUNO:NEXT
FOR COLDOS=1 TO FUERZA:GOSUB COLISIONESDOS:NEXT
return
DISPIZDA:
LET disparo=2
return
DISPEND:
return
COLISIONESUNO:
IF Y-YDISPE>16 THEN RETURN: END IF
IF X-XDISPE>16 THEN RETURN: END IF
LET GOLPE=GOLPE+1
BEEP .005,RND*8
PAPER 8: INK 8
PLOT 248,192-GOLPE
DRAW 7,0
IF GOLPE>64 THEN GOTO GANAENE : END IF
RETURN
COLISIONESDOS:
IF YE-YDISP>16 THEN RETURN: END IF
IF XE-XDISP>16 THEN RETURN: END IF
LET GOLPEE=GOLPEE+1
BEEP .005,RND*8
PAPER 8: INK 8
PLOT 40,192-GOLPEE
DRAW 7,0
IF GOLPEE>64 THEN GOTO GANAPROTA : END IF
RETURN
GANAENE:
PRINT FLASH 1;PAPER 2;INK 7; BOLD 1; AT 15,12;"PLY2 WIN!":PAUSE 1:PAUSE 50:FOR PAUSA=O TO 30000:NEXT:GOTO menu
GANAPROTA:
PRINT FLASH 1;PAPER 3;INK 1; BOLD 1; AT 15,12;"PLY1 WIN!":PAUSE 1:PAUSE 50:FOR PAUSA=O TO 30000:NEXT: GOTO menu
end
#include <sprite.bas>
#include <spritebuffer.bas>
#include <unchunk.bas>
ondaizda:
ASM
ondaizda:
DEFB 0, 0, 4, 0, 28,128, 57,136
DEFB 99, 25,102, 51,204,103,216,204
DEFB 216,204,204,103,102, 51, 99, 25
DEFB 57,136, 28,128, 4, 0, 0, 0
END ASM
ondadcha:
ASM
DEFB 0, 0, 0, 32, 1, 56, 17,156
DEFB 152,198,204,102,230, 51, 51, 27
DEFB 51, 27,230, 51,204,102,152,198
DEFB 17,156, 1, 56, 0, 32, 0, 0
END ASM
telefono:
ASM
DEFB 127,254,255,255,255,255,240, 15
DEFB 112, 14, 0, 0, 4, 16, 15,248
DEFB 25, 44, 29,100, 63,254, 46,178
DEFB 36,154,127,255,127,255,127,255
END ASM
etizda:
ASM
et:
DEFB 128, 1, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0,192, 0, 0, 0, 0, 0
DEFB 0, 0,224, 0,128, 1,128, 1
DEFB 224, 1,192, 0,192, 0,192, 0
DEFB 192, 0,192, 0,192, 0,192, 0
DEFB 192, 0,192, 0,128, 0,128, 0
DEFB 128, 1,224, 3,224, 7,224, 7
DEFB 0, 0, 63,252,127,254, 79,238
DEFB 111,254,127,254, 31,230,127, 6
DEFB 0, 62, 3,254, 31,254,127,254
DEFB 15,254, 6,236, 14, 28, 62,124
DEFB 0, 0, 15,252, 31,254, 18,110
DEFB 23,126, 31,254, 16,230, 31,198
DEFB 0, 62, 3,254, 31,254, 63,252
DEFB 15,248, 1,176, 3,240, 15,240
END ASM
etdcha:
ASM
etdcha:
DEFB 128, 1, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 3, 0, 0, 0, 0
DEFB 0, 0, 0, 7,128, 1,128, 1
DEFB 128, 7, 0, 3, 0, 3, 0, 3
DEFB 0, 3, 0, 3, 0, 3, 0, 3
DEFB 0, 3, 0, 3, 0, 1, 0, 1
DEFB 128, 1,192, 7,224, 7,224, 7
DEFB 0, 0, 63,252,127,254,119,242
DEFB 127,246,127,254,103,248, 96,254
DEFB 124, 0,127,192,127,248,127,254
DEFB 127,240, 55, 96, 56,112, 62,124
DEFB 0, 0, 63,240,127,248,118, 72
DEFB 126,232,127,248,103, 8, 99,248
DEFB 124, 0,127,192,127,248, 63,252
DEFB 31,240, 13,128, 15,192, 15,240
END ASM
macistedcha:
ASM
macistedcha:
DEFB 192, 7,192, 7,192, 7,192, 7
DEFB 192, 3,128, 1,128, 1,128, 1
DEFB 128, 1,128, 1,192, 1,224, 3
DEFB 248, 15,248, 7,248, 3,248, 3
DEFB 224, 3,224, 3,224, 3,224, 3
DEFB 224, 3,192, 1,192, 0,192, 0
DEFB 192, 0,224, 0,240, 7,224, 15
DEFB 192, 1,192, 1,192,129,193,195
DEFB 15,224, 29,176, 31,240, 15, 96
DEFB 3,128, 27,184, 59,220, 55,236
DEFB 59,236, 29,220, 13,216, 3,192
DEFB 3, 64, 3, 96, 3,176, 3,216
DEFB 7,240, 15,104, 15,248, 7, 48
DEFB 1,192, 13,232, 27,252, 29,246
DEFB 14,246, 6,240, 1,224, 3,192
DEFB 15, 96, 30,116, 24, 60, 12, 24
END ASM
macisteizda:
ASM
macisteizda:
DEFB 224, 3,224, 3,224, 3,224, 3
DEFB 192, 3,128, 1,128, 1,128, 1
DEFB 128, 1,128, 1,128, 3,192, 7
DEFB 240, 31,224, 31,192, 31,192, 31
DEFB 192, 7,192, 7,192, 7,192, 7
DEFB 192, 7,128, 3, 0, 3, 0, 3
DEFB 0, 3, 0, 7,224, 15,240, 7
DEFB 128, 3,128, 3,129, 3,195,131
DEFB 7,240, 13,184, 15,248, 6,240
DEFB 1,192, 29,216, 59,220, 55,236
DEFB 55,220, 59,184, 27,176, 3,192
DEFB 2,192, 6,192, 13,192, 27,192
DEFB 15,224, 22,240, 31,240, 12,224
DEFB 3,128, 23,176, 63,216,111,184
DEFB 111,112, 15, 96, 7,128, 3,192
DEFB 6,240, 46,120, 60, 24, 24, 48
END ASM
arquerodcha:
ASM
DEFB 240, 63,224, 15,224, 7,224, 3
DEFB 192, 1,128, 0,128, 0,192, 0
DEFB 224, 16,240, 24,224, 56,224, 17
DEFB 240, 3,240, 7,240, 15,240, 31
DEFB 240, 63,224, 15,224, 7,224, 3
DEFB 192, 1,128, 0,128, 0,192, 0
DEFB 224, 0,224, 0,224, 0,224, 1
DEFB 224, 3,194, 7,135, 7,131,131
DEFB 7,128, 15, 64, 15,240, 7,168
DEFB 27, 68, 54,242, 57,126, 30,143
DEFB 14,193, 1, 66, 14,130, 15, 68
DEFB 5,168, 5,176, 7,128, 7,192
DEFB 7,128, 15, 64, 15,240, 7,168
DEFB 27, 68, 54,242, 57,126, 30,143
DEFB 14,193, 1, 66, 14,130, 15,116
DEFB 13,136, 24,192, 48,112, 56, 56
END ASM
arqueroizda:
ASM
DEFB 252, 15,240, 7,224, 7,192, 7
DEFB 128, 3, 0, 1, 0, 1, 0, 3
DEFB 8, 7, 24, 15, 28, 7,136, 7
DEFB 192, 15,224, 15,240, 15,248, 15
DEFB 252, 15,240, 7,224, 7,192, 7
DEFB 128, 3, 0, 1, 0, 1, 0, 3
DEFB 0, 7, 0, 7, 0, 7,128, 7
DEFB 192, 7,224, 67,224,225,193,193
DEFB 1,224, 2,240, 15,240, 21,224
DEFB 34,216, 79,108,126,156,241,120
DEFB 131,112, 66,128, 65,112, 34,240
DEFB 21,160, 13,160, 1,224, 3,224
DEFB 1,224, 2,240, 15,240, 21,224
DEFB 34,216, 79,108,126,156,241,120
DEFB 131,112, 66,128, 65,112, 46,240
DEFB 17,176, 3, 24, 14, 12, 28, 28
END ASM
flechaizda:
ASM
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 24, 18,120, 36
DEFB 255,252,120, 36, 24, 18, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
END ASM
flechadcha:
ASM
DEFB 0, 0, 0, 0, 0, 0, 0, 0
DEFB 0, 0, 0, 0, 72, 24, 36, 30
DEFB 63,255, 36, 30, 72, 24, 0, 0
DEFB 0, 0, 0, 0, 0, 0, 0, 0
END ASM
zeusizda:
ASM
DEFB 224, 63,192, 31,224, 15,224, 15
DEFB 192, 7,128, 3, 0, 1, 0, 1
DEFB 0, 1,128, 3,128, 7,128, 7
DEFB 128, 7,128, 1,128, 0,192, 0
DEFB 224, 63,192, 31,224, 15,224, 15
DEFB 192, 7,128, 3, 0, 1, 0, 1
DEFB 0, 1, 96, 1,240, 1,224, 3
DEFB 192, 7,128, 7, 0, 7, 0, 7
DEFB 15,128, 31,192, 9, 96, 0, 32
DEFB 31,160, 25,184, 95,132,175, 20
DEFB 47, 44, 47, 56, 38, 48, 38, 0
DEFB 40, 16, 40, 8, 40, 6, 15,254
DEFB 15,128, 31,192, 9, 96, 0, 32
DEFB 31,160, 25,184, 95,132,175, 20
DEFB 151, 20, 11, 20, 4, 28, 10, 0
DEFB 17, 16, 48,144, 96, 16,127,240
END ASM
zeusdcha:
ASM
DEFB 252, 7,248, 3,240, 7,240, 7
DEFB 224, 3,192, 1,128, 0,128, 0
DEFB 128, 0,192, 1,224, 1,224, 1
DEFB 224, 1,128, 1, 0, 1, 0, 3
DEFB 252, 7,248, 3,240, 7,240, 7
DEFB 224, 3,192, 1,128, 0,128, 0
DEFB 128, 0,128, 6,128, 15,192, 7
DEFB 224, 3,224, 1,224, 0,224, 0
DEFB 1,240, 3,248, 6,144, 4, 0
DEFB 5,248, 29,152, 33,250, 40,245
DEFB 52,244, 28,244, 12,100, 0,100
DEFB 8, 20, 16, 20, 96, 20,127,240
DEFB 1,240, 3,248, 6,144, 4, 0
DEFB 5,248, 29,152, 33,250, 40,245
DEFB 40,233, 40,208, 56, 32, 0, 80
DEFB 8,136, 9, 12, 8, 6, 15,254
END ASM
rayo:
ASM
DEFB 0, 0, 0, 0, 0, 7, 0, 11
DEFB 1, 21, 2,170, 5, 84, 10,168
DEFB 21, 80, 42,160, 84, 64,168, 0
DEFB 208, 0,224, 0, 0, 0, 0, 0
END ASM
buser:
ASM
buser:
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
buserene:
ASM
buserene:
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
marbella:
asm
incbin"marbella.rle"
END ASM
ny:
asm
incbin"ny.rle"
END ASM
pascua:
asm
incbin"pascua.rle"
END ASM
stonehedge:
asm
incbin"stonehedge.rle"
END ASM
logo:
asm
incbin"ruinsfighter.bin"
END ASM
partenon:
ASM
incbin"partenon.rle"
END ASM