My suggestion: increase the starting difficulty and slow the difficulty gain. 0-1200 is a joke...it's boring to play through

I totally agree, and so my friends

I personally found the difficulty to be fine, although it might be good to maybe increase it anyway. Keep up the good work!

I'm not sure if I'll ever manage to do that: Quigibo told me that to so I would have to draw the game in rectangles instead of lines, so basically I'm going to have to do all again, but I have no idea of how to draw rectangles. Not even lines ;P

Aw right. Mhmm... if people look at the code, maybe they might be able to help you. I kinda forgot if Line( was the same as in BASIC.

Ok, I decided to make the source public (anyways, you can always get the code, so...)

.RACER3D
[3C7E427EFF99FF42]->PIC1
"SCORE:"->STR1
"GAME OVER"->STR2
"DAVID G."->STR3
2->S
Label 1
ClrDraw
ClrHome
Pause 500
Output(0,0,"RACER 3D: REPLAY
Text(0,15,"1:PLAY
Text(0,25,"2:ABOUT
Text(0,35,"3:HELP
Text(0,45,"4:QUIT
Text(40,15,"5:TURN SPEED +
Text(40,25,"6:TURN SPEED -
Text(40,35,S->DEC
Repeat getKey->Z
End
If Z=1
Goto 1
End
If Z=2
Goto 1
End
If Z=3
Goto 1
End
If Z=4
Goto 1
End
If Z=26
ClrHome
Output(0,0,"RACER 3D: REPLAY
Text(0,15,"GAME BY:
Text(0,30,"-QUIGIBO
Text(0,40,"-DAVID G.
Pause 15000
Goto 1
End
If Z=18
ClrHome
Output(0,0,"RACER 3D: REPLAY
Text(0,15,"HELP: TO DO
Pause 15000
Goto 1
End
If Z=35
Goto 2
End
If Z=27
1+S->S
Goto 1
End
If Z=19
S-1->S
Goto 1
End
If Z=34
Return!If Full
Fix 5
128->B
40->L
For(A,0,40)
PIC1->O
rand^3-1+B->B->{L1+A}
End
For(A,0,95)
Line(A,rand^4+21,A,24)
End
StorePic
3->Y->R
[neg]100->X
0->T

Repeat getKey->M
End
If M=23
Goto 1
End

Repeat getKey(15)
.MOVE
If getKey(2)
X+S->X
Horizontal +
Line(0,24,0,rand^4+21)
StorePic
End
If getKey(3)
X-S->X
Horizontal -
Line(95,24,95,rand^4+21)
StorePic
End

.SCORE
!If T+1->T^32
L-1->L
End
Text(0,0,STR1)
Text(22,0,T->DEC)

.SHIFT
conj(L1+39,L1+40,40)[radians]
If {L1}<5
{L1}+5->{L1}
End
If {L1}>250
{L1}-5->{L1}
End
rand^3-1+Y+{L1}->{L1}
DS<(R,14)
rand^5-2->Y
End

.DRAW
If Z=0->Z
For(A,0,39)
A+24->B
A/2+{[root]^2A*10*4)+L1}+X->C
If C-A->E>1000
0->E
End
If C+L->F>1000
0->F
End
For(D,E,96)+1,F,96))
Pxl-On(D-1,B)
End
End
Pt-Change(42,55,PIC1
DispGraph

.DEATH
If E>42 or (F<50)
For(A,1,7)
Pt-Change(42,55,PIC1)
DispGraph
Pause 250
End
Fix 4
ClrHome
Text(0,0,STR2
Text(0,20,STR1
Text(0,30,T->DEC
Text(50,55,STR3
Text(50,45,"QUIGIBO
Pause 9999


Goto 1
End

RecallPic
End:End
Label Q
Fix 4
End

Label 2(full of bad habits this code, I like it, though)

Not Label, Lbl, and -> for STOs, a few changes should be made.

I need to change the Line( to Rect(, I don't think that's that hard, I will succeed, any help would be welcomed.

Quigibo advised me to make Rectangles 1*1, so I need to find out more about Rect(.

Thanks

1*1? O.o

Rectangles, 1px by 1px :s

um, you can do that by Pxl-On(Xpos,Ypos) , you dont have to use Rect( 

but to make the road shorten faster, i HAVE to draw rectangles, according to what Quigibo told me (and he created Axe :s)

I used for the road width:

Code: [Select]

21->r6
0->r5
repeat getkey(15)
r5+1->r5
if r5=100
r6-1->r6
0->r5
end
(...)
rand^4+r6->L
line(0,24,0,L)
-----

I think that's enough...
else, take a look at the code of tunnel3d




EDIT: 100th PosT! (>^_^)====  (PEEEEP)

You changed it a little from the original, I'll try that

DJ is right, the rectangles should have height 1 and the width of the road, that's what I said in my PM.  I got about a 3x speed increase when I tried it though.