Free your creativity - IOMBCC

Página 9/29
2 | 3 | 4 | 5 | 6 | 7 | 8 | | 10 | 11 | 12 | 13 | 14

Por dvik

Prophet (2200)

Imagen del dvik

30-03-2005, 09:30

Entry: Rally-X v1.2
System: MSX1

After doing RLE encoded data as Ricardo suggested I was able to put some
more code to the game. So I added a speed meter, rank, customized font,
sound and cleaned up the startup a bit.

Here is the code:

1 DATA0,18,,C,,F,1,7,2,3,2,1,7,,,80,,E0,,F0,,FC,8,FF,7,,,80,,E0,,F0,,F8,,FC,1,FE,,FF,15,,5,3F,5,7F,19,FF,,F0,,F8,,FC,,FE,11,FF,4,,,80,,C0,,E0,1,F0,,F8,,FC,1,FE,1,FF,15,,1,1,1,3,1,7,1,F,1,1F,1,3F,1,7F,1,FF,1,80,1,C0,1,E0,1,F0,1,F8,1,FC,1,FE
2 DATA1,FF,15,,1,1,1,3,1,7,1,F,1,1F,1,3F,1,7F,33,FF,1,80,1,C0,1,E0,1,F0,1,F8,1,FC,1,FE,1,FF,23,,,1,,7,,F,,1F,,3F,1,7F,,FF,2,,,1,,7,,F,,3F,8,FF,,18,,30,,F0,1,E0,2,C0,2,80,9,,,1,,3,,7,1,F,,1F,,3F,1,7F,1,FF,,F,,1F,,3F,,7F,27,FF,5,FC,5,FE,3,FF
3 DATA6,,,1F,,20,,40,,7F,1,CF,,7F,1,70,6,,,C0,,20,,10,,F0,1,98,,F0,1,70,9,,,F,,10,,1F,,2F,,1F:KEYOFF:DEFINTA-Z:SCREEN1,3:V=14:COLOR15,5,1:FORI=0TO2:VPOKE8208+I,85:NEXT:LOCATE8,1:PRINT"PLEASE WAIT...":FORI=0TO142:READX:READS$:Y=VAL("&H"+S$)
4 FORA=ATOA+X:VPOKE14336+A,Y:NEXT:NEXT:FORI=0TO11:READF:FORH=0TO31:VPOKE6528+H+I*32,(I<8ORH72)-(X<0):IFO+G-S-N/128THENO=S:G=N/128:LOCATE0,1:GOSUB5:I=55930!/(25+S):SOUND9,-9*(S=0):SOUND1,I/256:SOUND0,IAND255:PRINTUSING"SPEED:####mph       RANK:###";S*10;G
8 GOSUB5:L=X-E/3:N=N+9-S:E=NAND128:D=96-(NAND127):Y=D>0:D=D*D/96:GOSUB5:PUTSPRITE1,(115-(D<34)*((24-D)*(B-1)+(F-1)*10)+(E-64)*D/225,-Y*(98+D)-31),6,16-D/24:GOTO6:DATA,19,10,,1,80,,40,1,80,11,,,6,,F,,9,30,,,3,32,,18,17,16,,17,1,16,8,,17,9,1

And a little screenshot:

www.bluemsx.com/rally-x2.jpg

Por Alex Ganzeveld

Expert (89)

Imagen del Alex Ganzeveld

30-03-2005, 09:35

Yeeeeeeeeeeeeeeeeeeeeeeeeeehaaaaaaaaaaaaaaw!

Por Alex Ganzeveld

Expert (89)

Imagen del Alex Ganzeveld

30-03-2005, 09:35

Keep it coming! Great stuff.

Por NYYRIKKI

Enlighted (6011)

Imagen del NYYRIKKI

30-03-2005, 10:16

Ok, that is pure BASIC art! You are really pushing the limits of size optimization Smile

Por Vampier

Prophet (2405)

Imagen del Vampier

30-03-2005, 11:24

Dvik makes us all look like amateurs Big smile

Por NYYRIKKI

Enlighted (6011)

Imagen del NYYRIKKI

30-03-2005, 13:28

I messed a little with your RLE and got you some more free space:

1 KEYOFF:DEFINTA-Z:SCREEN1,3,0:V=14:COLOR15,5,1:FORI=0TO2:VPOKE8208+I,85:NEXT:LOCATE8,1:PRINT"PLEASE WAIT...":FORI=0TO142:READS$:X=ASC(S$)-65:Y=VAL("&H"+MID$(S$,2)):DATAA18,AC,AF,B7,C3,C1,H,A80,AE0,AF0,AFC,IFF,H,A80,AE0,AF0,AF8,AFC,BFE,AFF
2 DATAP,F3F,F7F,TFF,AF0,AF8,AFC,AFE,LFF,E,A80,AC0,AE0,BF0,AF8,AFC,BFE,BFF,P,B1,B3,B7,BF,B1F,B3F,B7F,BFF,B80,BC0,BE0,BF0,BF8,BFC,BFE,BFF,P,B1,B3,B7,BF,B1F,B3F,B7F,bFF,B80,BC0,BE0,BF0,BF8,BFC,BFE,BFF,X,A1,A7,AF,A1F,A3F,B7F,AFF,C,A1,A7,AF,A3F
3 DATAIFF,A18,A30,AF0,BE0,CC0,C80,J,A1,A3,A7,BF,A1F,A3F,B7F,BFF,AF,A1F,A3F,A7F,\FF,FFC,FFE,DFF,G,A1F,A20,A40,A7F,BCF,A7F,B70,G,AC0,A20,A10,AF0,B98,AF0,B70,J,AF,A10,A1F,A2F,A1F,A19,K,B80,A40,B80,L,A6,AF,A9,_,A3,a,,18,17,16,,17,1,16,8,17,9,1
4 FORA=ATOA+X:VPOKE14336+A,Y:NEXT:NEXT:FORI=0TO11:READF:FORH=0TO31:VPOKE6528+H+I*32,(I<8ORH72)-(X<0):IFO+G-S-N/128THENO=S:G=N/128:LOCATE0,1:GOSUB5:I=55930!/(25+S):SOUND9,-9*(S=0):SOUND1,I/256:SOUND0,IAND255:PRINTUSING"SPEED:####mph       RANK:###";S*10;G''
8 GOSUB5:L=X-E/3:N=N+9-S:E=NAND128:D=96-(NAND127):Y=D>0:D=D*D/96:GOSUB5:PUTSPRITE1,(115-(D<34)*((24-D)*(B-1)+(F-1)*10)+(E-64)*D/225,-Y*(98+D)-31),6,16-D/24:GOTO6

