I made that Motion / Camera Blur Function for my game. It blurs the screen when moving the camera. Check it out, tell me what you think.
`Display Settings
set display mode 800,600,32
sync on
sync rate 60
autocam off
hide mouse
`Test-Objects
make object box 1,2,2,2
move object 1,10
COLOR OBJECT 1, RGB(255,0,0)
make object box 2,2,2,2
move object 2,10
move object right 2,4
COLOR OBJECT 2, RGB(0,255,0)
make object box 3,2,2,2
move object 3,10
move object left 3,4
COLOR OBJECT 3, RGB(0,0,255)
make object box 10,5000,5000,1
move object 10,100
`Primary Cam
global ScreenCam = 1
make camera ScreenCam
set camera range ScreenCam ,1,1000
set camera fov ScreenCam ,90
SET CAMERA TO OBJECT ORIENTATION 1
`Motion-Blur Cam
global BlurCam = 2
make camera BlurCam
set camera range BlurCam ,1,1000
set camera fov BlurCam ,90
SET CAMERA TO OBJECT ORIENTATION 1
SET CAMERA TO IMAGE BlurCam, 1000, 1600, 1200
`Create Sprites
SPRITE 1, 0,0, 1000
SET SPRITE 1, 0, 1
SET SPRITE ALPHA 1, 45
size SPRITE 1, 800, 600
SPRITE 2, 0,0, 1000
SET SPRITE 2, 0, 1
SET SPRITE ALPHA 2, 90
size SPRITE 2, 800, 600
SPRITE 3, 0,0, 1000
SET SPRITE 3, 0, 1
SET SPRITE ALPHA 3, 135
size SPRITE 3, 800, 600
global xang#
global yang#
`Begin loop
do
`Get Mousemovement
Mouse_X_Speed# = mousemovex()
Mouse_Y_Speed# = mousemovey()
yang# = yang# + Mouse_X_Speed# * 0.1
xang# = xang# + Mouse_Y_Speed# * 0.1
`Position Cameras
position camera ScreenCam ,0,0,0
rotate camera ScreenCam , wrapvalue(xang#),wrapvalue(yang#),0
position camera BlurCam ,0,0,0
rotate camera BlurCam , wrapvalue(xang#),wrapvalue(yang#),0
`Set Blur Offset
x# = .5
y# = .5
`Redraw Sprites
SPRITE 1, -Mouse_X_Speed#*x#, -Mouse_Y_Speed#*y#,1000
SPRITE 2, -Mouse_X_Speed#*(x#*2), -Mouse_Y_Speed#*(y#*2),1000
SPRITE 3, -Mouse_X_Speed#*(x#*4), -Mouse_Y_Speed#*(y#*4),1000
`Sync
fastsync
`End Loop
loop
