quick and dirty group selection
sync on: sync rate 0
for i=1 to 200
make object sphere i,rnd(4)
color object i,rgb(rnd(255),rnd(255),rnd(255))
position object i,rnd(200),rnd(200),0
next i
position camera 100,100,-100
point camera 100,100,-99
dim group(200)
start=0
do
if mouseclick()=1 and start=0
starty=mousey()
startx=mousex()
start=1
wait 200
endif
if mouseclick()=1 and start=1
endy=mousey()
endx=mousex()
start=0
wait 200
endif
line startx,starty,endx,starty
line startx,starty,startx,endy
line startx,endy,endx,endy
line endx,endy,endx,starty
for i=1 to 200
if object screen x(i)>startx and object screen x(i)<endx and object screen y(i)>starty and object screen y(i)<endy
group(i)=1
endif
next i
if upkey()
for i=1 to 200
if group(i)=1
position object i,object position x(i),object position y(i)+0.1,0
endif
next i
endif
sync
loop
click once to start the selection and then again to close the box, when you press the upkey all the objects in the rectangle move up off the screen, cheers.
Mentor.
System spec : Pentium 3.0Ghz, 512MB DDR, 2x160Gb HD (using icewave hd coolers ), DVD RW/CD RW (all modes), multimedia front panel, 6 way surround sound, ATI radeon 9800Pro 128mb.
