I picked up a peice of code when i forst started using DBPro off of someone, its a sniper affect. Use the right mouse button to zoom in
Rem Project: sniper
Rem Created: 12/30/2002 6:09:48 PM
Rem ***** Main Source File *****
rem Initialisation
sync on
sync rate 30
hide mouse
autocam off
rem Make a level
make matrix 1,5000,5000,25,25
for i=1 to 20
make object box i,200,200,200
position object i,int(rnd(5000)),100,int(rnd(5000))
next i
rem Starting positions
position camera 2500,100,2500
fov#=80
do
rem Mouselook, with coefficient to steady aim based on zoom level
cx#=wrapvalue(cx#+(mousemovey()*0.01*fov#))
cy#=wrapvalue(cy#+(mousemovex()*0.01*fov#))
rem Simple movement
if upkey()=1 then move camera 10
if downkey()=1 then move camera -10
rem Zoom with right mouse button
if mouseclick()=2 then fov#=curvevalue(10,fov#,10)
if mouseclick()=0 then fov#=curvevalue(80,fov#,10)
rem This is what sets the fov
set camera fov fov#
rotate camera cx#,cy#,0
sync
loop
enjoy
WHY WAIT FOR GAMES.......MAKE THEM COME TO YOU
>>>>www.sharksoft.scripterz.com<<<<<
THANKS IN ADVANCE
