I get the following error message
Failed to 'DoExpressionList:
oExpressionListString'
when I run this
REM Project: matrixes
REM Created: 07/03/2006 18:53:01
REM
REM ***** Main Source File *****
REM
hide mouse
dim selecto(1000000)
dim x#(1000000)
dim y#(1000000)
dim xt#(1000000)
dim yt#(1000000)
dim t(1000000)
dim unit(10000000)
autocam off
make camera 1
set current camera 1
position camera 1,0,0,-50
point camera 1,0,0,0
LOAD IMAGE "D:rocks\rock.BMP", 1
x=100
y=100
XX=100
YY=100
MAKE MATRIX 1,500,500,20,20
position matrix 1,0,0,0
make object triangle 100,0,10,0,4,10,10,4,10,-10
color object 100,rgb(0,255,0)
make object triangle 101,0,10,0,-4,10,10,-4,10,-10
color object 101,rgb(0,255,0)
make object triangle 102,0,10,0,10,10,4,-10,10,4
color object 102,rgb(0,255,0)
make object triangle 103,0,10,0,10,10,-4,-10,10,-4
color object 103,rgb(0,255,0)
prepare matrix texture 1,1,1,1
UPDATE MATRIX 1
num=4
unit(1)=1
make object box 100,10,10,20
for t=2 to num
x#(t)=100
y#(t)=100+(t*50)
make object sphere (t*100),10
position object (t*100)t,0,0,0
color object (t*100),rgb(200,0,0)
unit(t)=100
next t
clue=5
position mouse 320,240
do
position camera 1,xx,100,yy
point camera 1,xx,0,yy
rem mouse functions
mx=mousex()
my=mousey()
mcc=mouseclick()
select mcc
case 0
mc=0
endcase
case 1
mc=1
endcase
case 2
mc=2
endcase
endselect
if mx<40
dec xx
endif
if mx>600
inc xx
endif
if my<40
inc yy
endif
if my>440
dec yy
endif
mxx=(((mx-320)/4)+xx)
myy=((((480-my)-240)/4)+yy)
if cluee=0
inc clue
endif
if cluee=1
dec clue
endif
if clue>250
cluee=1
endif
if clue<150
cluee=0
endif
position object 100,mxx+(clue/20),0,myy
position object 101,mxx-(clue/20),0,myy
position object 102,mxx,0,myy+(clue/20)
position object 103,mxx,0,myy-(clue/20)
rem object movement
for t=1 to num
if mc=1 and mxx>(x#(t)-5) and mxx<(x#(t)+5) and myy>(y#(t)-5) and myy<(y#(t)+5)
for y=1 to num
selecto(y)=0
next y
selecto(t)=1
endif
IF X#(t)<14
X#(t)=14
ENDIF
IF X#(t)>488
X#(t)=488
ENDIF
IF Y#(t)<14
Y#(t)=14
ENDIF
IF Y#(t)>488
Y#(t)=488
ENDIF
if unit(t)=100
position object (t*100),x#(t),10,y#(t)
endif
if unit(t)=1
position object (t*100),x#(t),10,y#(t)
endif
if selecto(t)=1
color object t,rgb(0,255,0)
if mxx>(x#(t)-10) and mxx<(x#(t)+10) and myy>(y#(t)-10) and myy<(y#(t)+10)
else
if mc=2
xt#(t)=mxx
yt#(t)=myy
t(t)=1
endif
endif
else
color object t,rgb(255,0,0)
endif
if t(t)=1
if x#(t)<xt#(t)
inc x#(t),0.5
endif
if x#(t)>xt#(t)
dec x#(t),0.5
endif
if y#(t)<yt#(t)
inc y#(t),0.5
endif
if y#(t)>yt#(t)
dec y#(t),0.5
endif
for k=1 to num
if k=t
else
if sqrt(((x#(t)-x#(k))*(x#(t)-x#(k)))+((Y#(t)-y#(k))*(y#(t)-y#(k))))<20
if y#(t)<y#(k) and x#(t)<x#(k) and yt#(t)>y#(k) and xt#(t)>x#(k)
inc x#(t),1
dec y#(t),1
endif
if y#(t)>y#(k) and x#(t)>x#(k) and yt#(t)<y#(k) and xt#(t)<x#(k)
dec x#(t),1
inc y#(t),1
endif
if y#(t)<y#(k) and x#(t)>x#(k) and yt#(t)>y#(k) and xt#(t)<x#(k)
dec x#(t),1
dec y#(t),1
endif
if y#(t)>y#(k) and x#(t)<x#(k) and yt#(t)<y#(k) and xt#(t)>x#(k)
inc x#(t),1
inc y#(t),1
endif
if x#(t)>x#(k) and xt#(t)>x#(k)
inc x#(t)
endif
if x#(t)<x#(k) and xt#(t)<x#(k)
dec x#(t)
endif
if y#(t)>y#(k) and yt#(t)>y#(k)
inc y#(t)
endif
if y#(t)<y#(k) and yt#(t)<y#(k)
dec y#(t)
endif
endif
if sqrt(((x#(t)-x#(k))*(x#(t)-x#(k)))+((Y#(t)-y#(k))*(y#(t)-y#(k))))<30
if xt#(t)=x#(k)
inc xt#(t),5
endif
if yt#(t)=y#(k)
inc yt#(t),5
endif
endif
endif
next k
endif
if x#(t)=xt#(t) and y#(t)=yt#(t)
t(t)=0
endif
next t
if spacekey()=1
for y=1 to num
selecto(y)=0
next y
endif
rem screen limit
IF Xx<81
Xx=81
ENDIF
IF Yy>439
Yy=439
ENDIF
IF Xx>419
Xx=419
ENDIF
IF Yy<61
Yy=61
ENDIF
rem strings
mx$=str$(mx)
my$=str$(my)
mxx$=str$(mxx)
myy$=str$(myy)
xx$=str$(xx)
yy$=str$(yy)
loop
why?
Tubeularcubeface
