Free your creativity - IOMBCC

Página 24/29
17 | 18 | 19 | 20 | 21 | 22 | 23 | | 25 | 26 | 27 | 28 | 29

Por snout

Ascended (15187)

Imagen del snout

26-04-2005, 12:47

I think it's your call, Nyyrikki. Smile

Por NYYRIKKI

Enlighted (5982)

Imagen del NYYRIKKI

27-04-2005, 11:59

I know... I'm sorry, but I don't have much time this week.. I'm anyway not going to forget this project...

I also thought, that maybe we could make it possible to drive also to grass, but then speed should drop. I suggest, we implement Lo/Hi gear and break. Let's see how much we have then free space left...

Por dvik

Prophet (2200)

Imagen del dvik

05-06-2005, 23:51

Nyyrikki, have you thought anything more about the rally game? I've been busy with other things lately
but we should try to finish it up. I'm actually quite happy with the latest version posted (the one without
the white center line).

Por NYYRIKKI

Enlighted (5982)

Imagen del NYYRIKKI

06-06-2005, 08:46

I have not forget this project, but no I have not done anything (yet)... Somehow after a while this looks pretty messy Smile

Por AuroraMSX

Paragon (1902)

Imagen del AuroraMSX

06-06-2005, 09:37

Somehow after a while this looks pretty messy Smile
Obfuscated, I'd say Tongue

Por NYYRIKKI

Enlighted (5982)

Imagen del NYYRIKKI

27-12-2005, 17:48

Hey, I just found one old routine, that I made long time ago... It fits here perfectly!

This program detects, what CPU mode you are running your MSX tR Smile

10 ONERRORGOTO30.75:ONINTERVAL=2GOSUB20OR10:DEFSTRR:INTERVALON:RZ="R800"
20 R="Z80":NEXT:FORSI=0TO20:NEXT:ER=ER+1:IFER<3THENRETURNELSEWHATSHOULDIDO
30 IF0=SITHENRESUMENEXTELSEIFERRXOR3THENPRINTRELSEPRINTRZ
40 CLEAR:END:OR:WHAT ;-)

Por snout

Ascended (15187)

Imagen del snout

23-12-2006, 20:49

I think I requested it somewhere else before, but err... how about making a 'final' of the racing game, Nyyrikki? ^_^

Por NYYRIKKI

Enlighted (5982)

Imagen del NYYRIKKI

29-10-2007, 21:55

Yeah... ok...

First not optimized and not very well working version with breaks (down) and gears (space). Acceleration is now on UP-key.

1 J=S-J*(J<96-S):K=J\16:FORW=0TO2:VPOKE8208+W,P(W+K):NEXT:IFTTHENRESUMENEXTELSEONERRORGOTO1: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)+(IAND8)*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:FORW=8TO9:PUTSPRITEW,(80+64*W,159),14,W-2:SOUNDW,14:NEXT:TIME=0:FORT=2TOR:-:PUTSPRITE0,(X+80,156),1,12:SOUND1,83
5 G=G+F*S\2:LOCATE1,1:D=96-(NAND127):Y=D>0(:D=D*D\96:PRINTUSING"SPEED:##0kmh  "+CHR$(76-L*4)+"  RANK:###";S;N\128-82(:FORW=8216TO8219:G=G+8AND31:VPOKEW,86+(GAND16):VPOKE4+W,85+G\24:NEXT:Q=O:O=PEEK(-1043):T=T+S-1(:F=B:IFC99)*(1-CMOD3):L=LXOR(1-(OAND1)AND(OXORQAND1))
7 S=S-(S<18AND0=(OAND32))*(2-(S<7ANDL=0)-(S>6ANDL=1))+(S>0)+((S>1)AND0=(OAND64))):-:FORW=3TO4:PUTSPRITEW+1,(F*10+W*V,95),14,4*B+W+1:PUTSPRITE3+W,(W*V,127),14,4*F+3+W:NEXT:PUTSPRITE1,(115-(D<34)*((24-D)*B+F*10)+(E-64)*D\225,-Y*(98+D)-31),-6*(T72)-(X<0):E=NAND128:N=N+9-S:-:S=S*((X-15-E\3)\15<>0ORD<73)*(M=0):SOUND0,U-S*9:X=X+5*(M-(0=(OAND128))+(0=(OAND16)))-S*B\4:-:NEXT:S=15:Z$=SPACE$(S)+"Race Over  Time ="+STR$((TIME\(6-PEEK(43)\128))/10)+"s":FORN=0TOU:D=88-3*N:LOCATE6,4
9 PUTSPRITE0,(116-(36-X)*D\126,68+D),-(D>0),S-D\24:-:PRINTMID$(Z$+Z$,NMOD38+1,S):SOUND9ANDNOR8,-(D>0)*D\6:NEXT:SCREEN0

changes in variables:
O=keyboard status
Q=old keyboard status
L=GEAR

... not very good implementation, but I quess you have to start with something Smile Dvik, it's your turn Tongue

Por NYYRIKKI

Enlighted (5982)

Imagen del NYYRIKKI

29-10-2007, 23:52

Hmm... here is much better gas, brake and gear handler...

S=S-((0=(OAND32))*(2-(S<9ANDL=0)-(S>8ANDL=1)))+(0=(OAND64)):S=-(S>0)*(S-1)+(S>14+L*6)*(L+2)

Por dvik

Prophet (2200)

Imagen del dvik

30-10-2007, 05:51

Nice improvments. I think the game finally starts to become ready. The new updates just needs to be cleaned up an line lengths poilshed. I'll see what I can do.

Página 24/29
17 | 18 | 19 | 20 | 21 | 22 | 23 | | 25 | 26 | 27 | 28 | 29