Por [D-Tail]

Ascended (8261)

Imagen del [D-Tail]

30-03-2005, 17:51

WOW!!! Big smile

What a cool game! Big smile

Actually, I was waiting for the end demo to take place, after I got past the finish line. Now it turned out there wasn't a finish line at all... You know, I really like end demos, with 3D ray tracing shit in them, accompanied by some neat OPL4 tunes... I hoped it was RLE'd inside those data lines... Tongue

Understatement for wishful thinking Smile

dvik: I worship you! Lead us into the wonderous MSX-BASIC-heaven! Big smile

Por [D-Tail]

Ascended (8261)

Imagen del [D-Tail]

30-03-2005, 17:52

PS: After my rank started to decrease below -13, I stopped playing... what is its minimum? Or will it wrap around at -32768/32767? Wink

Por dvik

Prophet (2200)

Imagen del dvik

30-03-2005, 19:06

Cool NYYRIKKI Smile Good idea to put both the length and value in the same data string. It saves quite a lot of space.

I found a tiny bug in the data that generates the grass (just a comma in the wrong place). Here is an update:

1 KEYOFF:DEFINTA-Z:SCREEN1,3,0:V=14:COLOR15,5,1:FORI=0TO2:VPOKE8208+I,85:NEXT:LOCATE8,1:PRINT"PLEASE WAIT...":FORI=0TO142:READS$:X=ASC(S$)-65:Y=VAL("&H"+MID$(S$,2)):DATAA18,AC,AF,B7,C3,C1,H,A80,AE0,AF0,AFC,IFF,H,A80,AE0,AF0,AF8,AFC,BFE,AFF
2 DATAP,F3F,F7F,TFF,AF0,AF8,AFC,AFE,LFF,E,A80,AC0,AE0,BF0,AF8,AFC,BFE,BFF,P,B1,B3,B7,BF,B1F,B3F,B7F,BFF,B80,BC0,BE0,BF0,BF8,BFC,BFE,BFF,P,B1,B3,B7,BF,B1F,B3F,B7F,bFF,B80,BC0,BE0,BF0,BF8,BFC,BFE,BFF,X,A1,A7,AF,A1F,A3F,B7F,AFF,C,A1,A7,AF,A3F
3 DATAIFF,A18,A30,AF0,BE0,CC0,C80,J,A1,A3,A7,BF,A1F,A3F,B7F,BFF,AF,A1F,A3F,A7F,\FF,FFC,FFE,DFF,G,A1F,A20,A40,A7F,BCF,A7F,B70,G,AC0,A20,A10,AF0,B98,AF0,B70,J,AF,A10,A1F,A2F,A1F,A19,K,B80,A40,B80,L,A6,AF,A9,_,A3,a,18,17,16,,17,1,16,8,,17,9,1
4 FORA=ATOA+X:VPOKE14336+A,Y:NEXT:NEXT:FORI=0TO11:READF:FORH=0TO31:VPOKE6528+H+I*32,(I<8ORH72)-(X<0):IFO+G-S-N/128THENO=S:G=N/128:LOCATE0,1:GOSUB5:I=55930!/(25+S):SOUND9,-9*(S=0):SOUND1,I/256:SOUND0,IAND255:PRINTUSING"SPEED:####mph       RANK:###";S*10;G'5
8 GOSUB5:L=X-E/3:N=N+9-S:E=NAND128:D=96-(NAND127):Y=D>0:D=D*D/96:GOSUB5:PUTSPRITE1,(115-(D<34)*((24-D)*(B-1)+(F-1)*10)+(E-64)*D/225,-Y*(98+D)-31),6,16-D/24:GOTO6

I think it will be hard to add features to the actual game without it slowing
down too much but maybe we could add a better ending (or rather add an
ending Wink )

Por snout

Ascended (15187)

Imagen del snout

30-03-2005, 19:08

Should I wait a bit before adding it as a new entry to the IOMBCC? I think it's cool to both show the initial and the final version Wink

And Wolf_ - I think you're getting the hang of obfuscated coding. nice one! Shall I add it as an entry? Do you have more tricks up your sleeve?

Página 9/29
2 | 3 | 4 | 5 | 6 | 7 | 8 | | 10 | 11 | 12 | 13 | 14