Btw, I posted this code on someone's thread and wanted to share it to everyone too (Don't worry, it's media less, so just copy, paste, and compile it!)
sync on
for s=1 to 30
make object sphere s,10
disable object zwrite s
set object transparency s,3
next s
mblur=1
srate=30
do
old_ud=ud
old_lr=lr
ud=upkey()-downkey()
lr=rightkey()-leftkey()
if ud<>0 and old_ud=0 then inc mblur,ud
if mblur<1 then mblur=1
if mblur>30 then mblur=30
inc srate,lr
if srate<10 then srate=10
mc=mouseclick()
mmx=mousemovex()
mmy=mousemovey()
old_x#=x#
old_y#=y#
old_z#=z#
if mc=1 or mc=3
inc x#,(mmx*-.35)
inc z#,(mmy*.35)
endif
y#=0
position object 1,x#,y#,z#
set alpha mapping on 1,100/(mblur*.5)
for s=2 to 30
if s<=mblur
show object s
position object s,old_x#+(((x#-old_x#)/mblur)*s),old_y#+(((y#-old_y#)/mblur)*s),old_z#+(((z#-old_z#)/mblur)*s)
set alpha mapping on s,100/(mblur*.5)
else
hide object s
endif
next s
position camera 0,100,100
point camera 0,0,0
sync rate srate
set cursor 0,0
print "FPS :",screen fps()
print "Sync rate: ",srate
print "Motion Blur Quality: ",mblur
sync
loop
I didn't use it cuz "set blend mapping on" and "set alpha mapping on" doesn't work with each other... And it requires alot of duplication of a single object.
Programmers does a big participation in a game, yet they have the least credit.
Portfolio: http://mike-inel.cgsociety.org/gallery/
Website: www.Altiz-Studio.com