Hmm..Thats probably because i enabled zBias on the sky object and your graphic card doesnt support it.
Or, is your DBPro up to date? u have the latest directx?
Whats your graphic card anyway?
I dunno what else..
Try this code to find out if its the zBias thing, but then you may often see the lightnings going through the chapel and any other objects in screen, which we dont want:
Rem ***** Main Source File *****
Autocam Off : Sync Rate 60 : Sync On
Load Sound "thunder.wav", 1
Load Sound "thunder2.wav", 2
Load Sound "rain.wav", 3
Load Image "L_01.png", 1, 1
Load Image "L_02.png", 2, 1
Make Object Plain 1, 100, 100
Offset Limb 1, 0, 0, -5, 0
yRotate Object 1, 180 : Fix Object Pivot 1
Texture Object 1, 1
Set Object Transparency 1, 3
Set Object Light 1, 0
Load Image "Bad_Weather.tga", 11
Make Object Sphere 11, -1500 : zRotate Object 11, 180 : Fix Object Pivot 11
Set Object Smoothing 11, 100
Texture Object 11, 11
Load Object "chapel.x", 20
Set Object Light 20, 1
Color Ambient Light Rgb(128, 128, 128)
Set Ambient Light 0
Set Directional Light 0, 0, 1, 0
null = Make Vector3(1)
Make Light 1
Set Light Range 1, 5000
Position camera -250, 5, -250
ax# = -25 : ay# = 50
Do
If Rnd(300) = 1
lightningFade = 100
Texture Object 1, Rnd(1)+1
Play Sound Rnd(1)+1
Position Object 1, Camera Position X()+Rnd(100)-50, Camera Position Y()+10, Camera Position Z()+Rnd(100)-50
Position Light 1, Camera Position X()+Rnd(100)-50, Camera Position Y()+10, Camera Position Z()+Rnd(100)-50
yRotate Object 1, Camera Angle Y()
ang# = angleYObjToObj(1)
endIf
If lightningFade > 0 Then Dec lightningFade, 2
Set Alpha Mapping On 1, lightningFade
Set Object Emissive 11, Rgb(lightningFade, lightningFade, lightningFade)
`Set Object Emissive 20, Rgb(lightningFade, lightningFade, lightningFade)
Color Light 1, Rgb(lightningFade, lightningFade, lightningFade)
`Set Light Range 1, lightningFade+1
If sound playing(3) = 0 Then Loop sound 3
REM CAMERA STUFF
ax# = WrapValue(ax# + mousemoveY())
ay# = WrapValue(ay# + mousemoveX())
Rotate Camera ax#, ay#, 0.0
If MouseClick()=1 Then Move Camera 1
If MouseClick()=2 Then Move Camera -1
Position Object 11, Camera Position X(), Camera Position Y(), Camera Position Z()
Position Light 1, Camera Position X(), Camera Position Y(), Camera Position Z()
Sync
Loop
Function angleYObjToObj(o As Integer)
Local a As Float
xd# = Camera Position X() - Object Position X(o)
zd# = Camera Position Z() - Object Position Z(o)
a = Atanfull( xd#, zd# )
EndFunction a
There is always one more imbecile than you counted on.
