Free your creativity - IOMBCC

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

Por dvik

Prophet (2200)

Imagen del dvik

30-03-2005, 19:08

[D-Trail] The rank will (if I calculated it correctly) wrap at -256/255. When it wraps the second time the OPL4 music starts Wink

Por dvik

Prophet (2200)

Imagen del dvik

30-03-2005, 19:12

snout, yes I think it would be nice to wait a little bit since NYYRIKKI found some more characters to do something fun of. I'll be on a trip for a couple of days (without my computer) so can propbably continue on Monday. But if anyone else has some cool ideas, feel free to add them Smile

Por dvik

Prophet (2200)

Imagen del dvik

30-03-2005, 22:41

I've made a pretty simple ending to the game (not very obfuscated though). If you have any better ideas I'd be happy to see them.

Here is the code:

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'0
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:IFN>224THEN6ELSELOCATE5,6:SOUND8,0:PRINT"You are victorious!":FORI=0TO0STEP0:NEXT'5

Por wolf_

Ambassador_ (10076)

Imagen del wolf_

30-03-2005, 22:44

snout: don't bother for that poor oneliner.. I might come up with something tho .. dunno what, and I dunno if it will be obfuscated because of fake-names etc. or because the code itself (in 'clean' condition) is obfuscated already. Smile

Need to take a look at my map-generator and shadow-caster tho.. it's pretty obfuscated already ^_^

Por Alex Ganzeveld

Expert (89)

Imagen del Alex Ganzeveld

30-03-2005, 22:44

I would like to compliment you guys (dvik and NYYRIKKI that is) on the game. Truly stunning!

I'm really enjoying this thread! Keep it coming!

FYI: I don't like fora. I've made 58 posts in 7 years and that's more than enough. I just wanted to let you guys know I really appreciate what your doing!

Por wolf_

Ambassador_ (10076)

Imagen del wolf_

30-03-2005, 22:45

I bet 20% of your forumposts is related to that t-shirt game Smile

Por Manuel

Ascended (19219)

Imagen del Manuel

30-03-2005, 22:53

I must say dvik: this is fooking great!! Smile Hyper Really in 8 lines of MSX BASIC! Smile
Can't you save more space by leaving out the commas?

Por NYYRIKKI

Enlighted (6011)

Imagen del NYYRIKKI

31-03-2005, 00:19

At a same time I also added a stupid end, gas pedal & some other minor changes... Maybe you find some of this code useful for your offical version. There is still space to make a more nice end. Smile

BTW Sorry, that I broke your data last time. Smile

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:NEXTA,I:FORI=0TO11:READF:FORH=0TO31:VPOKE6528+H+I*32,(I<8ORH0):M=(X>72)-(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:PRINTUSING"SPEED:####mph       RANK:###";S*10;G' by Dvik
8 SOUND0,IAND255: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:T=T-1+(Z\20):Z=0:NEXT:SCREEN0:PRINT"Time:";TIME\60;"RANK:"G

Por dvik

Prophet (2200)

Imagen del dvik

31-03-2005, 00:32

Nice job NYYRIKKI Smile. I've been working on manuels idea and got another 80 free characters. We should merge your last version with this and then we'll have enough space to do a cool ending Smile

Btw, I think since you are toggling the speed, the if statement on line 7 could be removed. That probably speeds things up a bit (the top text will be drawn everytime anyway).

Here are my updates (I've only modified the first five lines):

1 DEFINTA-Z:V=14:S$(0)="A18A0CA0FB07C03C01H00A80AE0AF0AFCIFFH00A80AE0AF0AF8AFCBFEAFFP00F3FF7FTFFAF0AF8AFCAFELFFE00A80AC0AE0BF0AF8AFCBFEBFFP00B01B03B07B0FB1FB3FB7FBFFB80BC0BE0BF0BF8BFCBFEBFFP00B01B03B07B0FB1FB3FB7FbFFB80BC0BE0BF0BF8BFCBFE"'
2 COLOR15,5,1:X=V:S$(1)="BFFX00A01A07A0FA1FA3FB7FAFFC00A01A07A0FA3FIFFA18A30AF0BE0CC0C80J00A01A03A07B0FA1FA3FB7FBFFA0FA1FA3FA7F\FFFFCFFEDFFG00A1FA20A40A7FBCFA7FB70G00AC0A20A10AF0B98AF0B70J00A0FA10A1FA2FA1FA19K00B80A40B80L00A06A0FA09_00A03"
3 KEYOFF:SCREEN1,3,0:FORI=0TO2:VPOKE8208+I,85:NEXT:LOCATE8,1:PRINT"PLEASE WAIT...":FORI=256TO991:O=VPEEK(I):VPOKEI,(OOR(O/2))/(2-(IAND4)/4):NEXT:FORB=0TO1:FORI=1TO212STEP3:Q=ASC(MID$(S$(B),I,1))-65:Y=VAL("&H"+MID$(S$(B),I+1,2)):FORA=ATOA+Q
4 VPOKE14336+A,Y:NEXT:NEXT:PUTSPRITE8+B,(80+64*B,159),V,6+B:NEXT:FORI=0TO11: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:IFN>224THEN6ELSELOCATE5,6:SOUND8,0:PRINT"You are victorious!":FORI=0TO0STEP0:NEXT

Por snout

Ascended (15187)

Imagen del snout

31-03-2005, 00:35

This is insaaaaaaaaane! Smile

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