I'm trying to run a DB1 program in the DBPro demo version, and I get an illigal operation.
Heres the code:
sync on
RANDOMIZE TIMER()
Dim ReadHight(500,500)
DIM RR(16)
DIM GG(16)
DIM BB(16)
Toggle=1
RR(1)=255
GG(1)=0
BB(1)=0
......
RR(16)=128
GG(16)=255
BB(16)=255
cls rgb(0,128,0)
Line 0,0,32,32
Line 32,0,0,32
get image 1,0,0,32,32
MAKE MATRIX 1, 500, 500, 40, 40
prepare matrix texture 1,1,1,1
set matrix wireframe off 1
`RANDOMIZE MATRIX 1, 50
delete image 1
FOR Wok = 1 to 16
load object "tank.3ds",Wok*2
load object "gunmnt.3ds",(Wok*2)-1
rotate object Wok*2,270,0,0
rotate object ((Wok*2)-1),270,0,0
fix object pivot (Wok*2)
fix object pivot (Wok*2)-1
COLOR OBJECT (Wok*2), RGB(RR(Wok),GG(Wok),BB(Wok))
COLOR OBJECT (Wok*2)-1, RGB(RR(Wok),GG(Wok),BB(Wok))
XX=RND(500)
ZZ=RND(500)
Position Object (Wok*2),XX,get ground Height(1,XX,ZZ)+1,ZZ
Position Object (Wok*2)-1,XX,get ground Height(1,XX,ZZ)+1,ZZ
Next Wok
Position Camera 50,10,50
Point Camera Object Position X(1),Object Position Y(1),Object Position Z(1)
CamHeight=Camera Position Y()
DO
IF Upkey()=1 Then Move Camera 5
IF Downkey()=1 Then Move Camera -5
IF Leftkey()=1 Then Turn Camera Left 5
IF RightKey()=1 Then Turn Camera Right 5
IF Inkey$()="a" Then CamHeight=CamHeight+5
IF Inkey$()="z" Then CamHeight=CamHeight-5
POsition Camera Camera Position X(), CamHeight, Camera Position Z()
sync
Loop
The screenshot:
http://www.boomspeed.com/n6th/crash.jpg
can someone tell me what the problem is?
