Rally X Final

by MSX Resource Center on 17-12-2011, 10:59

Rally X - Final version . A comlete racing game written in only a few lines of (obfuscated) MSX-BASIC. Includes ranking & gear shifting.

첨부 파일파일 크기다운로드최종 다운로드
Rally X1.31 KB7875일 12시간 지남

댓글 (7)

By NYYRIKKI

Enlighted (5595)

NYYRIKKI의 아바타

15-03-2008, 14:11

Here is the source of this game:

msx.fi/temp/xrally.gif

By Manuel

Ascended (16966)

Manuel의 아바타

15-03-2008, 19:07

What's that @ at the end of line 6 doing there?

Here it is in ASCII:
{moderator says "no it's not"}

And here it is formatted with width 80 like the screenshot above:

1 J=S-J*(J<96-S):K=J\16:FORW=0TO2:VPOKE8208+W,P(W+K):NEXT:IFTTHENRESUMENEXTELSEO
NERRORGOTO1:DEFINTA-Y:COLOR15,5,1:KEYOFF:SCREEN2,3,0:U=255:V=32:FORX=-1TO1:FORY=
0TO31:M=16-Y\2:LINE(M-X*((SIN(Y^.8/6)-(Y<16))*6-M-2)+(X<1),V+X*V+Y)-STEP(Y+1,0)
2 P(Y\4)=50-15*(Y\12AND1):NEXTY,X:N=14336:FORI=0TO383:VPOKEN+I,VPEEK((IAND7)+(IA
ND8)*V+(IAND48)\2+(IAND448)*8):NEXT:S$="3##B#C#c$B'r$B&s3#%##C#3%S';%S&s;##2#3#B
#R#B#<=c'##c'#@C#)#2#,s##&wfw:w3w4w$w3w#w4w,DD0CDDDS0CDSDK0CDKDC0CDC":SOUND3,14
3 SCREEN1:FORO=0TO53:Y=0:FORM=MTOM+1:Y=Y*96+(ASC(MID$(S$,M))-35):NEXT:FORK=KTOK+
Y\256:VPOKEK+N+I+8335*(O>V),YANDU:NEXTK,O:FORI=UTO1023:O=VPEEK(I):VPOKEI,(OORO\2
)\(2-(IAND4)\4):NEXT:FORI=ITO1279:O=IANDV:VPOKE6432+(IAND63),228+8*(IAND3)-O
4 W=2^(IAND7):J=O*U\W\64:VPOKEI+512,JAND-W:VPOKEI+768,JOR-WANDU:J=8-O\8:VPOKEI,(
JANDI)*U\J:NEXT:R=N\2:VPOKE8192,14:VPOKE1209,U:PLAY"v15o5arararo6aa":FORW=9TO10:
PUTSPRITEW,(16+64*W,159),14,W-3:SOUNDW,14:N=N+9:NEXT:TIME=0:SOUND5,83:FORT=2TOR
5 PUTSPRITE0,(X+80,156),1,12:G=G+F*S\2:LOCATE1,1:D=96-(NAND127):Y=D>0:D=D*D\96(:
PRINTUSING"SPEED:##0kmh  !  RANK:###";S;CHR$(76-L*4);N\128-82(:FORW=8216TO8219:G
=G+8AND31:VPOKEW,86+(GAND16):VPOKE4+W,85+G\24:NEXT:@:Q=O:IFC99)*(1-CMOD3):L=(QANDO+Q)+LAND1:S=S+(0=(OAND6
4))-(0=(OANDV))*(2-((S>9)=-L)):S=(S>14+L*6)*(L+2)-(S>0)*(S-1)(:FORW=3TO4:PUTSPRI
TEW+1,(F*10+W*V,95),14,4*B+W+1:PUTSPRITE3+W,(W*V,127),14,4*F+3+W:NEXT:@
7 PUTSPRITE1,(115-(D<34)*((24-D)*B+F*10)+(E-64)*D\225,-Y*(98+D)-31),6,15-D\25-(T
>R)*9:M=(X>72)-(X<0):E=NAND128:N=N+9-S:S=S*((X-15-E\3)\15<>0ORD<73)*(M=0):SOUND4
>,U-S*9(:X=X+5*(M-(0=(OAND128))+(0=(OAND16)))-S*B\4:FORW=0TO0:W=PLAY(0):NEXTW,T
8 S=15:Z$=SPACE$(S)+"Race Over  Time ="+STR$((TIME\(6-PEEK(43)\128))/10)+"s":FOR
N=0TOU:D=88-3*N:LOCATE6,4:PUTSPRITE0,(116-(36-X)*D\126,(68+D)-(D<0)*128),1,S-D\2
4:+:PRINTMID$(Z$+Z$,NMOD38+1,S):SOUND(1ANDN)+9,-(D>0)*D\6:NEXT:SCREEN0:CLEAR

By dvik

Prophet (2200)

dvik의 아바타

15-03-2008, 19:40

What's that @ at the end of line 6 doing there?
Its causing an on error interrupt. The on error routine does the scrolling so there are about 6 errors in the game loop which means that the grass scrolls 6 times in one game loop (thats why the grass is quite smooth compared to the movement of e.g. opponent cars.

By dvik

Prophet (2200)

dvik의 아바타

15-03-2008, 19:41

Btw, can someone remove the ASCII version that manuel posted above. It makes the window very wide and the post hard to read.

And perhaps also remove this post once the listing is removed.

By nitrofurano

Champion (297)

nitrofurano의 아바타

12-09-2020, 17:53

By bsittler

Expert (71)

bsittler의 아바타

14-09-2020, 07:06

I think the bulletin board ate some parts that were between less-than and greater-than <> because they weren't quoted &lt;&gt;

By NYYRIKKI

Enlighted (5595)

NYYRIKKI의 아바타

17-09-2020, 17:11