Tested in DBPro 5.1b
Enjoy!
sync on : sync rate 50 : autocam off : ink rgb(255,255,255),0 : r1#=0 : r2#=0 : hide mouse
print "Please wait..." : sync : sync
for f#=0 to (360*20) step 0.05
r1#=r1#+0.001 : r2#=r1#+3.0
if f# < 360.0 then r2#=r1#+(3.0*(f#/360.0))
x1#=128+(sin(f#)*r1#) : y1#=128+(cos(f#)*r1#)
x2#=128+(sin(f#)*r2#) : y2#=128+(cos(f#)*r2#)
line x1#,y1#,x2#,y2#
next f
get image 1,0,0,256,256 : cls
sync
center text screen width()/2,(screen height()/2)-20,"Stare at centre of next screen for 30 seconds."
center text screen width()/2,screen height()/2,"When screen goes blank, look away from screen."
center text screen width()/2,(screen height()/2)+20," -- Press any key --"
sync
wait key
make object plain 1,100,100 : set object ambient 1,0 : texture object 1,1
position camera 0,0,-50 : t=timer()
repeat
roll object left 1,10
sync
until timer()-t > 30000
hide object 1
repeat
sync
until scancode()<>0
If your mansion house needs haunting, just call Rentaghost!